/************************************************************/ 01000000
         /*                                                          */ 02000000
         /*  'CONVERTV' FUNCTION DATA TABLE DECLARATIONS             */ 03000000
         /*                                                          */ 04000000
         /************************************************************/ 05000000
 %IF BASEFDT = 'YES'                                                    06000000
   %THEN                                                                07000000
     %GO TO BASEFDT1;                                                   08000000
                                                                        09000000
         DCL 1 FDTTBL      BDY(WORD),                                   10000000
 %GO TO BASEFDT2;                                                       11000000
 %BASEFDT1:;                                                            12000000
                                                                        13000000
         DCL 1 FDTTBL      BASED   BDY(WORD),                           14000000
 %BASEFDT2:;                                                            15000000
               2 FDTVERB   CHAR(8),    /* FUNCTION VERBNAME          */ 16000000
               2 FDTPTR(*) PTR(31);    /* SCALAR DATA POINTERS       */ 17000000
                                                                        18000000
         /* DATA DECLARATIONS OF SCALAR DATA ITEMS                   */ 19000000
                                                                        20000000
         /* SOURCE VOLUME DDAME                                      */ 21000000
         DCL 1 FFILE BASED(FDTPTR(  1)) BDY(HWORD),                     22000000
               2 FFILELEN FIXED(8),    /* DATA ITEM LENGTH           */ 23000000
               2 FFILEVAL CHAR(  8);   /* DATA ITEM VALUE            */ 24000000
                                                                        25000000
         /* TARGET VOLUME DDNAME                                     */ 26000000
         DCL 1 TFILE BASED(FDTPTR(  2)) BDY(HWORD),                     27000000
               2 TFILELEN FIXED(8),    /* DATA ITEM LENGTH           */ 28000000
               2 TFILEVAL CHAR(  8);   /* DATA ITEM VALUE            */ 29000000
                                                                        30000000
         /* SOURCE VOLUME SERIAL NUMBER                              */ 31000000
         DCL 1  FVOL BASED(FDTPTR(  3)) BDY(HWORD),                     32000000
               2  FVOLLEN FIXED(8),    /* DATA ITEM LENGTH           */ 33000000
               2  FVOLVAL CHAR(  6);   /* DATA ITEM VALUE            */ 34000000
                                                                        35000000
         /* TARGET VOLUME SERIAL NUMBER                              */ 36000000
         DCL 1  TVOL BASED(FDTPTR(  4)) BDY(HWORD),                     37000000
               2  TVOLLEN FIXED(8),    /* DATA ITEM LENGTH           */ 38000000
               2  TVOLVAL CHAR(  6);   /* DATA ITEM VALUE            */ 39000000
                                                                        40000000
         /* 'RECATALOG' PARM                                         */ 41000000
         DCL RECAT    BASED(FDTPTR(  5));                               42000000
                                                                        43000000
         /* 'ALL' PARM                                               */ 44000000
         DCL  ALLC    BASED(FDTPTR(  6));                               45000000
                                                                        46000000
         /* 'VSAMCATALOG' PARM                                       */ 47000000
         DCL  VCAT    BASED(FDTPTR(  7));                               48000000
                                                                        49000000
         /* 'NONE' PARM                                              */ 50000000
         DCL  NONE    BASED(FDTPTR(  8));                               51000000
                                                                        52000000
         /* 'SCRATCH' PARM                                           */ 53000000
         DCL   SCR    BASED(FDTPTR(  9));                               54000000
                                                                        55000000
         /* 'NOSCRATCH' PARM                                         */ 56000000
         DCL  NSCR    BASED(FDTPTR( 10));                               57000000
                                                                        58000000
         /* 'CATALOG' KEYWORD                                        */ 59000000
         DCL   CAT    BASED(FDTPTR( 11));                               60000000
                                                                        61000000
         /* VSAM CATALOG NAME                                        */ 62000000
         DCL 1  CATN BASED(FDTPTR( 12)) BDY(HWORD),                     63000000
               2  CATNPLN FIXED(8),    /* PASSWORD LENGTH            */ 64000000
               2  CATNPAS CHAR(8),     /* PASSWORD VALUE             */ 65000000
               2  CATNPOS FIXED(8),    /* ASTERISK POSITION          */ 66000000
               2  CATNFLG BIT(8),      /* DATA SET FLAGS             */ 67000000
                 3  CATNFUQ BIT(1),    /* FLAG-ON IF UNQUALIFIED     */ 68000000
               2  CATNMLN FIXED(8),    /* MEMBER NAME LENGTH         */ 69000000
               2  CATNMEM CHAR(8),     /* MEMBER NAME                */ 70000000
               2  CATNLEN FIXED(8),    /* CATALOGUED NAME LENGTH     */ 71000000
               2  CATNVAL CHAR(44);    /* CATALOGUED NAME            */ 72000000
                                                                        73000000
         /* CATALOG DDNAME                                           */ 74000000
         DCL 1 CATDD BASED(FDTPTR( 13)) BDY(HWORD),                     75000000
               2 CATDDLEN FIXED(8),    /* DATA ITEM LENGTH           */ 76000000
               2 CATDDVAL CHAR(  8);   /* DATA ITEM VALUE            */ 77000000
                                                                        78000000
         /* 'LIST' PARM                                              */ 79000000
         DCL  LIST    BASED(FDTPTR( 14));                               80000000
                                                                        81000000
         /* 'NOLIST' PARM                                            */ 82000000
         DCL NLIST    BASED(FDTPTR( 15));                               83000000
                                                                        84000000
         /* 'PASSWORDFILE' PARM                                      */ 85000000
         DCL 1 PFILE BASED(FDTPTR( 16)) BDY(HWORD),                     86000000
               2 PFILECNT FIXED(15),   /* COUNT OF ITEMS IN LIST     */ 87000000
               2 *(255) BDY(HWORD),                                     88000000
                 3 PFILELEN FIXED(8),  /* DATA ITEM LENGTH           */ 89000000
                 3 PFILEVAL CHAR(  8); /* DATA ITEM VALUE            */ 90000000