00400003 /*****************************************************************/ 00800003 /* */ 01200003 /* SUMWORK - LOCAL DYNAMIC WORKAREA */ 01600003 /* */ 02000003 /*****************************************************************/ 02400003 02800003 DCL 03200003 1 SUMWORK BASED(SUMWKPTR), /* ISDASUM0 WORK AREA @Y30LB55*/ 03600003 2 SUMWORK1, /* POINTERS AND COUNTERS @Y30LB55*/ 04000003 3 ACCM0PTR PTR(31), /* PTR TO ACCUMULATOR 0 @Y30LB55*/ 04400003 3 ACCUMPTR PTR(31), /* PTR TO START OF SUMACCUM 04800003 @Y30LB55*/ 05200003 3 ACCM0END PTR(31), /* PTR TO END OF SUMACCUM@Y30LB55*/ 05600003 3 LOGPTR PTR(31), /* PTR TO OBRMDR @Y30LB55*/ 06000003 3 SENSEPTR PTR(31), /* PTR TO MSCSENSE @Y30LB55*/ 06400003 3 RCODEPTR PTR(31), /* PTR TO RCODES @ZM31074*/ 06800003 3 RCODECNT FIXED(31), /* COUNT OF REASON CODES @ZM31074*/ 07200003 3 SUM2PTR PTR(31), /* ADDR OF ISDASUM2 + 4 @Y30LB55*/ 07600003 3 SEVSTART PTR(32), /* START ADDR SEVRLIST @ZA20267*/ 08000003 3 SEVRLEN FIXED(32), /* LENGTH OF SEVRLIST @ZA20267*/ 08400003 3 SEVRLCNT FIXED(32), /* NO. SEVRLIST ENTRIES @ZA20267*/ 08800003 3 GTOTALS, /* GRAND TOTALS FOR FORMATS 09200003 @Y30LB55*/ 09600003 5 CNTF0 FIXED(31), /* COUNT OF FORMAT 0 @Y30LB55*/ 10000003 5 CNTF1 FIXED(31), /* COUNT OF FORMAT 1 @Y30LB55*/ 10400003 5 CNTF2 FIXED(31), /* COUNT OF FORMAT 2 @Y30LB55*/ 10800003 5 CNTF3 FIXED(31), /* COUNT OF FORMAT 3 @Y30LB55*/ 11200003 5 CNTF4 FIXED(31), /* COUNT OF FORMAT 4 @Y30LB55*/ 11600003 5 CNTF5 FIXED(31), /* COUNT OF FORMAT 5 @Y30LB55*/ 12000003 5 CNTFDASD FIXED(31), /* COUNT OF HOST DASD @Y30LB55*/ 12400003 5 CNTSENSE FIXED(31), /* COUNT OF SENSE RECORDS@Y30LB55*/ 12800003 5 CNTLOG FIXED(31), /* COUNT OF BUFFERED LOG RECORDS 13200003 @Y30LB55*/ 13600003 3 TOTPERMS FIXED(31), /* NO. OF PERM ERRORS @Y30LB55*/ 14000003 3 TOTTEMPS FIXED(31), /* NO. OF TEMP ERRORS @Y30LB55*/ 14400003 3 ACCUMCNT FIXED(16), /* NO. OF ACCUMULATORS @Y30LB55*/ 14800003 3 SUMACCL FIXED(16), /* LENGTH OF SUMACCUM @Y30LB55*/ 15200003 3 NCOUNTER FIXED(16), /* NUMBER OF COUNTERS IN SUMACCUM 15600003 @Y30LB55*/ 16000003 3 NCPUUSED FIXED(16), /* NO. CPUIDS FOUND @Y30LB55*/ 16400003 3 NCPUCNTS FIXED(16), /* MAX NO. CPUIDS ALLOWED@Y30LB55*/ 16800003 2 SUMWORK2, /* CPU IDS @Y30LB55*/ 17200003 3 CPUFOUND(16) CHAR(5), /* 16 CPUIDS TOTAL FOUND @Y30LB55*/ 17600003 2 SUMTEMPS, /* TEMP AREA @Y30LB55*/ 18000003 3 TEMP9 CHAR(9), /* USED FOR CVD @Y30LB55*/ 18400003 4 TEMP8 CHAR(8), /* USED FOR CVD @Y30LB55*/ 18800003 5 TEMP7 CHAR(7), /* USED FOR CVD @Y30LB55*/ 19200003 6 TEMP6 CHAR(6), /* USED FOR CVD @Y30LB55*/ 19600003 7 TEMP5 CHAR(5), /* USED FOR CVD @Y30LB55*/ 20000003 8 TEMP4 CHAR(4), /* USED FOR CVD @Y30LB55*/ 20400003 9 TEMP3 CHAR(3), /* USED FOR CVD @Y30LB55*/ 20800003 10 TEMP2 CHAR(2), /* USED FOR CVD @Y30LB55*/ 21200003 11 TEMP1 CHAR(1), /* TEMP CHAR @Y30LB55*/ 21600003 3 TEMP20 CHAR(20), /* SAVEAREA FOR LINE 2 OF DETAIL 22000003 @Y30LB55*/ 22400003 4 TEMP16 CHAR(6), /* CPUSERM01 @Y30LB55*/ 22800003 4 TEMP710 CHAR(4), /* CPUIDM01 @Y30LB55*/ 23200003 4 TEMP1113 CHAR(3), /* SSIDM01 @Y30LB55*/ 23600003 4 TEMP1417 CHAR(4), /* FSCM01 @Y30LB55*/ 24000003 4 TEMP1820 CHAR(3), /* DEVCUA01 @Y30LB55*/ 24400003 3 TEMP3032 CHAR(3), /* END OF 32 BYTE AREA @Y30LB55*/ 24800003 2 SUMWORK3, /* MASKS AND FLAGS @Y30LB55*/ 25200003 3 SUMFLAGS BIT(8), /* COMUNICATION BYTE @Y30LB55*/ 25600003 /* SUMFLAGS - USED FOR COMMUNICATION BETWEEN ISDASUM0 AND ISDASUM1 26000003 BIT 0 = 1 FOR SPECIAL CALL TO SUM0 TO PRINT SEVERITY REPORT 26400003 BIT 1 = SPARE 26800003 BIT 2 = SPARE 27200003 BIT 3 = SPARE 27600003 BIT 4 = SPARE 28000003 BIT 5 = SPARE 28400003 BIT 6 = SPARE 28800003 BIT 7 = CPUFOUND TABLE OVERFLOWED @ZA20267*/ 29200003 29600003 3 FORMATNC CHAR(1), /* EBCDIC FORMAT NUMBER @Y30LB55*/ 30000003 3 MAINMASK, /* 3 BYTE MASK @Y30LB55*/ 30400003 5 FORMATCK BIT(8), /* FORMATNO BITS 0-5 @Y30LB55*/ 30800003 5 FLAGMASK BIT(8), /* FLAG MASK @Y30LB55*/ 31200003 5 SUBFMASK BIT(8), /* SUBFMT MSG CODE MASK @Y30LB55*/ 31600003 3 FMTIDSV CHAR(7), /* EBCDIC RECORD ID @Y30LB55*/ 32000003 3 SUBFIDSV CHAR(1), /* EBCDIC SUBFORMAT NO. @Y30LB55*/ 32400003 3 MSGCODSV CHAR(1), /* EBCDIC MESSAGE CODE @Y30LB55*/ 32800003 3 TSEVTEMP, /* SEVERITY WORK AREA @ZA20267*/ 33200003 4 TSEVCDID, /* SEV CODE + SSID @ZA20267*/ 33600003 5 TSEVCODE CHAR(2), /* SEVERITY CODE @ZA20267*/ 34000003 5 TSSID CHAR(2), /* SSID @ZA20267*/ 34400003 4 TPTFLAG BIT(8), /* PERM-TEMP FLAG @ZA20267*/ 34800003 4 TSEVFMTS, /* FORMAT + SUBFMT @ZA20267*/ 35200003 5 TSEVFMT BIT(8), /* FORMAT @ZA20267*/ 35600003 5 TSEVSUBF BIT(8), /* SUBFORMAT + MSG CODE @ZA20267*/ 36000003 4 TSEVMASK BIT(8), /* RECORD TYPE MASK @ZA20267*/ 36400003 4 TSEVECOD BIT(8); /* BYTE 12 OR BYTE 27 @ZA20267*/ 36800003 %SUMWORKL='LENGTH(SUMWORK)'; /* LENGTH OF SUMWORK @Y30LB55*/ 37200003 /* %SUMWORKL='LENGTH(SUMWORK)' LENGTH OF SUMWORK @Y30LB55*/ 37600003 38000003 DCL /* OVERLAYS FOR UNPACK @Y30LB55*/ 38400003 TEMP68 CHAR(3) DEF(TEMP8) POS(6),/* BYTES 6-8 @Y30LB55*/ 38800003 TEMP78 CHAR(2) DEF(TEMP8) POS(7);/* BYTES 7-8 @Y30LB55*/ 39200003 39600003 /*****************************************************************/ 40000003 /* */ 40400003 /* ACCUMULATOR FOR ISDASUM0 */ 40800003 /* */ 41200003 /*****************************************************************/ 41600003 42000003 DCL 42400003 SUMACCUM BASED(ACCUMPTR); /* FORMAT COUNTERS @Y30LB55*/ 42800003 43200003 /*****************************************************************/ 43600003 /* */ 44000003 /* MODEL FOR DEFAULT TABLE ISDASUM2 (OFFSET 4) */ 44400003 /* */ 44800003 /*****************************************************************/ 45200003 45600003 DCL /* MODEL FOR DEVIDTB @Y30LB55*/ 46000003 1 MDEVIDTB BASED(DEVIDPTR), /* 48 BYTES EACH ENTRY @Y30LB55*/ 46400003 3 MDFMTXXX, /* FORMAT X @Y30LB55*/ 46800003 5 MDMASK, /* 3 BYTE MASK @Y30LB55*/ 47200003 7 MDFXXX BIT(8), /* FORMAT MASK @Y30LB55*/ 47600003 /* MDFLAG - 8 BIT FLAG FOR COMPARE WITH FLAGMASK @Y30LB55 48000003 BIT 0 = DRD UNLOAD FAILURE = SA FMT 9C,9D, OR 9E 48400003 BIT 1 = SPARE 48800003 BIT 2 = REAL 3330 49200003 BIT 3 = VIRTUAL 3330 49600003 BIT 4 = FORMAT 0 UNIT UNUSABLE OR MEDIA FAILURE 50000003 BIT 5 = CS RECONFIGURED 50400003 BIT 6 = CS FORCED LOGGING MODE 50800003 BIT 7 = BUFFERED LOG DATA @Y30LB55*/ 51200003 51600003 7 MDFLAG BIT(8), /* FLAG MASK @Y30LB55*/ 52000003 7 MDSMXXX BIT(8), /* SUBFMT MSG CODE MASK @Y30LB55*/ 52400003 5 MDIDS, /* FORMAT IDS @Y30LB55*/ 52800003 7 MDCFXXX CHAR(4), /* FORMAT ID @Y30LB55*/ 53200003 7 MDCSMXXX CHAR(2), /* SUBFMT MSG CODE ID @Y30LB55*/ 53600003 8 MDCSXXX CHAR(1), /* EBCDIC SA FORMAT @Y30LB55*/ 54000003 8 MDCMXXX CHAR(1), /* EBCDIC MSG CODE @Y30LB55*/ 54400003 7 MDIDXXX CHAR(5), /* DEVICE ID @Y30LB55*/ 54800003 5 MDMSGXXX CHAR(34); /* FORMAT MESSAGE @Y30LB55*/ 55200003 %DFMTL='LENGTH(MDEVIDTB)'; /* LENGTH OF EACH ENTRY @Y30LB55*/ 55600003 /* DFMTL='LENGTH(MDEVIDTB)' LENGTH OF EACH ENTRY @Y30LB55*/ 56000003 56400003 /*****************************************************************/ 56800003 /* */ 57200003 /* MODEL FOR COUNTERS - SUMACCUM */ 57600003 /* */ 58000003 /*****************************************************************/ 58400003 58800003 DCL /* MODEL FOR SUMACCUM @Y30LB55*/ 59200003 1 MCOUNTER BASED(COUNTPTR), /* 28 BYTES EACH ENTRY @Y30LB55*/ 59600003 3 MCFMTXXX, /* COUNTER FOR FORMAT X @Y30LB55*/ 60000003 5 MCADDXXX PTR(31), /* ADDR OF DEFAULT TABLE FOR FMT 60400003 X @Y30LB55*/ 60800003 5 MCOUNTS, /* COUNTS FOR FORMAT X @Y30LB55*/ 61200003 7 MCPXXX FIXED(16), /* NO. PERM ERROR OR OBR @Y30LB55*/ 61600003 7 MCTXXX FIXED(16), /* NO. TEMP ERROR OR MDR @Y30LB55*/ 62000003 5 MCMASK, /* 3 BYTE MASK @Y30LB55*/ 62400003 7 MCFXXX BIT(8), /* FORMAT MASK @Y30LB55*/ 62800003 7 MCFLAG BIT(8), /* FLAG MASK @Y30LB55*/ 63200003 7 MCSMXXX BIT(8), /* SUBFMT MSG CODE MASK @Y30LB55*/ 63600003 5 MCSPARE BIT(8), /* SPARE BYTE @Y30LB55*/ 64000003 5 MLDTIME CHAR(8), /* LOW DATE + TIME @Y30LB55*/ 64400003 7 MLDATE CHAR(4), /* LOW DATE @Y30LB55*/ 64800003 7 MLTIME CHAR(4), /* LOW TIME @Y30LB55*/ 65200003 5 MHDTIME CHAR(8), /* HIGH DATE + TIME @Y30LB55*/ 65600003 7 MHDATE CHAR(4), /* HIGH DATE @Y30LB55*/ 66000003 7 MHTIME CHAR(4); /* HISG TIME @Y30LB55*/ 66400003 %CFMTL='LENGTH(MCOUNTER)'; /* LENGTH OF EACH ENTRY @Y30LB55*/ 66800003 /* CFMTL='LENGTH(MCOUNTER)' LENGTH OF EACH ENTRY @Y30LB55*/ 67200003 67600003 /*****************************************************************/ 68000003 /* */ 68400003 /* DEFAULT TABLE - THE FIRST 4 BYTES IS A COUNT OF THE NUMBER OF */ 68800003 /* ENTRIES. THE ACTUAL TABLE STARTS AT ISDASUM2 + 4 */ 69200003 /* */ 69600003 /*****************************************************************/ 70000003 70400003 DCL 70800003 ISDASUM2 FIXED(31) BOUNDARY(WORD) NONLOCAL EXTERNAL; /*@Y30LB55*/ 71200003 DCL /* REASON CODE DCLS @ZM31074*/ 71600003 RCODES (256)FIXED(16) BASED(RCODEPTR),/* 16X16 TABLE @ZM31074*/ 72000003 RCODELEN FIXED(31) CONSTANT(1024);/* LENGTH OF RCODES @ZM31074*/ 72400003 72800003 /*****************************************************************/ 73200003 /* */ 73600003 /* SEVERITY CODE TABLE - 16 MOST SEVERE ERRORS */ 74000003 /* */ 74400003 /*****************************************************************/ 74800003 75200003 DCL 75600003 1 SEVRLIST BASED(SEVRPTR), /* SEVERITY DATA BUFFER @ZA20267*/ 76000003 2 SEVRCNT FIXED(16), /* NUMBER OF OCCURRENCES @ZA20267*/ 76400003 2 SEVHMOVE, /* HEADER @ZA20267*/ 76800003 3 SEVCDSID, /* SEV CODE + SSID @ZA20267*/ 77200003 4 SEVRCODE FIXED(16), /* SEVERITY CODE @ZA20267*/ 77600003 4 SEVSSID CHAR(2), /* SSID @ZA20267*/ 78000003 3 PTFLAG BIT(8), /* PERM-TEMP FLAG @ZA20267*/ 78400003 3 SEVFMT BIT(8), /* FORMAT @ZA20267*/ 78800003 3 SEVSUBF BIT(8), /* SUBFORMAT + MSG CODE @ZA20267*/ 79200003 3 SEVFMASK BIT(8), /* RECORD TYPE MASK @ZA20267*/ 79600003 3 SEVECODE BIT(8), /* BYTE 12 OR BYTE 27 @ZA20267*/ 80000003 2 SEVSPARE BIT(8), /* SPARE @ZA20267*/ 80400003 2 SEVSDAWK CHAR(20), /* SAVE SDAWORK AREA @ZA20267*/ 80800003 2 SEVSDPTR PTR(32), /* OFFSET TO SENSE DATA @ZA20267*/ 81200003 2 SEVDEVPT PTR(32), /* OFFSET TO DEVICE DATE @ZA20267*/ 81600003 2 SEVDATA CHAR(128), /* SAVE AREA FOR DATA @ZA20267*/ 82000003 3 * CHAR(12), /* @ZA20267*/ 82400003 3 SEVDATET CHAR(8); /* DATE - TIME IN DATA @ZA20267*/ 82800003