/************************************************************/ 01000003
         /*                                                          */ 02000003
         /*  'COPYV   ' FUNCTION DATA TABLE DECLARATIONS             */ 03000003
         /*                                                          */ 04000003
         /************************************************************/ 05000003
 %IF BASEFDT = 'YES'                                                    06000003
   %THEN                                                                07000003
     %GO TO BASEFDT1;                                                   08000003
                                                                        09000003
         DCL 1 FDTTBL      BDY(WORD),                                   10000003
 %GO TO BASEFDT2;                                                       11000003
 %BASEFDT1:;                                                            12000003
                                                                        13000003
         DCL 1 FDTTBL      BASED   BDY(WORD),                           14000003
 %BASEFDT2:;                                                            15000003
               2 FDTVERB   CHAR(8),    /* FUNCTION VERBNAME          */ 16000003
               2 FDTPTR(*) PTR(31);    /* SCALAR DATA POINTERS       */ 17000003
                                                                        18000003
         /* DATA DECLARATIONS OF SCALAR DATA ITEMS                   */ 19000003
                                                                        20000003
         /* 'VOLUME' SERIAL NO.                                      */ 21000003
         DCL 1   VOL BASED(FDTPTR(  1)) BDY(HWORD),                     22000003
               2   VOLLEN FIXED(8),    /* DATA ITEM LENGTH           */ 23000003
               2   VOLVAL CHAR(  6);   /* DATA ITEM VALUE            */ 24000003
                                                                        25000003
         /* 'BACKUP' PARM                                            */ 26000003
         DCL  BKUP    BASED(FDTPTR(  2));                               27000003
                                                                        28000003
         /* 'CARTRIDGES' PARM                                        */ 29000003
         DCL  CART    BASED(FDTPTR(  3));                               30000003
                                                                        31000003
         /* SCRATCH CARTRIDGE SERIAL NO. 1                           */ 32000003
         DCL 1  CSN1 BASED(FDTPTR(  4)) BDY(HWORD),                     33000003
               2  CSN1LEN FIXED(8),    /* DATA ITEM LENGTH           */ 34000003
               2  CSN1VAL CHAR( 12);   /* DATA ITEM VALUE            */ 35000003
                                                                        36000003
         /* SCRATCH CARTRIDGE SERIAL NO. 2                           */ 37000003
         DCL 1  CSN2 BASED(FDTPTR(  5)) BDY(HWORD),                     38000003
               2  CSN2LEN FIXED(8),    /* DATA ITEM LENGTH           */ 39000003
               2  CSN2VAL CHAR( 12);   /* DATA ITEM VALUE            */ 40000003
                                                                        41000003
         /* 'DESCRIPTION' OF COPY VOLUME                             */ 42000003
         DCL 1 DESCR BASED(FDTPTR(  6)) BDY(HWORD),                     43000003
               2 DESCRLEN FIXED(8),    /* DATA ITEM LENGTH           */ 44000003
               2 DESCRVAL CHAR( 30);   /* DATA ITEM VALUE            */ 45000003
                                                                        46000003
         /* 'EJECT' PARM                                             */ 47000003
         DCL EJECT    BASED(FDTPTR(  7));                               48000003
                                                                        49000003
         /* 'NOEJECT' PARM                                           */ 50000003
         DCL NEJCT    BASED(FDTPTR(  8));                               51000003
                                                                        52000003
         /* 'RECORD' PARM                                            */ 53000003
         DCL   REC    BASED(FDTPTR(  9));                               54000003
                                                                        55000003
         /* 'NORECORD' PARM                                          */ 56000003
         DCL  NREC    BASED(FDTPTR( 10));                               57000003
                                                                        58000003
         /* 'LOCATION' OF EJECTED VOLUME                             */ 59000003
         DCL 1   LOC BASED(FDTPTR( 11)) BDY(HWORD),                     60000003
               2   LOCLEN FIXED(8),    /* DATA ITEM LENGTH           */ 61000003
               2   LOCVAL CHAR( 30);   /* DATA ITEM VALUE            */ 62000003
                                                                        63000003
         /* 'CATALOG' PARM                                           */ 64000003
         DCL   CAT    BASED(FDTPTR( 12));                               65000003
                                                                        66000003
         /* 'CATALOG' CATNAME/PASSWORD VALUE                         */ 67000003
         DCL 1 CATNM BASED(FDTPTR( 13)) BDY(HWORD),                     68000003
               2 CATNMPLN FIXED(8),    /* PASSWORD LENGTH            */ 69000003
               2 CATNMPAS CHAR(8),     /* PASSWORD VALUE             */ 70000003
               2 CATNMPOS FIXED(8),    /* ASTERISK POSITION          */ 71000003
               2 CATNMFLG BIT(8),      /* DATA SET FLAGS             */ 72000003
                 3 CATNMFUQ BIT(1),    /* FLAG-ON IF UNQUALIFIED     */ 73000003
               2 CATNMMLN FIXED(8),    /* MEMBER NAME LENGTH         */ 74000003
               2 CATNMMEM CHAR(8),     /* MEMBER NAME                */ 75000003
               2 CATNMLEN FIXED(8),    /* CATALOGUED NAME LENGTH     */ 76000003
               2 CATNMVAL CHAR(44);    /* CATALOGUED NAME            */ 77000003
                                                                        78000003
         /* 'CATALOG' DNAME VALUE                                    */ 79000003
         DCL 1 CATDN BASED(FDTPTR( 14)) BDY(HWORD),                     80000003
               2 CATDNLEN FIXED(8),    /* DATA ITEM LENGTH           */ 81000003
               2 CATDNVAL CHAR(  8);   /* DATA ITEM VALUE            */ 82000003
                                                                        83000003
         /* 'FILE' DNAME VALUE                                       */ 84000003
         DCL 1  FILE BASED(FDTPTR( 15)) BDY(HWORD),                     85000003
               2  FILELEN FIXED(8),    /* DATA ITEM LENGTH           */ 86000003
               2  FILEVAL CHAR(  8);   /* DATA ITEM VALUE            */ 87000003
                                                                        88000003
         /* 'MASSSTORAGEFACILITY' ID                                 */ 89000003
         DCL 1   MSF BASED(FDTPTR( 16)) BDY(WORD),                      90000003
               2   MSFVAL FIXED(31);   /* NUMERIC VALUE              */ 91000003
                                                                        92000003
         /* 'PASSWORDFILES' PARM                                     */ 93000003
         DCL 1 PFILE BASED(FDTPTR( 17)) BDY(HWORD),                     94000003
               2 PFILECNT FIXED(15),   /* COUNT OF ITEMS IN LIST     */ 95000003
               2 *(255) BDY(HWORD),                                     96000003
                 3 PFILELEN FIXED(8),  /* DATA ITEM LENGTH           */ 97000003
                 3 PFILEVAL CHAR(  8); /* DATA ITEM VALUE            */ 98000003