/************************************************************/ 01000000
         /*                                                          */ 02000000
         /*  'TRACE   ' FUNCTION DATA TABLE DECLARATIONS             */ 03000000
         /*                                                          */ 04000000
         /************************************************************/ 05000000
 %IF BASEFDT = 'YES'                                                    06000000
   %THEN                                                                07000000
     %GO TO BASEFDT1;                                                   08000000
                                                                        09000000
         DCL 1 FDTTBL      BDY(WORD),                                   10000000
 %GO TO BASEFDT2;                                                       11000000
 %BASEFDT1:;                                                            12000000
                                                                        13000000
         DCL 1 FDTTBL      BASED   BDY(WORD),                           14000000
 %BASEFDT2:;                                                            15000000
               2 FDTVERB   CHAR(8),    /* FUNCTION VERBNAME          */ 16000000
               2 FDTPTR(*) PTR(31);    /* SCALAR DATA POINTERS       */ 17000000
                                                                        18000000
         /* DATA DECLARATIONS OF SCALAR DATA ITEMS                   */ 19000000
                                                                        20000000
         /* 'TRACE OP' ON                                            */ 21000000
         DCL  ZXON    BASED(FDTPTR(  1));                               22000000
                                                                        23000000
         /* 'TRACE OP' OFF                                           */ 24000000
         DCL ZXOFF    BASED(FDTPTR(  2));                               25000000
                                                                        26000000
         /* 'TRACE OP' DUMP                                          */ 27000000
         DCL  DUMP    BASED(FDTPTR(  3));                               28000000
                                                                        29000000
         /* 'TRACE DATA' X                                           */ 30000000
         DCL     X    BASED(FDTPTR(  4));                               31000000
                                                                        32000000
         /* 'TRACE DATA' Y                                           */ 33000000
         DCL     Y    BASED(FDTPTR(  5));                               34000000
                                                                        35000000
         /* 'TRACE DATA' BOTH                                        */ 36000000
         DCL  BOTH    BASED(FDTPTR(  6));                               37000000
                                                                        38000000
         /* 'TRACE DATA' ACTIVE                                      */ 39000000
         DCL   ACT    BASED(FDTPTR(  7));                               40000000
                                                                        41000000
         /* 'TRACE DATA' INACTIVE                                    */ 42000000
         DCL INACT    BASED(FDTPTR(  8));                               43000000
                                                                        44000000
         /* 'TRACE EXTENT' CURRENT                                   */ 45000000
         DCL  CURR    BASED(FDTPTR(  9));                               46000000
                                                                        47000000
         /* 'TRACE EXTENT' MAXIMUM                                   */ 48000000
         DCL ZXMAX    BASED(FDTPTR( 10));                               49000000
                                                                        50000000
         /* 'TRACE OUTPUT' DDNAME                                    */ 51000000
         DCL 1 OFILE BASED(FDTPTR( 11)) BDY(HWORD),                     52000000
               2 OFILELEN FIXED(8),    /* DATA ITEM LENGTH           */ 53000000
               2 OFILEVAL CHAR(  8);   /* DATA ITEM VALUE            */ 54000000
                                                                        55000000
         /* 'TRACE OUTPUT' DSNAME                                    */ 56000000
         DCL 1   ODS BASED(FDTPTR( 12)) BDY(HWORD),                     57000000
               2   ODSPLN FIXED(8),    /* PASSWORD LENGTH            */ 58000000
               2   ODSPAS CHAR(8),     /* PASSWORD VALUE             */ 59000000
               2   ODSPOS FIXED(8),    /* ASTERISK POSITION          */ 60000000
               2   ODSFLG BIT(8),      /* DATA SET FLAGS             */ 61000000
                 3   ODSFUQ BIT(1),    /* FLAG-ON IF UNQUALIFIED     */ 62000000
               2   ODSMLN FIXED(8),    /* MEMBER NAME LENGTH         */ 63000000
               2   ODSMEM CHAR(8),     /* MEMBER NAME                */ 64000000
               2   ODSLEN FIXED(8),    /* CATALOGUED NAME LENGTH     */ 65000000
               2   ODSVAL CHAR(44);    /* CATALOGUED NAME            */ 66000000
                                                                        67000000
         /* 'TRACE WORK' DDNAME                                      */ 68000000
         DCL 1 WFILE BASED(FDTPTR( 13)) BDY(HWORD),                     69000000
               2 WFILELEN FIXED(8),    /* DATA ITEM LENGTH           */ 70000000
               2 WFILEVAL CHAR(  8);   /* DATA ITEM VALUE            */ 71000000
                                                                        72000000
         /* 'TRACE WORK' DSNAME                                      */ 73000000
         DCL 1   WDS BASED(FDTPTR( 14)) BDY(HWORD),                     74000000
               2   WDSPLN FIXED(8),    /* PASSWORD LENGTH            */ 75000000
               2   WDSPAS CHAR(8),     /* PASSWORD VALUE             */ 76000000
               2   WDSPOS FIXED(8),    /* ASTERISK POSITION          */ 77000000
               2   WDSFLG BIT(8),      /* DATA SET FLAGS             */ 78000000
                 3   WDSFUQ BIT(1),    /* FLAG-ON IF UNQUALIFIED     */ 79000000
               2   WDSMLN FIXED(8),    /* MEMBER NAME LENGTH         */ 80000000
               2   WDSMEM CHAR(8),     /* MEMBER NAME                */ 81000000
               2   WDSLEN FIXED(8),    /* CATALOGUED NAME LENGTH     */ 82000000
               2   WDSVAL CHAR(44);    /* CATALOGUED NAME            */ 83000000