/************************************************************/ 00900042
         /*                                                          */ 01800042
         /*  'MODIFYG ' FUNCTION DATA TABLE DECLARATIONS             */ 02700042
         /*                                                          */ 03600042
         /************************************************************/ 04500042
 %IF BASEFDT = 'YES'                                                    05400042
   %THEN                                                                06300042
     %GO TO BASEFDT1;                                                   07200042
                                                                        08100042
         DCL 1 FDTTBL      BDY(WORD),                                   09000042
 %GO TO BASEFDT2;                                                       09900042
 %BASEFDT1:;                                                            10800042
                                                                        11700042
         DCL 1 FDTTBL      BASED   BDY(WORD),                           12600042
 %BASEFDT2:;                                                            13500042
               2 FDTVERB   CHAR(8),    /* FUNCTION VERBNAME          */ 14400042
               2 FDTPTR(*) PTR(31);    /* SCALAR DATA POINTERS       */ 15300042
                                                                        16200042
         /* DATA DECLARATIONS OF SCALAR DATA ITEMS                   */ 17100042
                                                                        18000042
         /* 'GROUP' NAME                                             */ 18900042
         DCL 1   GRP BASED(FDTPTR(  1)) BDY(HWORD),                     19800042
               2   GRPLEN FIXED(8),    /* DATA ITEM LENGTH           */ 20700042
               2   GRPVAL CHAR(  8);   /* DATA ITEM VALUE            */ 21600042
                                                                        22500042
         /* 'PRIMARY' SPACE                                          */ 23400042
         DCL 1   PRI BASED(FDTPTR(  2)) BDY(WORD),                      24300042
               2   PRIVAL FIXED(31);   /* NUMERIC VALUE              */ 25200042
                                                                        26100042
         /* 'SECONDARY' SPACE                                        */ 27000042
         DCL 1   SEC BASED(FDTPTR(  3)) BDY(WORD),                      27900042
               2   SECVAL FIXED(31);   /* NUMERIC VALUE              */ 28800042
                                                                        29700042
         /* 'THRESHOLD' PERCENTAGE                                   */ 30600042
         DCL 1 THOLD BASED(FDTPTR(  4)) BDY(WORD),                      31500042
               2 THOLDVAL FIXED(31);   /* NUMERIC VALUE              */ 32400042
                                                                        33300042
         /* 'DESCRIPTION' PARAMETER                                  */ 34200042
         DCL 1 DESCR BASED(FDTPTR(  5)) BDY(HWORD),                     35100042
               2 DESCRLEN FIXED(8),    /* DATA ITEM LENGTH           */ 36000042
               2 DESCRVAL CHAR( 30);   /* DATA ITEM VALUE            */ 36900042
                                                                        37800042
         /* 'OWNER' NAME                                             */ 38700042
         DCL 1 OWNER BASED(FDTPTR(  6)) BDY(HWORD),                     39600042
               2 OWNERLEN FIXED(8),    /* DATA ITEM LENGTH           */ 40500042
               2 OWNERVAL CHAR( 10);   /* DATA ITEM VALUE            */ 41400042
                                                                        42300042
         /* 'OWNER' ADDRESS                                          */ 43200042
         DCL 1   ADD BASED(FDTPTR(  7)) BDY(HWORD),                     44100042
               2   ADDLEN FIXED(8),    /* DATA ITEM LENGTH           */ 45000042
               2   ADDVAL CHAR( 30);   /* DATA ITEM VALUE            */ 45900042
                                                                        46800042
         /* 'RETENTIONPERIOD' PARAMETER                              */ 47700042
         DCL 1 RETPD BASED(FDTPTR(  8)) BDY(WORD),                      48600042
               2 RETPDVAL FIXED(31);   /* NUMERIC VALUE              */ 49500042
                                                                        50400042
         /* 'NULLIFY' PARAMETER                                      */ 51300042
         DCL NULLF    BASED(FDTPTR(  9));                               52200042
                                                                        53100042
         /* 'NULLIFY THRESHOLD' FLAG                                 */ 54000042
         DCL NTHOL    BASED(FDTPTR( 10));                               54900042
                                                                        55800042
         /* 'NULLIFY DESCRIPTION' FLAG                               */ 56700042
         DCL NDESC    BASED(FDTPTR( 11));                               57600042
                                                                        58500042
         /* 'NULLIFY OWNER' FLAG                                     */ 59400042
         DCL  NOWN    BASED(FDTPTR( 12));                               60300042
                                                                        61200042
         /* 'NULLIFY ADDRESS' FLAG                                   */ 62100042
         DCL NADDR    BASED(FDTPTR( 13));                               63000042
                                                                        63900042
         /* 'NULLIFY RETENTIONPERIOD' FLAG                           */ 64800042
         DCL NRTPD    BASED(FDTPTR( 14));                               65700042
                                                                        66600042
         /* 'RELEASE' PARAMETER                                      */ 67500042
         DCL  RLSE    BASED(FDTPTR( 15));                               68400042
                                                                        69300042
         /* 'NORELEASE' PARAMETER                                    */ 70200042
         DCL NRLSE    BASED(FDTPTR( 16));                               71100042
                                                                        72000042
         /* 'BIND' PARAMETER                                         */ 72900042
         DCL  BIND    BASED(FDTPTR( 17));                               73800042
                                                                        74700042
         /* 'NOBIND' PARAMETER                                       */ 75600042
         DCL NBIND    BASED(FDTPTR( 18));                               76500042
                                                                        77400042
         /* 'EXCLUSIVE' USE                                          */ 78300042
         DCL   EXC    BASED(FDTPTR( 19));                               79200042
                                                                        80100042
         /* 'SHARED' USE                                             */ 81000042
         DCL  SHRD    BASED(FDTPTR( 20));                               81900042
                                                                        82800042
         /* 'DASDERASE' PARAMETER                                    */ 83700042
         DCL DERAS    BASED(FDTPTR( 21));                               84600042
                                                                        85500042
         /* 'NODASDERASE' PARAMETER                                  */ 86400042
         DCL NDERA    BASED(FDTPTR( 22));                               87300042
                                                                        88200042
         /* 'READONLY' PARAMETER                                     */ 89100042
         DCL RONLY    BASED(FDTPTR( 23));                               90000042
                                                                        90900042
         /* 'READWRITE' PARAMETER                                    */ 91800042
         DCL    RW    BASED(FDTPTR( 24));                               92700042
                                                                        93600042
         /* 'CONCURRENTUSERS' PARAMETER                              */ 94500042
         DCL 1 CONUS BASED(FDTPTR( 25)) BDY(WORD),                      95400042
               2 CONUSVAL FIXED(31);   /* NUMERIC VALUE              */ 96300042
                                                                        97200042
         /* 'RESERVEDSPACE' PARAMETER                                */ 98100042
         DCL 1 RSVDS BASED(FDTPTR( 26)) BDY(WORD),                      99000042
               2 RSVDSVAL FIXED(31);   /* NUMERIC VALUE              */ 99900042