/************************************************************/ 01000000
         /*                                                          */ 02000000
         /*  'RECV    ' 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
         /* 'FROMVOLUME' SERIAL NO.                                  */ 21000000
         DCL 1  FVOL BASED(FDTPTR(  1)) BDY(HWORD),                     22000000
               2  FVOLLEN FIXED(8),    /* DATA ITEM LENGTH           */ 23000000
               2  FVOLVAL CHAR(  6);   /* DATA ITEM VALUE            */ 24000000
                                                                        25000000
         /* 'TOVOLUME' SERIAL NO.                                    */ 26000000
         DCL 1  TVOL BASED(FDTPTR(  2)) BDY(HWORD),                     27000000
               2  TVOLLEN FIXED(8),    /* DATA ITEM LENGTH           */ 28000000
               2  TVOLVAL CHAR(  6);   /* DATA ITEM VALUE            */ 29000000
                                                                        30000000
         /* 'COPYDATE' PARM                                          */ 31000000
         DCL CDATE    BASED(FDTPTR(  3));                               32000000
                                                                        33000000
         /* 'COPYDATE' JULIAN DATE VALUE                             */ 34000000
         DCL 1  DATE BASED(FDTPTR(  4)) BDY(WORD),                      35000000
               2  DATEVAL FIXED(31);   /* NUMERIC VALUE              */ 36000000
                                                                        37000000
         /* 'COPYDATE' SEQUENCE NO.                                  */ 38000000
         DCL 1  SEQ# BASED(FDTPTR(  5)) BDY(WORD),                      39000000
               2  SEQ#VAL FIXED(31);   /* NUMERIC VALUE              */ 40000000
                                                                        41000000
         /* 'LATESTBACKUP' PARM                                      */ 42000000
         DCL LBKUP    BASED(FDTPTR(  6));                               43000000
                                                                        44000000
         /* 'CATALOG' PARM                                           */ 45000000
         DCL   CAT    BASED(FDTPTR(  7));                               46000000
                                                                        47000000
         /* 'CATALOG' CATNAME/PASSWORD VALUE                         */ 48000000
         DCL 1 CATNM BASED(FDTPTR(  8)) BDY(HWORD),                     49000000
               2 CATNMPLN FIXED(8),    /* PASSWORD LENGTH            */ 50000000
               2 CATNMPAS CHAR(8),     /* PASSWORD VALUE             */ 51000000
               2 CATNMPOS FIXED(8),    /* ASTERISK POSITION          */ 52000000
               2 CATNMFLG BIT(8),      /* DATA SET FLAGS             */ 53000000
                 3 CATNMFUQ BIT(1),    /* FLAG-ON IF UNQUALIFIED     */ 54000000
               2 CATNMMLN FIXED(8),    /* MEMBER NAME LENGTH         */ 55000000
               2 CATNMMEM CHAR(8),     /* MEMBER NAME                */ 56000000
               2 CATNMLEN FIXED(8),    /* CATALOGUED NAME LENGTH     */ 57000000
               2 CATNMVAL CHAR(44);    /* CATALOGUED NAME            */ 58000000
                                                                        59000000
         /* 'CATALOG' DNAME VALUE                                    */ 60000000
         DCL 1 CATDN BASED(FDTPTR(  9)) BDY(HWORD),                     61000000
               2 CATDNLEN FIXED(8),    /* DATA ITEM LENGTH           */ 62000000
               2 CATDNVAL CHAR(  8);   /* DATA ITEM VALUE            */ 63000000
                                                                        64000000
         /* 'FILE' DNAME VALUE                                       */ 65000000
         DCL 1  FILE BASED(FDTPTR( 10)) BDY(HWORD),                     66000000
               2  FILELEN FIXED(8),    /* DATA ITEM LENGTH           */ 67000000
               2  FILEVAL CHAR(  8);   /* DATA ITEM VALUE            */ 68000000
                                                                        69000000
         /* 'PASSWORDFILES' PARM                                     */ 70000000
         DCL 1 PFILE BASED(FDTPTR( 11)) BDY(HWORD),                     71000000
               2 PFILECNT FIXED(15),   /* COUNT OF ITEMS IN LIST     */ 72000000
               2 *(255) BDY(HWORD),                                     73000000
                 3 PFILELEN FIXED(8),  /* DATA ITEM LENGTH           */ 74000000
                 3 PFILEVAL CHAR(  8); /* DATA ITEM VALUE            */ 75000000