/************************************************************/ 03000000
         /*                                                  @Y30LB36*/ 06000000
         /*  'SCRATCHG' FUNCTION DATA TABLE DECLARATIONS     @Y30LB36*/ 09000000
         /*                                                  @Y30LB36*/ 12000000
         /************************************************************/ 15000000
 %IF BASEFDT = 'YES'                                       /*@Y30LB36*/ 18000000
   %THEN                                                   /*@Y30LB36*/ 21000000
     %GO TO BASEFDT1;                                      /*@Y30LB36*/ 24000000
                                                                        27000000
         DCL 1 FDTTBL      BDY(WORD),                      /*@Y30LB36*/ 30000000
 %GO TO BASEFDT2;                                          /*@Y30LB36*/ 33000000
 %BASEFDT1:;                                               /*@Y30LB36*/ 36000000
                                                                        39000000
         DCL 1 FDTTBL      BASED   BDY(WORD),              /*@Y30LB36*/ 42000000
 %BASEFDT2:;                                               /*@Y30LB36*/ 45000000
               2 FDTVERB   CHAR(8),    /* FUNCTION VERBNAME  @Y30LB36*/ 48000000
               2 FDTPTR(*) PTR(31);    /* SCALAR DATA PRTS   @Y30LB36*/ 51000000
                                                                        54000000
         /* DATA DECLARATIONS OF SCALAR DATA ITEMS           @Y30LB36*/ 57000000
                                                                        60000000
         /* 'GROUP' NAME                                     @Y30LB36*/ 63000000
         DCL 1   GRP BASED(FDTPTR(  1)) BDY(HWORD),        /*@Y30LB36*/ 66000000
               2   GRPLEN FIXED(8),    /* DATA ITEM LENGTH   @Y30LB36*/ 69000000
               2   GRPVAL CHAR(  8);   /* DATA ITEM VALUE    @Y30LB36*/ 72000000
         DCL   GRPCNT FIXED(31) BASED(ADDR(FDTPTR(  1)));  /*@Y30LB36*/ 75000000