/************************************************************/ 02000003
         /*                                                  @Y30LB00*/ 04000003
         /*  'TUNE    ' FUNCTION DATA TABLE DECLARATIONS     @Y30LB00*/ 06000003
         /*                                                  @Y30LB00*/ 08000003
         /************************************************************/ 10000003
 %IF BASEFDT = 'YES'                                                    12000003
   %THEN                                                                14000003
     %GO TO BASEFDT1;                                                   16000003
                                                                        18000003
         DCL 1 FDTTBL      BDY(WORD),                                   20000003
 %GO TO BASEFDT2;                                                       22000003
 %BASEFDT1:;                                                            24000003
                                                                        26000003
         DCL 1 FDTTBL      BASED   BDY(WORD),                           28000003
 %BASEFDT2:;                                                            30000003
               2 FDTVERB   CHAR(8),    /* FUNCTION VERBNAME          */ 32000003
               2 FDTPTR(*) PTR(31);    /* SCALAR DATA POINTERS       */ 34000003
                                                                        36000003
         /* DATA DECLARATIONS OF SCALAR DATA ITEMS                   */ 38000003
                                                                        40000003
         /* 'DISPLAY' PARM                                           */ 42000003
         DCL   DIS    BASED(FDTPTR(  1));                               44000003
                                                                        46000003
         /* 'CHANGE' PARM                                            */ 48000003
         DCL  CHNG    BASED(FDTPTR(  2));                               50000003
                                                                        52000003
         /* 'LRUCLOCK' VALUE IN SECONDS                              */ 54000003
         DCL 1  LRUC BASED(FDTPTR(  3)) BDY(WORD),                      56000003
               2  LRUCVAL FIXED(31);   /* NUMERIC VALUE              */ 58000003
                                                                        60000003
         /* 'STAGINGDRIVEGROUP' NUMBER                               */ 62000003
         DCL 1   SDG BASED(FDTPTR(  4)) BDY(WORD),                      64000003
               2   SDGVAL FIXED(31);   /* NUMERIC VALUE              */ 66000003
                                                                        68000003
         /* 'ACTIVEPAGES' LOWER AND HIGHER NUMBER OF PAGES           */ 70000003
         DCL  ACTP    BASED(FDTPTR(  5));                               72000003
                                                                        74000003
         /* 'ACTIVEPAGES' LOWER NUMBER OF PAGES                      */ 76000003
         DCL 1 ACTPL BASED(FDTPTR(  6)) BDY(WORD),                      78000003
               2 ACTPLVAL FIXED(31);   /* NUMERIC VALUE              */ 80000003
                                                                        82000003
         /* 'ACTIVEPAGES' HIGHER NUMBER OF PAGES                     */ 84000003
         DCL 1 ACTPH BASED(FDTPTR(  7)) BDY(WORD),                      86000003
               2 ACTPHVAL FIXED(31);   /* NUMERIC VALUE              */ 88000003
                                                                        90000003
         /* 'LRUGROUPS' UNITS                                        */ 92000003
         DCL 1 LRUGR BASED(FDTPTR(  8)) BDY(WORD),                      94000003
               2 LRUGRCNT FIXED(31),   /* COUNT OF ITEMS IN LIST     */ 96000003
               2 LRUGRVAL(  4) FIXED(31);/* DATA ITEMS               */ 98000003