/************************************************************/ 00800003 /* */ 01600003 /* 'AUDITMSS' FUNCTION DATA TABLE DECLARATIONS */ 02400003 /* */ 03200003 /************************************************************/ 04000003 %IF BASEFDT = 'YES' 04800003 %THEN 05600003 %GO TO BASEFDT1; 06400003 07200003 DCL 1 FDTTBL BDY(WORD), 08000003 %GO TO BASEFDT2; 08800003 %BASEFDT1:; 09600003 10400003 DCL 1 FDTTBL BASED BDY(WORD), 11200003 %BASEFDT2:; 12000003 2 FDTVERB CHAR(8), /* FUNCTION VERBNAME */ 12800003 2 FDTPTR(*) PTR(31); /* SCALAR DATA POINTERS */ 13600003 14400003 /* DATA DECLARATIONS OF SCALAR DATA ITEMS */ 15200003 16000003 /* 'MAP' OPTION */ 16800003 DCL MAP BASED(FDTPTR( 1)); 17600003 18400003 /* 'CHECK' OPTION */ 19200003 DCL CHK BASED(FDTPTR( 2)); 20000003 20800003 /* 'READLABEL' OPTION */ 21600003 DCL RDLBL BASED(FDTPTR( 3)); 22400003 23200003 /* 'FULL' CELL-CHECK OPTION */ 24000003 DCL FULL BASED(FDTPTR( 4)); 24800003 25600003 /* 'EMPTY' CELL-CHECK OPTION */ 26400003 DCL EMPTY BASED(FDTPTR( 5)); 27200003 28000003 /* 'ALL' CELL-CHECK OPTION */ 28800003 DCL CHALL BASED(FDTPTR( 6)); 29600003 30400003 /* ID NUMBER OF MSF */ 31200003 DCL 1 MSF BASED(FDTPTR( 7)) BDY(WORD), 32000003 2 MSFVAL FIXED(31); /* NUMERIC VALUE */ 32800003 33600003 /* 'XRANGE' AUDIT-LIMIT OPTION */ 34400003 DCL XRNG BASED(FDTPTR( 8)); 35200003 DCL XRNGCNT FIXED(31) BASED(ADDR(FDTPTR( 8))); 36000003 36800003 /* LOW X-VALUE OF RANGE */ 37600003 DCL LOWXPTR(100) PTR(31) BASED(FDTPTR( 9)); 38400003 DCL 1 LOWX BASED BDY(WORD), 39200003 2 LOWXVAL FIXED(31); /* NUMERIC VALUE */ 40000003 40800003 /* HIGH X-VALUE OF RANGE */ 41600003 DCL HIGHXPTR(100) PTR(31) BASED(FDTPTR( 10)); 42400003 DCL 1 HIGHX BASED BDY(WORD), 43200003 2 HIGHXVAL FIXED(31); /* NUMERIC VALUE */ 44000003 44800003 /* 'CELL' AUDIT-LIMIT OPTION */ 45600003 DCL CELL BASED(FDTPTR( 11)); 46400003 DCL CELLCNT FIXED(31) BASED(ADDR(FDTPTR( 11))); 47200003 48000003 /* 'X' PORTION OF CELL ADDRESS */ 48800003 DCL CELLXPTR(100) PTR(31) BASED(FDTPTR( 12)); 49600003 DCL 1 CELLX BASED BDY(WORD), 50400003 2 CELLXVAL FIXED(31); /* NUMERIC VALUE */ 51200003 52000003 /* 'Y' PORTION OF CELL ADDRESS */ 52800003 DCL CELLYPTR(100) PTR(31) BASED(FDTPTR( 13)); 53600003 DCL 1 CELLY BASED BDY(WORD), 54400003 2 CELLYVAL FIXED(31); /* NUMERIC VALUE */ 55200003 56000003 /* 'Z' PORTION OF CELL ADDRESS */ 56800003 DCL CELLZPTR(100) PTR(31) BASED(FDTPTR( 14)); 57600003 DCL 1 CELLZ BASED BDY(WORD), 58400003 2 CELLZVAL FIXED(31); /* NUMERIC VALUE */ 59200003 60000003 /* 'OUTFILE' DDNAME */ 60800003 DCL 1 OFILE BASED(FDTPTR( 15)) BDY(HWORD), 61600003 2 OFILELEN FIXED(8), /* DATA ITEM LENGTH */ 62400003 2 OFILEVAL CHAR( 8); /* DATA ITEM VALUE */ 63200003 64000003 /* 'OUTDATASET' DATA SET NAME */ 64800003 DCL 1 ODS BASED(FDTPTR( 16)) BDY(HWORD), 65600003 2 ODSPLN FIXED(8), /* PASSWORD LENGTH */ 66400003 2 ODSPAS CHAR(8), /* PASSWORD VALUE */ 67200003 2 ODSPOS FIXED(8), /* ASTERISK POSITION */ 68000003 2 ODSFLG BIT(8), /* DATA SET FLAGS */ 68800003 3 ODSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 69600003 2 ODSMLN FIXED(8), /* MEMBER NAME LENGTH */ 70400003 2 ODSMEM CHAR(8), /* MEMBER NAME */ 71200003 2 ODSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 72000003 2 ODSVAL CHAR(44); /* CATALOGUED NAME */ 72800003 73600003 /* 'LIST' OPTION */ 74400003 DCL LIST BASED(FDTPTR( 17)); 75200003 76000003 /* 'NOLIST' OPTION */ 76800003 DCL NLIST BASED(FDTPTR( 18)); 77600003 78400003 /* 'LABELFILE' DDNAME */ 79200003 DCL 1 LFILE BASED(FDTPTR( 19)) BDY(HWORD), 80000003 2 LFILELEN FIXED(8), /* DATA ITEM LENGTH */ 80800003 2 LFILEVAL CHAR( 8); /* DATA ITEM VALUE */ 81600003 82400003 /* 'LABELDATASET' DATA SET NAME */ 83200003 DCL 1 LDS BASED(FDTPTR( 20)) BDY(HWORD), 84000003 2 LDSPLN FIXED(8), /* PASSWORD LENGTH */ 84800003 2 LDSPAS CHAR(8), /* PASSWORD VALUE */ 85600003 2 LDSPOS FIXED(8), /* ASTERISK POSITION */ 86400003 2 LDSFLG BIT(8), /* DATA SET FLAGS */ 87200003 3 LDSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 88000003 2 LDSMLN FIXED(8), /* MEMBER NAME LENGTH */ 88800003 2 LDSMEM CHAR(8), /* MEMBER NAME */ 89600003 2 LDSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 90400003 2 LDSVAL CHAR(44); /* CATALOGUED NAME */ 91200003 92000003 /* 'READALL' OPTION */ 92800003 DCL RDAL BASED(FDTPTR( 21)); 93600003 94400003 /* 'NOREADALL' OPTION */ 95200003 DCL NRDAL BASED(FDTPTR( 22)); 96000003