/************************************************************/ 01000000
         /*                                                  @Y30LB38*/ 02000000
         /*  'EJECTV  ' FUNCTION DATA TABLE DECLARATIONS     @Y30LB38*/ 03000000
         /*                                                  @Y30LB38*/ 04000000
         /************************************************************/ 05000000
 %IF BASEFDT = 'YES'                                                    06000000
   %THEN                                                                07000000
     %GO TO BASEFDT1;                                      /*@Y30LB38*/ 08000000
                                                                        09000000
         DCL 1 FDTTBL      BDY(WORD),                                   10000000
 %GO TO BASEFDT2;                                          /*@Y30LB38*/ 11000000
 %BASEFDT1:;                                               /*@Y30LB38*/ 12000000
                                                                        13000000
         DCL 1 FDTTBL      BASED   BDY(WORD),                           14000000
 %BASEFDT2:;                                               /*@Y30LB38*/ 15000000
               2 FDTVERB   CHAR(8),    /* FUNCTION VERBNAME  @Y30LB38*/ 16000000
               2 FDTPTR(*) PTR(31);    /* SCALAR DATA POINTERS       */ 17000000
                                                                        18000000
         /* DATA DECLARATIONS OF SCALAR DATA ITEMS           @Y30LB38*/ 19000000
                                                                        20000000
         /* VOLUME SERIAL NUMBERS                            @Y30LB38*/ 21000000
         DCL 1   VOL BASED(FDTPTR(  1)) BDY(HWORD),                     22000000
               2   VOLLEN FIXED(8),    /* DATA ITEM LENGTH   @Y30LB38*/ 23000000
               2   VOLVAL CHAR(  6);   /* DATA ITEM VALUE    @Y30LB38*/ 24000000
                                                                        25000000
         /* 'COPYDATE' PARAMETER                             @Y30LB38*/ 26000000
         DCL CDATE    BASED(FDTPTR(  2));                  /*@Y30LB38*/ 27000000
                                                                        28000000
         /* DATE COPY CREATED                                @Y30LB38*/ 29000000
         DCL 1  DATE BASED(FDTPTR(  3)) BDY(WORD),                      30000000
               2  DATEVAL FIXED(31);   /* NUMERIC VALUE      @Y30LB38*/ 31000000
                                                                        32000000
         /* 'COPYDATE' COPY NUMBER                           @Y30LB38*/ 33000000
         DCL 1   SEQ BASED(FDTPTR(  4)) BDY(WORD),                      34000000
               2   SEQVAL FIXED(31);   /* NUMERIC VALUE      @Y30LB38*/ 35000000
                                                                        36000000
         /* CARTRIDGE SERIAL NUMBER                          @Y30LB38*/ 37000000
         DCL 1  CART BASED(FDTPTR(  5)) BDY(HWORD),                     38000000
               2  CARTLEN FIXED(8),    /* DATA ITEM LENGTH   @Y30LB38*/ 39000000
               2  CARTVAL CHAR( 12);   /* DATA ITEM VALUE    @Y30LB38*/ 40000000
                                                                        41000000
         /* 'RECORD' PARAMETER                               @Y30LB38*/ 42000000
         DCL   REC    BASED(FDTPTR(  6));                  /*@Y30LB38*/ 43000000
                                                                        44000000
         /* 'NORECORD' PARAMETER                             @Y30LB38*/ 45000000
         DCL  NREC    BASED(FDTPTR(  7));                  /*@Y30LB38*/ 46000000
                                                                        47000000
         /* LOCATION DATA                                    @Y30LB38*/ 48000000
         DCL 1   LOC BASED(FDTPTR(  8)) BDY(HWORD),                     49000000
               2   LOCLEN FIXED(8),    /* DATA ITEM LENGTH   @Y30LB38*/ 50000000
               2   LOCVAL CHAR( 30);   /* DATA ITEM VALUE    @Y30LB38*/ 51000000