/************************************************************/ 01000042
         /*                                                          */ 02000042
         /*  'CREATEG ' FUNCTION DATA TABLE DECLARATIONS             */ 03000042
         /*                                                          */ 04000042
         /************************************************************/ 05000042
 %IF BASEFDT = 'YES'                                                    06000042
   %THEN                                                                07000042
     %GO TO BASEFDT1;                                                   08000042
                                                                        09000042
         DCL 1 FDTTBL      BDY(WORD),                                   10000042
 %GO TO BASEFDT2;                                                       11000042
 %BASEFDT1:;                                                            12000042
                                                                        13000042
         DCL 1 FDTTBL      BASED   BDY(WORD),                           14000042
 %BASEFDT2:;                                                            15000042
               2 FDTVERB   CHAR(8),    /* FUNCTION VERBNAME          */ 16000042
               2 FDTPTR(*) PTR(31);    /* SCALAR DATA POINTERS       */ 17000042
                                                                        18000042
         /* DATA DECLARATIONS OF SCALAR DATA ITEMS                   */ 19000042
                                                                        20000042
         /* 'GROUP' NAME                                             */ 21000042
         DCL 1   GRP BASED(FDTPTR(  1)) BDY(HWORD),                     22000042
               2   GRPLEN FIXED(8),    /* DATA ITEM LENGTH           */ 23000042
               2   GRPVAL CHAR(  8);   /* DATA ITEM VALUE            */ 24000042
                                                                        25000042
         /* 'PRIMARY' SPACE                                          */ 26000042
         DCL 1   PRI BASED(FDTPTR(  2)) BDY(WORD),                      27000042
               2   PRIVAL FIXED(31);   /* NUMERIC VALUE              */ 28000042
                                                                        29000042
         /* 'SECONDARY' SPACE                                        */ 30000042
         DCL 1   SEC BASED(FDTPTR(  3)) BDY(WORD),                      31000042
               2   SECVAL FIXED(31);   /* NUMERIC VALUE              */ 32000042
                                                                        33000042
         /* 'THRESHOLD' PERCENTAGE                                   */ 34000042
         DCL 1 THOLD BASED(FDTPTR(  4)) BDY(WORD),                      35000042
               2 THOLDVAL FIXED(31);   /* NUMERIC VALUE              */ 36000042
                                                                        37000042
         /* 'DESCRIPTION' PARAMETER                                  */ 38000042
         DCL 1 DESCR BASED(FDTPTR(  5)) BDY(HWORD),                     39000042
               2 DESCRLEN FIXED(8),    /* DATA ITEM LENGTH           */ 40000042
               2 DESCRVAL CHAR( 30);   /* DATA ITEM VALUE            */ 41000042
                                                                        42000042
         /* 'OWNER' NAME                                             */ 43000042
         DCL 1 OWNER BASED(FDTPTR(  6)) BDY(HWORD),                     44000042
               2 OWNERLEN FIXED(8),    /* DATA ITEM LENGTH           */ 45000042
               2 OWNERVAL CHAR( 10);   /* DATA ITEM VALUE            */ 46000042
                                                                        47000042
         /* 'OWNER' ADDRESS                                          */ 48000042
         DCL 1   ADD BASED(FDTPTR(  7)) BDY(HWORD),                     49000042
               2   ADDLEN FIXED(8),    /* DATA ITEM LENGTH           */ 50000042
               2   ADDVAL CHAR( 30);   /* DATA ITEM VALUE            */ 51000042
                                                                        52000042
         /* 'RETENTIONPERIOD' PARAMETER                              */ 53000042
         DCL 1 RETPD BASED(FDTPTR(  8)) BDY(WORD),                      54000042
               2 RETPDVAL FIXED(31);   /* NUMERIC VALUE              */ 55000042
                                                                        56000042
         /* 'RELEASE' PARAMETER                                      */ 57000042
         DCL  RLSE    BASED(FDTPTR(  9));                               58000042
                                                                        59000042
         /* 'NORELEASE' PARAMETER                                    */ 60000042
         DCL NRLSE    BASED(FDTPTR( 10));                               61000042
                                                                        62000042
         /* 'BIND' PARAMETER                                         */ 63000042
         DCL  BIND    BASED(FDTPTR( 11));                               64000042
                                                                        65000042
         /* 'NOBIND' PARAMETER                                       */ 66000042
         DCL NBIND    BASED(FDTPTR( 12));                               67000042
                                                                        68000042
         /* 'EXCLUSIVE' USE                                          */ 69000042
         DCL   EXC    BASED(FDTPTR( 13));                               70000042
                                                                        71000042
         /* 'SHARED' USE                                             */ 72000042
         DCL  SHRD    BASED(FDTPTR( 14));                               73000042
                                                                        74000042
         /* 'DASDERASE' PARAMETER                                    */ 75000042
         DCL DERAS    BASED(FDTPTR( 15));                               76000042
                                                                        77000042
         /* 'NODASDERASE' PARAMETER                                  */ 78000042
         DCL NDERA    BASED(FDTPTR( 16));                               79000042
                                                                        80000042
         /* 'READONLY' PARAMETER                                     */ 81000042
         DCL RONLY    BASED(FDTPTR( 17));                               82000042
                                                                        83000042
         /* 'READWRITE' PARAMETER                                    */ 84000042
         DCL    RW    BASED(FDTPTR( 18));                               85000042
                                                                        86000042
         /* 'CONCURRENTUSERS' PARAMETER                              */ 87000042
         DCL 1 CONUS BASED(FDTPTR( 19)) BDY(WORD),                      88000042
               2 CONUSVAL FIXED(31);   /* NUMERIC VALUE              */ 89000042
                                                                        90000042
         /* 'RESERVEDSPACE' PARAMETER                                */ 91000042
         DCL 1 RSVDS BASED(FDTPTR( 20)) BDY(WORD),                      92000042
               2 RSVDSVAL FIXED(31);   /* NUMERIC VALUE              */ 93000042