/************************************************************/ 01000000
         /*                                                  @Y30LB31*/ 02000000
         /*  'STOREV  ' FUNCTION DATA TABLE DECLARATIONS     @Y30LB31*/ 03000000
         /*                                                  @Y30LB31*/ 04000000
         /************************************************************/ 05000000
 %IF BASEFDT = 'YES'                                                    06000000
   %THEN                                                                07000000
     %GO TO BASEFDT1;                                      /*@Y30LB31*/ 08000000
                                                                        09000000
         DCL 1 FDTTBL      BDY(WORD),                                   10000000
 %GO TO BASEFDT2;                                          /*@Y30LB31*/ 11000000
 %BASEFDT1:;                                               /*@Y30LB31*/ 12000000
                                                                        13000000
         DCL 1 FDTTBL      BASED   BDY(WORD),                           14000000
 %BASEFDT2:;                                               /*@Y30LB31*/ 15000000
               2 FDTVERB   CHAR(8),    /* FUNCTION VERBNAME  @Y30LB31*/ 16000000
               2 FDTPTR(*) PTR(31);    /* SCALAR DATA POINTERS       */ 17000000
                                                                        18000000
         /* DATA DECLARATIONS OF SCALAR DATA ITEMS           @Y30LB31*/ 19000000
                                                                        20000000
         /* 'VOLUME' SERIAL NO.                              @Y30LB31*/ 21000000
         DCL 1   VOL BASED(FDTPTR(  1)) BDY(HWORD),                     22000000
               2   VOLLEN FIXED(8),    /* DATA ITEM LENGTH   @Y30LB31*/ 23000000
               2   VOLVAL CHAR(  6);   /* DATA ITEM VALUE    @Y30LB31*/ 24000000
                                                                        25000000
         /* 'NEWSERIAL' VOLUME SERIAL NO.                    @Y30LB31*/ 26000000
         DCL 1  NSER BASED(FDTPTR(  2)) BDY(HWORD),                     27000000
               2  NSERLEN FIXED(8),    /* DATA ITEM LENGTH   @Y30LB31*/ 28000000
               2  NSERVAL CHAR(  6);   /* DATA ITEM VALUE    @Y30LB31*/ 29000000
                                                                        30000000
         /* 'EJECT' PARM                                     @Y30LB31*/ 31000000
         DCL EJECT    BASED(FDTPTR(  3));                  /*@Y30LB31*/ 32000000
                                                                        33000000
         /* 'NOEJECT' PARM                                   @Y30LB31*/ 34000000
         DCL NEJEC    BASED(FDTPTR(  4));                  /*@Y30LB31*/ 35000000
                                                                        36000000
         /* 'RECORD' PARM                                    @Y30LB31*/ 37000000
         DCL   REC    BASED(FDTPTR(  5));                  /*@Y30LB31*/ 38000000
                                                                        39000000
         /* 'NORECORD' PARM                                  @Y30LB31*/ 40000000
         DCL  NREC    BASED(FDTPTR(  6));                  /*@Y30LB31*/ 41000000
                                                                        42000000
         /* 'LOCATION' OF EJECTED VOLUME                     @Y30LB31*/ 43000000
         DCL 1   LOC BASED(FDTPTR(  7)) BDY(HWORD),                     44000000
               2   LOCLEN FIXED(8),    /* DATA ITEM LENGTH   @Y30LB31*/ 45000000
               2   LOCVAL CHAR( 30);   /* DATA ITEM VALUE    @Y30LB31*/ 46000000
                                                                        47000000
         /* 'CATALOG' PARM                                   @Y30LB31*/ 48000000
         DCL   CAT    BASED(FDTPTR(  8));                  /*@Y30LB31*/ 49000000
                                                                        50000000
         /* 'CATALOG' CATNAME/PASSWORD VALUE                 @Y30LB31*/ 51000000
         DCL 1 CATNM BASED(FDTPTR(  9)) BDY(HWORD),                     52000000
               2 CATNMPLN FIXED(8),    /* PASSWORD LENGTH    @Y30LB31*/ 53000000
               2 CATNMPAS CHAR(8),     /* PASSWORD VALUE     @Y30LB31*/ 54000000
               2 CATNMPOS FIXED(8),    /* ASTERISK POSITION  @Y30LB31*/ 55000000
               2 CATNMFLG BIT(8),      /* DATA SET FLAGS     @Y30LB31*/ 56000000
                 3 CATNMFUQ BIT(1),    /* FLAG-ON IF UNQUALIFIED     */ 57000000
               2 CATNMMLN FIXED(8),    /* MEMBER NAME LENGTH @Y30LB31*/ 58000000
               2 CATNMMEM CHAR(8),     /* MEMBER NAME        @Y30LB31*/ 59000000
               2 CATNMLEN FIXED(8),    /* CATALOGUED NAME LENGTH     */ 60000000
               2 CATNMVAL CHAR(44);    /* CATALOGUED NAME    @Y30LB31*/ 61000000
                                                                        62000000
         /* 'CATALOG' DNAME VALUE                            @Y30LB31*/ 63000000
         DCL 1 CATDN BASED(FDTPTR( 10)) BDY(HWORD),                     64000000
               2 CATDNLEN FIXED(8),    /* DATA ITEM LENGTH   @Y30LB31*/ 65000000
               2 CATDNVAL CHAR(  8);   /* DATA ITEM VALUE    @Y30LB31*/ 66000000
                                                                        67000000
         /* 'FILE' DDNAME VALUE                              @Y30LB31*/ 68000000
         DCL 1  FILE BASED(FDTPTR( 11)) BDY(HWORD),                     69000000
               2  FILELEN FIXED(8),    /* DATA ITEM LENGTH   @Y30LB31*/ 70000000
               2  FILEVAL CHAR(  8);   /* DATA ITEM VALUE    @Y30LB31*/ 71000000
                                                                        72000000
         /* 'PASSWORDFILES' PARM                             @Y30LB31*/ 73000000
         DCL 1 PFILE BASED(FDTPTR( 12)) BDY(HWORD),                     74000000
               2 PFILECNT FIXED(15),   /* COUNT OF ITEMS IN LIST     */ 75000000
               2 *(255) BDY(HWORD),                                     76000000
                 3 PFILELEN FIXED(8),  /* DATA ITEM LENGTH   @Y30LB31*/ 77000000
                 3 PFILEVAL CHAR(  8); /* DATA ITEM VALUE    @Y30LB31*/ 78000000