/************************************************************/ 02000000
         /*                                                  @Y30LB32*/ 04000000
         /*  'EJECTC  ' FUNCTION DATA TABLE DECLARATIONS     @Y30LB32*/ 06000000
         /*                                                  @Y30LB32*/ 08000000
         /************************************************************/ 10000000
 %IF BASEFDT = 'YES'                                       /*@Y30LB32*/ 12000000
   %THEN                                                   /*@Y30LB32*/ 14000000
     %GO TO BASEFDT1;                                      /*@Y30LB32*/ 16000000
                                                                        18000000
         DCL 1 FDTTBL      BDY(WORD),                      /*@Y30LB32*/ 20000000
 %GO TO BASEFDT2;                                          /*@Y30LB32*/ 22000000
 %BASEFDT1:;                                               /*@Y30LB32*/ 24000000
                                                                        26000000
         DCL 1 FDTTBL      BASED   BDY(WORD),              /*@Y30LB32*/ 28000000
 %BASEFDT2:;                                               /*@Y30LB32*/ 30000000
               2 FDTVERB   CHAR(8),    /* FUNCTION VERBNAME  @Y30LB32*/ 32000000
               2 FDTPTR(*) PTR(31);    /* SCALAR DATA        @Y30LB32*/ 34000000
                                       /* POINTERS           @Y30LB32*/ 36000000
         /* DATA DECLARATIONS OF SCALAR DATA ITEMS           @Y30LB32*/ 38000000
                                                                        40000000
         /* CARTRIDGE SERIAL NUMBER                          @Y30LB32*/ 42000000
         DCL 1  CART BASED(FDTPTR(  1)) BDY(HWORD),        /*@Y30LB32*/ 44000000
               2  CARTCNT FIXED(15),   /* COUNT OF ITEMS IN  @Y30LB32*/ 46000000
                                       /* LIST               @Y30LB32*/ 46050000
               2 *(255) BDY(HWORD),                        /*@Y30LB32*/ 48000000
                 3  CARTLEN FIXED(8),  /* DATA ITEM LENGTH   @Y30LB32*/ 50000000
                 3  CARTVAL CHAR( 12); /* DATA ITEM VALUE    @Y30LB32*/ 52000000
                                                                        54000000
         /* NUMBER SCRATCH CARTRIDGES                        @Y30LB32*/ 56000000
         DCL 1   CNT BASED(FDTPTR(  2)) BDY(WORD),         /*@Y30LB32*/ 58000000
               2   CNTVAL FIXED(31);   /* NUMERIC VALUE      @Y30LB32*/ 60000000
                                                                        62000000
         /* 'ALL'PARAMETER                                   @Y30LB32*/ 64000000
         DCL  ALLC    BASED(FDTPTR(  3));                  /*@Y30LB32*/ 66000000
                                                                        68000000
         /* MASS STORAGE FACILITY ID                         @Y30LB32*/ 70000000
         DCL 1   MSF BASED(FDTPTR(  4)) BDY(WORD),         /*@Y30LB32*/ 72000000
               2   MSFVAL FIXED(31);   /* NUMERIC VALUE      @Y30LB32*/ 74000000