00400003 /* FSC ACCUMULATOR WORK TABLE. */ 00800003 01200003 /*****************************************************************/ 01600003 /* */ 02000003 /* FSCWORK -- FSC REPORT MODULES WORK TABLE. THIS TABLE SERVES AS*/ 02400003 /* A COMMUNICATIONS VECTOR TABLE (CVT) BETWEEN THE MODULES */ 02800003 /* (ISDAFSC0, ISDAFSC1 AND ISDAFSC2) INVOLVED IN THE PREPARATION */ 03200003 /* OF THE FAULT SYMPTOM CODE (FSC) REPORT. */ 03600003 /* */ 04000003 /*****************************************************************/ 04400003 04800003 DCL 05200003 1 FSCWORK BASED(FSCWKPTR), /* @Y30LB51*/ 05600003 2 GET0PTR PTR(31), /* PTR TO LAST FSC TABLE.@Y30LB51*/ 06000003 2 PTRSAVE PTR(31), /* POINTER SAVE AREA. @Y30LB51*/ 06400003 2 FSCPTR PTR(31), /* POINTER TO FIRST FSC TABLE. 06800003 @Y30LB51*/ 07200003 2 LOGPTR PTR(31), /* PTR TO RECORD. @Y30LB51*/ 07600003 2 SENSEPTR PTR(31), /* PTR TO SENSE AREA. @Y30LB51*/ 08000003 2 FREEPTR PTR(31), /* FSC TABLE FREE ELEMENT PTR. 08400003 @Y30LB51*/ 08800003 2 SUMTABLE PTR(31), /* ADDRESS OF SUM TABLE. @Y30LB51*/ 09200003 2 SUMSTART PTR(31), /* PTR TO SUM CHAIN START. 09600003 @Y30LB51*/ 10000003 2 CHAINTBL PTR(31), /* ADDRESS OF CHAIN TABLE. 10400003 @Y30LB51*/ 10800003 2 PRINTTBL PTR(31), /* ADDRESS OF PRINT TABLE. 11200003 @Y30LB51*/ 11600003 2 TBLPTRSV PTR(31), /* TABLE POINTER SAVE AREA. 12000003 @Y30LB51*/ 12400003 2 PRTPTR PTR(31), /* POINTER TO PRINT TABLE. 12800003 @ZA20267*/ 13200003 2 SUMPTR PTR(31), /* POINTER TO SUM TABLE. @ZA20267*/ 13600003 2 FSCTBLCT FIXED(15), /* COUNT OF FSC TABLES. @Y30LB51*/ 14000003 2 SSIDCT FIXED(15), /* MAXIMUM NR OF SSIDS IN SYSTEM. 14400003 @Y30LB51*/ 14800003 2 SSIDCTR FIXED(15), /* SSID CHAIN COUNTER. @Y30LB51*/ 15200003 2 TBLELMCT FIXED(15), /* FSC TABLE ELEMENT COUNTER. 15600003 @Y30LB51*/ 16000003 2 I FIXED(15), /* WORK COUNTER. @Y30LB51*/ 16400003 2 WORKFLGS BIT(16), /* WORK FLAGS. @Y30LB51*/ 16800003 3 MSCREC BIT(1), /* MSC DEVICE RECORD. @Y30LB51*/ 17200003 3 SAREC BIT(1), /* SA DEVICE RECORD. @Y30LB51*/ 17600003 3 DRCREC BIT(1), /* DRC DEVICE RECORD. @Y30LB51*/ 18000003 3 DRDREC BIT(1), /* DRD DEVICE RECORD. @Y30LB51*/ 18400003 3 CSREC BIT(1), /* CS DEVICE RECORD. @Y30LB51*/ 18800003 3 DIRREC BIT(1), /* 3830 DEVICE RECORD. @Y30LB51*/ 19200003 3 DAREC BIT(1), /* 3330 DEVICE RECORD. @Y30LB51*/ 19600003 3 DASDREC BIT(1), /* DASD DEVICE RECORD. @Y30LB51*/ 20000003 3 FMT3ACC1 BIT(1), /* RT ACCESSOR FSC. @Y30LB51*/ 20400003 3 FMT3ACC2 BIT(1), /* LEFT ACCESSOR FSC. @Y30LB51*/ 20800003 3 FSCCOUNT BIT(1), /* COUNT BY FSC ONLY. @Y30LB51*/ 21200003 3 WORKAPR BIT(1), /* APR ALTERED SSID. @Y30LB51*/ 21600003 3 TBLFULL BIT(1), /* CHAIN TABLE FULL. @ZA17155*/ 22000003 3 PERMERR BIT(1), /* PERMANENT ERROR. @ZA20267*/ 22400003 3 TEMPERR BIT(1), /* TEMPORARY ERROR. @ZA20267*/ 22800003 3 ADDCORE BIT(1), /* ADDED FSC TABLE NEEDED SW. 23200003 @Y30LB51*/ 23600003 2 LSSID CHAR(2), /* STORAGE FOR SSID. @Y30LB51*/ 24000003 2 LFSC CHAR(4), /* STORAGE FOR LIBRARY FSC. 24400003 @Y30LB51*/ 24800003 2 LFSCSYS CHAR(2), /* STORAGE FOR NON-LIBRARY FSC. 25200003 @Y30LB51*/ 25600003 2 LTYPE CHAR(2), /* STORAGE FOR DEVICE TYPE. 26000003 @Y30LB51*/ 26400003 2 SSIDSAVE BIT(16), /* SSID AND FLAGS WORK AREA. 26800003 @Y30LB51*/ 27200003 3 CUAFLAG BIT(4), /* SSID FLAG. @Y30LB51*/ 27600003 3 SSIDDEV BIT(4), /* DEVICE TYPE CHARACTER. 28000003 @Y30LB51*/ 28400003 3 * BIT(8), /* @Y30LB51*/ 28800003 2 SEVSAVE CHAR(2), /* SEVERITY CODE SAVE AREA. 29200003 @ZA20267*/ 29600003 2 SEVMASK BIT(16), /* SEVERITY CODE SEARCH MASK. 30000003 @ZA20267*/ 30400003 3 SEVMFMT BIT(8), /* RECORD FORMAT. @ZA20267*/ 30800003 3 SEVMSFMT BIT(8), /* SUBFMT AND MSG CODE. @ZA20267*/ 31200003 2 FSCSYSSV CHAR(2), /* SAVE AREA FOR NON-LIBRARY FSC. 31600003 @Y30LB51*/ 32000003 2 FSCSAVE1 CHAR(4), /* FSC SAVE AREA (RT ACC). 32400003 @Y30LB51*/ 32800003 2 FSCSAVE2 CHAR(4), /* FSC SAVE AREA (LEFT ACC). 33200003 @Y30LB51*/ 33600003 2 SUMBUILD FIXED(15), /* WORK AREA TO COMPUTE SUM. 34000003 @Y30LB51*/ 34400003 2 LINECT FIXED(15), /* OUTPUT LINE COUNTER. @Y30LB51*/ 34800003 2 DEVBYTES BIT(16), /* WORK AREA FOR DEVICE ID. 35200003 @ZD00149*/ 35600003 3 DEVBYTEA BIT(8), /* FIRST WORK BYTE. @ZD00149*/ 36000003 3 DEVBYTEB BIT(8); /* SECOND WORK BYTE. @ZD00149*/ 36400003 %FSCWORKL='LENGTH(FSCWORK)'; 36800003 @EJECT; 37200003 37600003 /* FORMAT OF THE FSC TABLE ELEMENT. */ 38000003 38400003 /*****************************************************************/ 38800003 /* */ 39200003 /* FSCTBL -- TABLE FOR THE ACCUMULATION OF THE COUNT OF RECORDS */ 39600003 /* PROCESSED. */ 40000003 /* */ 40400003 /*****************************************************************/ 40800003 41200003 DCL 1 FSCTBL BASED(TBLPTR), /* @Y30LB51*/ 41600003 2 FSCSPTR PTR(31), /* PTR TO NEXT ELEMENT ON SSID 42000003 CHAIN. @Y30LB51*/ 42400003 2 FSCSSID CHAR(2), /* SSID. @ZA20267*/ 42800003 3 DEVCHAR CHAR(1), /* DEVICE CHARACTER. @Y30LB51*/ 43200003 3 UNITCHAR CHAR(1), /* UNIT CHARACTER. @Y30LB51*/ 43600003 2 FSCSEV FIXED(15), /* SEVERITY CODE. @ZA20267*/ 44000003 2 FSCFSC CHAR(4), /* FSC. @Y30LB51*/ 44400003 3 FSCSYS CHAR(2), /* SUBSYSTEM FSC. @Y30LB51*/ 44800003 3 * CHAR(1), /* @ZD00149*/ 45200003 3 CNTLUNIT BIT(8), /* DASD CONTROL UNIT. @ZD00149*/ 45600003 2 FSCDT CHAR(8), /* DATE/TIME STAMP. @Y30LB51*/ 46000003 3 FSCDATE CHAR(4), /* DATE -- YEAR AND DAY. @Y30LB51*/ 46400003 4 FSCYR CHAR(2), /* YEAR. @Y30LB51*/ 46800003 4 FSCDAY CHAR(2), /* DAY. @Y30LB51*/ 47200003 3 FSCTIME CHAR(4), /* TIME. @Y30LB51*/ 47600003 4 FSCHR CHAR(1), /* HOURS. @Y30LB51*/ 48000003 4 FSCMIN CHAR(1), /* MINUTES. @Y30LB51*/ 48400003 4 FSCSEC CHAR(1), /* SECONDS. @Y30LB51*/ 48800003 4 FSCHSEC CHAR(1), /* HUNDREDTHS OF A SECOND. 49200003 @Y30LB51*/ 49600003 2 FSCCTR FIXED(15), /* RECORD COUNTER. @Y30LB51*/ 50000003 2 FSCSUM FIXED(15), /* TOTAL ERRORS FOR THIS SSID. 50400003 @Y30LB51*/ 50800003 2 FSCPCT FIXED(15), /* PERCENT (FSCCTR/FSCSUM). 51200003 @Y30LB51*/ 51600003 2 FSCFLAGS BIT(16), /* FSC TABLE FLAGS. @Y30LB51*/ 52000003 3 MSCFLAG BIT(1), /* MSC DEVICE FLAG. @Y30LB51*/ 52400003 3 SAFLAG BIT(1), /* SA DEVICE FLAG. @Y30LB51*/ 52800003 3 DRCFLAG BIT(1), /* DRC DEVICE FLAG. @Y30LB51*/ 53200003 3 DRDFLAG BIT(1), /* DRD DEVICE FLAG. @Y30LB51*/ 53600003 3 CSFLAG BIT(1), /* CS DEVICE FLAG. @Y30LB51*/ 54000003 3 DIRFLAG BIT(1), /* 3830 DEVICE FLAG. @Y30LB51*/ 54400003 3 DAFLAG BIT(1), /* 3330 DEVICE FLAG. @Y30LB51*/ 54800003 3 DASDFLAG BIT(1), /* DASD SSID FLAG. @Y30LB51*/ 55200003 3 REALDASD BIT(1), /* REAL DASD FLAG. @Y30LB51*/ 55600003 3 VIRTDASD BIT(1), /* VIRTUAL DASD FLAG. @Y30LB51*/ 56000003 3 FAKEFSC BIT(1), /* GENERATED FSC FLAG. @Y30LB51*/ 56400003 3 FSCAPR BIT(1), /* APR ALTERED SSID FLAG. 56800003 @Y30LB51*/ 57200003 3 NOSEVCD BIT(1), /* NO SEVERITY CODE. @ZA20267*/ 57600003 3 * BIT(2), /* @Y30LB51*/ 58000003 3 INPRTTBL BIT(1), /* ELEMENT IN PRINT TABLE FLAG. 58400003 @ZD00149*/ 58800003 2 FSCDEVS BDY(WORD) CHAR(16),/* DEVICE COUNTERS. @ZD00149*/ 59200003 3 DEVACTR FIXED(15), /* DEVICE A COUNTER. @ZD00149*/ 59600003 3 DEVBCTR FIXED(15), /* DEVICE B COUNTER. @ZD00149*/ 60000003 3 DEVCCTR FIXED(15), /* DEVICE C COUNTER. @ZD00149*/ 60400003 3 DEVDCTR FIXED(15), /* DEVICE D COUNTER. @ZD00149*/ 60800003 3 DEVECTR FIXED(15), /* DEVICE E COUNTER. @ZD00149*/ 61200003 3 DEVFCTR FIXED(15), /* DEVICE F COUNTER. @ZD00149*/ 61600003 3 DEVGCTR FIXED(15), /* DEVICE G COUNTER. @ZD00149*/ 62000003 3 DEVHCTR FIXED(15); /* DEVICE H COUNTER. @ZD00149*/ 62400003 %FSCTBLL='LENGTH(FSCTBL)'; 62800003 @EJECT; 63200003 63600003 /* FORMAT OF THE CHAIN TABLE ELEMENT. */ 64000003 64400003 /*****************************************************************/ 64800003 /* */ 65200003 /* CHNTBL -- THIS TABLE CONTAINS THE SSIDS THAT HAVE BEEN */ 65600003 /* PROCESSED FOR THE FSC REPORT ALONG WITH A POINTER TO THE START*/ 66000003 /* OF THE CHAIN OF ENTRIES IN THE FSC TABLE FOR EACH SSID. */ 66400003 /* */ 66800003 /*****************************************************************/ 67200003 67600003 DCL 68000003 1 CHNTBL BASED(CHNPTR), /* @Y30LB51*/ 68400003 2 CHNTPTR PTR(31), /* PTR TO NEXT TABLE ELEMENT. 68800003 @Y30LB51*/ 69200003 2 CHNSSIDF CHAR(2), /* SSID AND FLAGS AREA. @Y30LB51*/ 69600003 3 SSIDFLGS BIT(4), /* SSID FLAGS. @Y30LB51*/ 70000003 3 CHNSSID BIT(12), /* SSID. @Y30LB51*/ 70400003 2 * CHAR(2), /* @Y30LB51*/ 70800003 2 FSCTPTR PTR(31); /* PTR TO FSC TABLE. @Y30LB51*/ 71200003 %CHNTBLL='LENGTH(CHNTBL)'; 71600003 @EJECT; 72000003 72400003 /* FORMAT OF THE SUM TABLE ELEMENT. */ 72800003 73200003 /*****************************************************************/ 73600003 /* */ 74000003 /* SUMTBL -- THIS IS A WORK TABLE USED FOR THE COMPUTATION OF THE*/ 74400003 /* TOTAL NUMBER OF RECORDS PROCESSED FOR EACH SSID. */ 74800003 /* */ 75200003 /*****************************************************************/ 75600003 76000003 DCL 76400003 1 SUMTBL BASED(SUMPTR), /* @Y30LB51*/ 76800003 2 SUMTPTR PTR(31), /* PTR TO NEXT SUM CHAIN ELEMENT. 77200003 @Y30LB51*/ 77600003 2 SUMSSID CHAR(2), /* SSID. @Y30LB51*/ 78000003 2 SUMTOTAL FIXED(15), /* TOTAL RECORDS FOR THIS SSID. 78400003 @Y30LB51*/ 78800003 2 SUMFPTR PTR(31), /* PTR TO SSID CHAIN. @Y30LB51*/ 79200003 2 SUMSCTR FIXED(15), /* COUNT OF ELEMENTS ON SSID 79600003 CHAIN. @Y30LB51*/ 80000003 2 SUMPCTR FIXED(15); /* COUNT OF ELEMENTS PROCESSED. 80400003 @Y30LB51*/ 80800003 %SUMTBLL='LENGTH(SUMTBL)'; 81200003 81600003 /* FORMAT OF THE PRINT TABLE ELEMENT. */ 82000003 82400003 /*****************************************************************/ 82800003 /* */ 83200003 /* PRTTBL -- THIS TABLE CONSISTS OF POINTERS TO THE FSC TABLE */ 83600003 /* ENTRIES IN THE ORDER IN WHICH THE FSC TABLE ENTRIES WILL */ 84000003 /* APPEAR IN THE REPORT. */ 84400003 /* */ 84800003 /*****************************************************************/ 85200003 85600003 DCL 86000003 1 PRTTBL BASED(PRTPTR), /* @Y30LB51*/ 86400003 2 PRTTPTR PTR(31); /* PTR TO FSC TABLE ELEMENT. 86800003 @Y30LB51*/ 87200003 %PRTTBLL='LENGTH(PRTTBL)'; 87600003