00700003 /* EQC ACCUMULATOR WORK TABLE. */ 01400003 02100003 /*****************************************************************/ 02800003 /* */ 03500003 /* EQCWORK -- EQC REPORT MODULES WORK TABLE. THIS TABLE SERVES AS*/ 04200003 /* THE COMMUNICATIONS VECTOR TABLE (CVT) BETWEEN THE MODULES */ 04900003 /* (ISDAEQC0 AND ISDAEQC1) INVOLVED IN THE PREPARATION OF THE */ 05600003 /* EQUIPMENT CHECK (EQC) REPORT. */ 06300003 /* */ 07000003 /*****************************************************************/ 07700003 08400003 DCL 09100003 1 EQCWORK BASED(EQCWKPTR), /* @Y30LB51*/ 09800003 2 GET0PTR PTR(31), /* PTR TO EQC TABLE. @Y30LB51*/ 10500003 2 PTRSAVE PTR(31), /* PTR SAVE AREA. @Y30LB51*/ 11200003 2 LOGPTR PTR(31), /* LOCAL PTR TO RECORD. @Y30LB51*/ 11900003 2 SENSEPTR PTR(31), /* LOCAL PTR TO SENSE AREA. 12600003 @Y30LB51*/ 13300003 2 FREEPTR PTR(31), /* PTR TO FREE TABLE ENTRY. 14000003 @Y30LB51*/ 14700003 2 OLDPTR PTR(31), /* PTR TO EQC CHAIN START. 15400003 @Y30LB51*/ 16100003 2 RUASAVE CHAR(2), /* REAL UNIT ADDRESS SAVE AREA. 16800003 @ZD00149*/ 17500003 2 SSIDSAVE CHAR(2), /* SSID AND FLAGS SAVE AREA. 18200003 @Y30LB51*/ 18900003 3 SSIDDEV CHAR(1), /* DEVICE TYPE CHARACTER.@Y30LB51*/ 19600003 3 * CHAR(1), /* @Y30LB51*/ 20300003 2 FSCSYSSV CHAR(2), /* SAVE AREA FOR NON-LIBRARY FSC. 21000003 @Y30LB51*/ 21700003 2 FSCSAVE1 CHAR(4), /* FSC SAVE AREA (RIGHT ACCESSOR). 22400003 @Y30LB51*/ 23100003 2 FSCSAVE2 CHAR(4), /* FSC SAVE AREA (LEFT ACCESSOR). 23800003 @Y30LB51*/ 24500003 2 RECCOUNT FIXED(15), /* COUNT OF TABLE ELEMENTS. 25200003 @Y30LB51*/ 25900003 2 LINECT FIXED(15), /* COUNT OF PRINTED LINES. 26600003 @Y30LB51*/ 27300003 2 I FIXED(15), /* WORK COUNTER. @Y30LB51*/ 28000003 2 J FIXED(15), /* WORK COUNTER. @Y30LB51*/ 28700003 2 K FIXED(15), /* WORK COUNTER. @Y30LB51*/ 29400003 2 L FIXED(15), /* WORK COUNTER. @Y30LB51*/ 30100003 2 SENSELEN FIXED(15), /* SENSE DATA LENGTH. @Y30LB51*/ 30800003 2 EQCSW BIT(16), /* SWITCHES. @Y30LB51*/ 31500003 3 FMT3ACC1 BIT(1), /* RT ACC FSC FLAG. @Y30LB51*/ 32200003 3 FMT3ACC2 BIT(1), /* LEFT ACC FSC FLAG. @Y30LB51*/ 32900003 3 WORKAPR BIT(1), /* APR ALTERED SSID FLAG.@Y30LB51*/ 33600003 3 NOFSC BIT(1), /* NO FSC FLAG. @Y30LB51*/ 34300003 3 MSCREC BIT(1), /* MSC RECORD FLAG. @Y30LB51*/ 35000003 3 * BIT(11), /* @Y30LB51*/ 35700003 2 DEVBYTES BIT(16), /* WORK AREA FOR DEVICE IDS. 36400003 @ZD00149*/ 37100003 3 DEVBYTEA BIT(8), /* FIRST WORK BYTE. @ZD00149*/ 37800003 3 DEVBYTEB BIT(8); /* SECOND WORK BYTE. @ZD00149*/ 38500003 %EQCWORKL='LENGTH(EQCWORK)'; 39200003 @EJECT; 39900003 40600003 /* FORMAT OF THE EQC ACCUMULATOR TABLE ENTRY. */ 41300003 42000003 /*****************************************************************/ 42700003 /* */ 43400003 /* EQCTBL -- TABLE FOR THE ACCUMULATION OF THE MOST RECENT 100 */ 44100003 /* EQUPMENT CHECK RECORDS. */ 44800003 /* */ 45500003 /*****************************************************************/ 46200003 46900003 DCL 47600003 1 EQCTBL BASED(TBLPTR), /* @Y30LB51*/ 48300003 2 EQCTPTR PTR(31), /* PTR TO NEXT ELEMENT ON CHAIN. 49000003 @Y30LB51*/ 49700003 2 EQCRUA CHAR(2), /* REAL UNIT ADDRESS. @ZD00149*/ 50400003 2 EQCSSID CHAR(2), /* SSID AND FLAGS AREA. @Y30LB51*/ 51100003 3 DEVCHAR CHAR(1), /* DEVICE CHARACTER. @Y30LB51*/ 51800003 3 UNITCHAR CHAR(1), /* UNIT CHARACTERS. @Y30LB51*/ 52500003 2 EQCFLAGS BIT(16), /* ACCUMULATOR TABLE FLAGS. 53200003 @Y30LB51*/ 53900003 3 FAKEFSC BIT(1), /* GENERATED FSC. @Y30LB51*/ 54600003 3 DASDFLAG BIT(1), /* DASD SSID. @Y30LB51*/ 55300003 3 REALDASD BIT(1), /* READ DASD SSID. @Y30LB51*/ 56000003 3 VIRTDASD BIT(1), /* VIRTUAL DASD SSID. @Y30LB51*/ 56700003 3 EQCNOFSC BIT(1), /* NO FSC IN RECORD. @Y30LB51*/ 57400003 3 EQCAPR BIT(1), /* APR ALTERED SSID FLAG.@Y30LB51*/ 58100003 3 MSCFLAG BIT(1), /* MSC RECORD FLAG. @Y30LB51*/ 58800003 3 CSFLAG BIT(1), /* CS DEVICE FLAG. @Y30LB51*/ 59500003 3 DEVIN BIT(1), /* DEVICE IDS FLAG. @ZD00149*/ 60200003 3 * BIT(7), /* @ZD00149*/ 60900003 2 EQCFSC CHAR(4), /* FSC AREA. @Y30LB51*/ 61600003 3 FSCSYS CHAR(2), /* NON-LIBRARY DEVICE FSC. 62300003 @Y30LB51*/ 63000003 3 * CHAR(2), /* @Y30LB51*/ 63700003 2 EQCDT CHAR(8), /* DATE/TIME STAMP FROM RECORD. 64400003 @Y30LB51*/ 65100003 3 EQCDATE CHAR(4), /* DATE -- YEAR AND DAY. @Y30LB51*/ 65800003 4 EQCYR CHAR(2), /* YEAR. @Y30LB51*/ 66500003 4 EQCDAY CHAR(2), /* DAY. @Y30LB51*/ 67200003 3 EQCTIME CHAR(4), /* TIME. @Y30LB51*/ 67900003 4 EQCHR CHAR(1), /* HOURS. @Y30LB51*/ 68600003 4 EQCMIN CHAR(1), /* MINUTES. @Y30LB51*/ 69300003 4 EQCSEC CHAR(1), /* SECONDS. @Y30LB51*/ 70000003 4 EQCHSEC CHAR(1), /* HUNDREDTHS OF A SECOND. 70700003 @Y30LB51*/ 71400003 2 EQCUNIT CHAR(2), /* UNIT IDS. @ZD00149*/ 72100003 3 CNTLUNIT CHAR(1), /* CONTROL UNIT ID. @ZD00149*/ 72800003 3 UNITID CHAR(1), /* DRIVE ID. @ZD00149*/ 73500003 2 EQCSENSE CHAR(32), /* SENSE AREA. @Y30LB51*/ 74200003 3 DASDDATA CHAR(28), /* DASD SENSE. @Y30LB51*/ 74900003 3 * CHAR(4); /* @Y30LB51*/ 75600003 %EQCTBLL='LENGTH(EQCTBL)'; 76300003 @EJECT; 77000003 77700003 /* FORMAT OF THE DASD RECORD. */ 78400003 79100003 /*****************************************************************/ 79800003 /* */ 80500003 /* MSCDASD -- DASD RECORD FORMAT. (THIS FORMAT MAY BE USED AS THE*/ 81200003 /* FORMAT OF THE MSC FORMAT 5 RECORD BY ADDING 4 TO SENSEPTR.) */ 81900003 /* */ 82600003 /*****************************************************************/ 83300003 84000003 DCL 84700003 1 MSCDASD BASED(SENSEPTR), /* @Y30LB51*/ 85400003 2 * CHAR(4), /* BYTES 0 - 3. @ZD00149*/ 86100003 2 DRIVE BIT(8), /* DRIVE ID. @ZD00149*/ 86800003 2 * CHAR(2), /* BYTES 5 AND 6. @ZD00149*/ 87500003 2 FMTMSG BIT(8), /* BYTE 7. @Y30LB51*/ 88200003 3 DASDFMT BIT(4), /* DASD SUBFORMAT CODE. @Y30LB51*/ 88900003 3 DASDMSG BIT(4), /* DASD MESSAGE CODE. @Y30LB51*/ 89600003 2 * CHAR(2), /* BYTES 8 AND 9. @Y30LB51*/ 90300003 2 DASD10 BIT(8), /* BYTE 10. @Y30LB51*/ 91000003 3 TIMEBIT BIT(1), /* LATE/EARLY BIT. @Y30LB51*/ 91700003 3 CLOCKERR BIT(1), /* CLOCK ERROR BIT. @Y30LB51*/ 92400003 3 * BIT(6), /* @Y30LB51*/ 93100003 2 DASD11 BIT(8), /* BYTE 11. @Y30LB51*/ 93800003 2 * CHAR(8), /* BYTES 12 - 19. @Y30LB51*/ 94500003 2 DASD20 BIT(8), /* BYTE 20. @Y30LB51*/ 95200003 2 * CHAR(1), /* BYTE 21. @Y30LB51*/ 95900003 2 FSCDASD BIT(16), /* BYTES 22 AND 23, FSC. @Y30LB51*/ 96600003 2 * CHAR(2), /* BYTES 24 AND 25. @ZD00149*/ 97300003 2 DASDSSID CHAR(2); /* DASD DRIVE SSID. @ZD00149*/ 98000003