* %GOTO LRB0; /* BILINGUAL LRB MACRO 00100002 MACRO 00150002 IHALRB &LIST=NO 00200002 PUSH PRINT 00250002 * */ 00300002 *%LRB0: ; 00350002 */********************************************************* 00400002 * 00450002 * R M S L O G R E C R E C O R D M A C R O 00500002 * 00550002 * STATUS 00600002 * OS/VS2 REL 2-LEVEL 2 - 8/6/73 (PTM-02577) 00650002 * 00700002 * METHOD OF ACCESS 00750002 * 00800002 * PL/S - DCL LRBPTR PTR 00850002 * IF CHANNEL CHECK HANDLER SECTION IS TO BE USED 00900002 * POINTER LRBCVPTR (NOTE: ANY NAME MAY BE USED, LRBCVPTR 00950002 * IS JUST AN EXAMPLE) MUST BE SET BY USER AS FOLLOWS: 01000002 * DCL LRBCVPTR PTR 01050002 * LRBCVPTR = ADDR(LRBCCLOG) + LRBCLOGL 01100002 * RESPECIFY LRBCVAR BASED (LRBCVPTR) 01150002 * BAL - IHALRB (MARCO CALL) 01200002 * USING LRB,REGA 01250002 * LOAD REGA WITH LRB ADDRESS 01300002 * IF CHANNEL CHECK HANDLER SECTION IS TO BE USED 01350002 * THE FOLLOWING MUST BE DONE BY THE USER 01400002 * 01450002 * LA REGB,LRBCCLOG OBTAIN ADDRESS OF LRBCCLOG 01500002 * LH REGC,LRBCLOGL OBTAIN LENGTH OF LOGOUT 01550002 * AR REGB,REGC ADD LENGTH TO STARTING ADDRESS 01600002 * USING LRBCFT,REGB 01650002 * 01700002 * WHERE REGA AND REGB ARE ANY REGISTER OTHER THAN 0, 01750002 * 01800002 * F.E.'S 01850002 * MICROFICHE LISTINGS - IHALRB 01900002 * 01950002 * DEVELOPERS 02000002 * BAL LISTING - SPECIFY LIST=YES ON MACRO CALL 02050002 * PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE 02100002 * 02150002 * FOR INTEGRATION, A LISTING MUST NOT BE REQUESTED UNLESS 02200002 * YOUR MODULE CREATES THE MACRO. 02250002 * 02255045 * 02260045 * CHANGE-ACTIVITY 02265045 * C033100-033000,066000,141500,152000,181300,184800 @ZA34554 02270045 * C206500,229600,245100-245300,310000,323000,345300 @ZA34554 02273045 * C350300,363000 @ZA34554 02276045 * A141680-142310,310100-310200 @ZA34554 02279045 * C315570,315830,149600,149770 @ZA34554 02282045 * C066000,151500,181300,206700 @ZA36587 02286045 * 02290045 *************************************************************/ 02300002 *%GOTO LRB1; /* 02350002 AIF ('&LIST' EQ 'YES').LRB1A 02400002 PRINT OFF 02450002 .LRB1A ANOP 02500002 LRB DSECT 02550002 * 02600002 ******************************************************************* 02650002 * * 02700002 * COMMON HEADER SECTION * 02750002 * * 02800002 ******************************************************************* 02850002 * 02900002 LRBHTYPE DS X'0' TYPE OF RECORD 02950002 * RECORD TYPE EQUATES 03000002 LRBHREC EQU X'60' DDR RECORD 03050002 LRBHMDR EQU X'90' MDR RECORD 03100002 LRBHMIH EQU X'70' MIH RECORD 03150002 LRBHCCH EQU X'21' CCH RECORD 03200002 LRBHMCH EQU X'13' MCH RECORD 03250002 LRBHTER EQU X'81' SYSTEM TERMINATION RECORD 03300002 LRBHSRS EQU X'84' SYSTEM RESTARTABLE WAIT @ZA34554 03310045 LRBHMCF EQU X'A0' MCH FRAME RECORD @ZA34554 03315045 LRBHCCF EQU X'B0' CCH FRAME RECORD @ZA34554 03320045 LRBHSFW EQU X'40' 4X TYPE RECORDS ARE SOFTWARE TYPE 03325045 * MAPPED BY IHAHDR @ZA34554 03330045 LRBHSFR EQU X'4F' " " @ZA34554 03335045 * 03350002 LRBHREL DS X'0' RELEASE NUMBER 03400002 LRBHSYS EQU LRBHREL SYSTEM TYPE 03450002 * EQUATES FOR LRBHSYS 03500002 LRBHOS EQU X'0' OS SYSTEM 03550002 LRBHDOS EQU X'20' DOS SYSTEM 03600002 LRBHVS1 EQU X'40' OS/VS1 SYSTEM 03650002 LRBHCP67 EQU X'60' CP67 SYSTEM 03700002 LRBHVS2 EQU X'80' OS/VS2 SYSTEM 03750002 * 03800002 LRBHSW0 DS X'0' INDEPENDENT SWITCH BYTE 03850002 * EQUATES FOR LRBHSW0 03900002 LRBHMORE EQU X'80' MULTIPLE RECORDS 03950002 LRBHNS EQU X'40' NS MACHINE 04000002 LRBHTMC EQU X'08' TIME MACRO USED 04050002 * 04100002 LRBHSW1 DS X'0' DEPENDENT SWITCH BYTE 0 04150002 * DDR EQUATES FOR LRBHSW1 04200002 LRBRPRIM EQU X'80' DDR PRIMARY STORAGE RECONFIG 04250002 LRBRSEC EQU X'40' DDR SEC STORAGE RECONFIG 04300002 LRBROPER EQU X'20' DDR OPERATOR REQUEST RECONFIG 04350002 LRBRSYSI EQU X'10' DDR PERMANENT ERROR REQUEST 04400002 * CCH EQUATES FOR LRBHSW1 04450002 LRBCMESG EQU X'80' MESSAGE REQUEST 04500002 LRBCINCO EQU X'40' RECORD INCOMPLETE 04550002 LRBCNOSP EQU X'10' CHANNEL NOT SUPPORTED 04600002 LRBCICUA EQU X'08' ILLEGAL CUA 04650002 LRBCDATA EQU X'04' DATA OVERLAYED 04700002 LRBCERPP EQU X'02' ERP IN PROGRESS 04750002 * MCH EQUATES FOR LRBHSW1 04800002 LRBMSYST EQU X'20' SYSTEM TERMINATED 04850002 * 04900002 LRBHSW2 DS X'0' DEPENDENT SWITCH BYTE 1 04950002 LRBMACT EQU LRBHSW2 MCH BUFFER ACTIVE FLAG 05000002 * MIH EQUATES FOR LRBHSW2 05050002 LRBNCEM EQU X'80' PENDING CHANNEL END 05100002 LRBNDEM EQU X'40' PENDING DEVICE END 05150002 * 05200002 * MDR EQUATES FOR LRBHSW2 05250002 LRBD3330 EQU X'01' 3330 TYPE 05300002 LRBD3211 EQU X'04' 3211 TYPE 05350002 LRBD3340 EQU X'09' 3340 TYPE 05400002 LRBDICE EQU X'07' 3330C TYPE 05450002 LRBD2946 EQU X'F0' 2946 TYPE 05500002 LRBD2948 EQU X'F1' 2948 TYPE 05550002 LRBD1006 EQU X'F2' 1006 TYPE 05600002 LRBD2703 EQU X'F3' 2703 TYPE 05650002 LRBD2969 EQU X'F4' 2969 TYPE 05700002 * 05750002 LRBHSW3 DS X'0' DEPENDENT SWITCH BYTE 2 05800002 LRBMCLB EQU LRBHSW3 LOGREC CLOBBER FLAG (INDICATES LOGREC 05850002 * BUFFER OVERLAYED) 05900002 * 05950002 LRBHCNT DS X'0' PHYSICAL RECORDS PER LOGICAL REC CNT 06000002 DS X'0' RESERVED 06050002 LRBHDATE DS X'00000000' DATE 06100002 LRBHTIME DS X'00000000' TIME 06150002 * 06200002 DS 0D 06250002 LRBHCPID DS 0XL8 . STIDP OPERAND FIELD 06300002 DS XL1 . RESERVED 06350002 LRBHCSER DS XL3 . CPU SERIAL NUMBER 06400002 LRBHMDL DS XL2 . CPU MODEL NUMBER 06450002 LRBHMCEL DS XL2 . MAXIMUM MCEL LENGTH 06500002 * 06550002 LRBBASE DS 0C . END OF HEADER @ZA36587 06600045 * 06650002 ******************************************************************* 06700002 * * 06750002 * MACHINE CHECK HANDLER RECORD * 06800002 * * 06850002 ******************************************************************* 06900002 * 06950002 LRBMMCH ORG LRBBASE 07000002 LRBMLNH DS F . LENGTH OF LOGREC RECORD 07050002 LRBMWSC DS XL4 . WAIT STATE CODE 07100002 * 07150002 LRBMCEIA DS 0XL4 . MACHINE CHECK ERROR INDICATOR AREA 07200002 * 07250002 LRBMTERM DS XL1 . TERMINAL ERROR FLAGS 07300002 * 07350002 * EQU X'80' RESERVED 07400002 * EQU X'40' RESERVED 07450002 LRBMTTHR EQU X'20' HARD ERROR THRESHOLD FLAG @G55CP2P 07470055 LRBMTSEC EQU X'10' . SECONDARY ERROR FLAG 07550002 LRBMTCKS EQU X'08' . CHECK STOP FLAG 07600002 LRBMTWRN EQU X'04' . POWER WARNING FLAG 07650002 LRBMTDMG EQU X'02' . SYSTEM DAMAGE FLAG 07700002 LRBMTINV EQU X'01' . INVALID LOGOUT FLAG (SET WHEN LRBMCIC=0 ) 07750002 * 07800002 LRBMHARD DS XL1 . HARD MACHINE ERROR FLAGS 07850002 * 07900002 LRBMHHRD EQU X'80' . ASSUMED HARD ERROR FLAG 07950002 * EQU X'40' RESERVED 08000002 * EQU X'20' RESERVED 08050002 LRBMHSD EQU X'10' . SYSTEM DAMAGE FLAG @G555P2M 08100055 LRBMHINV EQU X'08' . REGISTER OR PSW INVALID FLAG 08150002 LRBMHSTO EQU X'04' . HARD STORAGE FAILURE FLAG 08200002 LRBMHSPF EQU X'02' . HARD PROTECTION KEY ERROR FLAG 08250002 LRBMHIPD EQU X'01' . INSTRUCTION PROCESSING DAMAGE FLAG 08300002 * 08350002 LRBMINTM DS XL1 . INTERMEDIATE ERROR FLAGS 08400002 * 08450002 * EQU X'80' RESERVED 08500002 * EQU X'40' RESERVED 08550002 * EQU X'20' RESERVED 08600002 * EQU X'10' RESERVED 08620055 LRBMITOD EQU X'08' . TOD CLOCK ERROR FLAG 08700002 LRBMICKC EQU X'04' . CLOCK COMPARATOR ERROR FLAG 08750002 LRBMICTM EQU X'02' . CPU TIMER ERROR FLAG 08800002 LRBMIL80 EQU X'01' . INTERVAL TIMER ERROR FLAG 08850002 * 08900002 LRBMSOFT DS XL1 . SOFT MACHINE ERROR FLAGS 08950002 * 09000002 LRBMSSFT EQU X'80' . ASSUMED SOFT ERROR FLAG 09050002 * EQU X'40' RESERVED 09100002 * EQU X'20' RESERVED 09150002 * EQU X'10' RESERVED 09200002 LRBMSEXD EQU X'08' . EXTERNAL DAMAGE FLAG 09250002 LRBMSECC EQU X'04' . ECC CORRECTED STORAGE ERROR FLAG 09300002 LRBMSHIR EQU X'02' . HIR CORRECTED PROCESSOR ERROR FLAG 09350002 LRBMSBUF EQU X'01' . BUFFER ERROR FLAG 09400002 * 09450002 LRBMPDAR DS XL1 . PDAR DATA (SUPPLIED BY RTM) 09500002 * 09550002 * EQU X'80' RESERVED 09600002 * EQU X'40' RESERVED 09650002 * EQU X'20' RESERVED 09700002 LRBMINVP EQU X'10' . STORAGE RECONFIGURED - PAGE INVALIDATED 09750002 LRBMRSRC EQU X'08' . STORAGE RECONFIGURATION STATUS AVAILABLE 09800002 * (FOLLOWING TWO BYTES ARE MEANINGFULL) 09850002 LRBMRSRF EQU X'04' . STORAGE RECONFIGURATION NOT ATTEMPTED 09900002 * EQU X'02' RESERVED 09950002 * EQU X'01' RESERVED 10000002 * 10050002 LRBMRSR1 DS XL1 . STORAGE RECONFIGURATION STATUS BYTE 1 10100002 * 10150002 * EQU X'80' RESERVED 10200002 * EQU X'40' RESERVED 10250002 * EQU X'20' RESERVED 10300002 * EQU X'10' RESERVED 10350002 * EQU X'08' RESERVED 10400002 * EQU X'04' RESERVED 10450002 LRBMSER EQU X'02' . STORAGE ERROR WAS ALREADY SET IN FRAME 10500002 LRBMCHNG EQU X'01' . FRAME HAD CHANGE INDICATOR ON 10550002 * 10600002 LRBMRSR2 DS XL1 . STORAGE RECONFIGURATION STATUS BYTE 2 10650002 * 10700002 LRBMOFLN EQU X'80' . FRAME IS OFFLINE OR SCHEDULED TO GO 10750002 * OFFLINE 10800002 LRBMINTC EQU X'40' . INTERCEPT - FRAME IS SCHEDULED TO GO 10850002 * OFFLINE, HAS A PERMANENT STORAGE ERROR, 10900002 * OR IS SCHEDOLED FOR V=R STATUS 10950002 LRBMSPER EQU X'20' . PERMANENT ERROR OCCURS IN FRAME 11000002 LRBMNUCL EQU X'10' . FRAME CONTAINS PERMANENTLY RESIDENT 11050002 * SYSTEM STORAGE 11100002 LRBMFSQA EQU X'08' . FRAME IS IN USE FOR SQA 11150002 LRBMLSQA EQU X'04' . FRAME IS IN USE FOR LSQA 11200002 LRBMPGFX EQU X'02' . FRAME CONTAINS PAGE FIXED DATA 11250002 LRBMVEQR EQU X'01' . FRAME IS IN USE FOR V=R OR IS SCHEDULED 11300002 * FOR V=R 11350002 * 11400002 LRBMPWL DS XL1 . PHYSICAL WORD LENGTH (CHECKING BLOCK SIZE) 11450002 LRBMMOSW DS XL8 . MACHINE CHECK OLD PSW (FROM STORAGE 11500002 * LOCATIONS 48-55) 11550002 * 11600002 LRBMFLO DS 0XL280 . MACHINE CHECK FIXED LOGOUT AREA (MOVED 11650002 * FROM STORAGE LOCATIONS 232-511) 11700002 * 11750002 LRBMCIC DS 0XL8 . MACHINE CHECK INTERRUPT CODE (MOVED FROM 11800002 * STORAGE LOCATIONS 232-239) 11850002 * 11900002 DS XL1 . 1ST BYTE OF LRBMCIC 11950002 * 12000002 LRBMFSD EQU X'80' . SYSTEM DAMAGE 12050002 LRBMFPD EQU X'40' . PROCESSING DAMAGE 12100002 LRBMFSR EQU X'20' . SYSTEM RECOVERY 12150002 LRBMFTD EQU X'10' . TIMER DAMAGE 12200002 LRBMFCD EQU X'08' . CLOCK DAMAGE 12250002 LRBMFED EQU X'04' . EXTERNAL DAMAGE 12300002 * EQU X'02' RESERVED 12350002 LRBMFDG EQU X'01' . DEGRADATION 12400002 * 12450002 DS XL1 . 2ND BYTE OF LRBMCIC 12500002 * 12550002 LRBMFWN EQU X'80' . POWER WARNING 12600002 * EQU X'40' RESERVED 12650002 * EQU X'20' RESERVED 12700002 * EQU X'10' RESERVED 12750002 * EQU X'08' RESERVED 12800002 * EQU X'04' RESERVED 12850002 LRBMIBU EQU X'02' . BACK UP INDICATOR 12900002 LRBMIDY EQU X'01' . DELAYED 12950002 * 13000002 DS XL1 . 3RD BYTE OF LRBMCIC 13050002 * 13100002 LRBMFSE EQU X'80' . STORAGE ERROR 13150002 LRBMFSC EQU X'40' . STORAGE ERROR CORRECTED 13200002 LRBMFKE EQU X'20' . KEY ERROR 13250002 * EQU X'10' RESERVED 13300002 LRBMVWP EQU X'08' . PSW EMWP VALIDITY 13350002 LRBMVMS EQU X'04' . PSW MASKS AND KEY VALIDITY 13400002 LRBMVPM EQU X'02' . PROGRAM MASKS AND CONDITION CODE VALIDITY 13450002 LRBMVIA EQU X'01' . INSTRUCTION ADDRESS VALIDITY 13500002 * 13550002 DS XL1 . 4TH BYTE OF LRBMCIC 13600002 * 13650002 LRBMVFA EQU X'80' . FAILING STORAGE ADDR VALIDITY 13700002 LRBMVRC EQU X'40' . REGION CODE VALIDITY 13750002 LRBMVED EQU X'20' . EXTERNAL DAMAGE VALIDITY @G51BP2O 13770051 LRBMVFP EQU X'10' . FLOATING POINT REG VALIDITY 13850002 LRBMVGR EQU X'08' . GENERAL PURPOSE REG VALIDITY 13900002 LRBMVCR EQU X'04' . CONTROL REG VALIDITY 13950002 LRBMVLG EQU X'02' . LOGOUT (MCEL) VALIDITY 14000002 LRBMVST EQU X'01' . STORAGE LOGICAL VALIDITY 14050002 * 14100002 DS XL1 . 5TH BYTE OF LRBMCIC @ZA34554 14150045 * 14157045 LRBMNVF EQU X'80' . LRB MAY NOT BE VALID @ZA34554 14164045 * EQU X'40' RESERVED @ZA34554 14171045 * EQU X'20' RESERVED @ZA34554 14178045 * EQU X'10' RESERVED @ZA34554 14185045 * EQU X'08' RESERVED @ZA34554 14192045 * EQU X'04' RESERVED @ZA34554 14199045 * EQU X'02' RESERVED @ZA34554 14206045 * EQU X'01' RESERVED @ZA34554 14213045 * 14230045 DS XL1 . 6TH BYTE OF LRBMCIC 14250002 * 14300002 * EQU X'80' RESERVED 14350002 * EQU X'40' RESERVED 14400002 * EQU X'20' RESERVED 14450002 * EQU X'10' RESERVED 14500002 * EQU X'08' RESERVED 14550002 * EQU X'04' RESERVED 14600002 LRBMVPT EQU X'02' . PROCESSOR TIMER VALIDITY 14650002 LRBMVCC EQU X'01' . CLOCK COMPARATOR VALIDITY 14700002 * 14750002 LRBMCELL DS XL2 . MACHINE CHECK EXTENDED LOGOUT LENGTH 14800002 * (ACTUAL LENGTH OF MCEL DATA STORED FOR 14850002 * THIS MACHINE CHECK INTERRUPTION) 14900002 DS XL4 . DATA FROM 240-243 @G51BP2O 14950051 LRBMEDC DS XL1 . DATA FROM 244 @G51BP2O 14953051 * EXTERNAL DAMAGE CODE @G51BP2O 14954051 * EQU X'80' . RESERVED @G51BP2O 14959051 * EQU X'40' . RESERVED @ZA34554 14960045 LRBMEXSR EQU X'20' . EXTERNAL SECONDARY REPORT @G51BP2O 14962051 LRBMCNOP EQU X'10' . CHANNEL NOT OPERATIONAL @G51BP2O 14965051 LRBMCCF EQU X'08' . CHANNEL CNTL FAILURE @G51BP2O 14968051 LRBMINST EQU X'04' . I/O INSTRUCTION TIMEOUT @G51BP2O 14971051 LRBMINTR EQU X'02' . I/O INTERRUPTION TIMEOUT @G51BP2O 14974051 * EQU X'01' . RESERVED @ZA34554 14977045 DS XL3 . RESERVED ALWAYS ZERO @G51BP2O 14980051 LRBMFSA DS A . FAILING STORAGE ADDRESS (MOVED FROM 15000002 * STORAGE LOCATIONS 248-251) 15050002 DS XL260 . DATA MOVED FROM STORAGE LOCATIONS 252-511 15100002 LRBMCEL DS 0X . MACHINE CHECK EXTENDED LOGOUT AREA 15150045 * (LENGTH IS MODEL DEPENDENT AND VARIES 15200002 * FROM MACHINE CHECK TO MACHINE CHECK FOR 15250002 * A GIVEN MODEL - THE ACTUAL LENGTH IS 15300002 * CONTAINED IN THE HALFWORD FIELD 15350002 * 'LRBMCELL', THE MAXIMUM LENGTH IS 15400002 * CONTAINED IN THE HALFWORD FIELD 15450002 * 'LRBHMCEL', AND THE MINIMUM LENGTH IS 15500002 * ZERO) @ZA36587 15550045 ******************************************************************* 15600002 * * 15650002 * RECONFIGURATION (DDR) RECORD * 15700002 * * 15750002 ******************************************************************* 15800002 * 15850002 LRBRDDR ORG LRBBASE RECONFIGURATION RECORD 15900002 LRBRJOB DS CL8 'FROM' DEVICE USER'S JOB NAME 15950002 LRBRVOL1 DS CL6 VOLUME MOUNTED ON 'FROM' DEVICE 16000002 LRBRVOL2 DS CL6 VOLUME MOUNTED ON 'TO' DEVICE 16050002 LRBRPH1 DS CL1 PHYSICAL ID OF DEVICE 16100002 LRBRCUA1 DS CL3 PRIMARY CUA OF 'FROM' DEVICE 16150002 LRBRDEV1 DS CL4 'FROM' DEVICE TYPE 16200002 LRBRPH2 DS CL1 PHYSICAL ID OF 'TO' DEVICE 16250002 LRBRCUA2 DS CL3 PRIMARY CUA OF 'TO' DEVICE 16300002 LRBRDEV2 DS CL4 'TO' DEVICE TYPE 16350002 ******************************************************************* 16400002 * * 16450002 * CHANNEL CHECK HANDLER RECORD * 16500002 * * 16550002 ******************************************************************* 16600002 * 16650002 LRBCCCH ORG LRBBASE CHANNEL CHECK HANDLER 16700002 LRBCJOB DS CL8 JOBNAME OF JOB WHOSE I/O RESULTED IN A 16750002 * CHANNEL ERROR 16800002 LRBCAIO DS CL16 ADDRESS OF ACTIVE I/O (2 BYTES/CHANNEL) 16850002 LRBCFCCW DS CL8 FAILING CCW 16900002 LRBCFCSW DS CL8 CSW STORED AT FAILURE 16950002 LRBCECSW DS F EXTENDED CSW 17000002 LRBCDEVT DS F DEVICE TYPE (FROM UCB) 17050002 LRBCCHID DS CL1 ID OF FAILING CHANNEL 17100002 * 00 CHANNEL TYPE UNKNOWN 17150002 * 01 INTEGRATED MULTIPLEXOR 17200002 * 02 INTEGRATED SELECTOR 17250002 * 03 INTEGRATED BLOCK MULTIPLEXOR 17300002 * 04 RESERVED 17350002 * 05 2860 SELECTOR 17400002 * 06 2870 MULTIPLEXOR 17450002 * 07 2880 BLOCK MULTIPLEXOR 17500002 * 08 NS SELECTOR 17550002 * 09 RESERVED 17600002 * 0A INTEGRATED FILE ADAPTER 17650002 * 0B-FF RESERVED 17700002 LRBCCUA DS CL1 3 BYTE ADDRESS OF CHANNEL AND UNIT IN USE 17750002 * AT TIME OF FAILURE 17800002 LRBCCUA2 DS CL2 2 BYTE ADDRESS OF CHANNEL AND UNIT IN USE 17850002 * AT TIME OF FAILURE 17900002 LRBCHCUA DS H CHANNEL AND UNIT ADDRESS LOGGED BY 17950002 * HARDWARE 18000002 LRBCLOGL DS H LENGTH OF CHANNEL LOGOUT 18050002 LRBCCLOG DS 0C CHANNEL LOGOUT. LENGTH DEPENDENT UPON 18100045 * CHANNEL TYPE @ZA36587 18130045 LRBCFT DS CL2 CCH FOOTPRINTS 18200002 LRBCRESD DS CL2 RESERVED 18250002 LRBCMPF1 DS CL1 MP INFORMATION FLAG BYTE 1 RESERVED 18300002 LRBCMPF2 DS CL1 MP INFORMATION FLAG BYTE 2 RESERVED 18350002 LRBCMPNO DS CL2 NUMBER OF ACTIVE PROCESSORS 18400002 LRBCMP DS 16XL4 MP CPU ID AND CHANNEL STATUS, (FOUR BYTES 18450045 * PER CPU) @ZA34554 18480045 LRBCMPAR ORG LRBCMP ARRAY CONSISTS OF CPU ID AND CHANNEL 18490045 * STATUS FOR EACH CPU @ZA34554 18500045 LRBCMPPA DS CL2 ADDRESS OF CPU WITH A CHANNEL DETECTED 18550002 * ERROR 18600002 LRBCMPCS DS CL2 CHANNEL STATUS (ONLINE/OFFLINE). OFFLINE 18650002 * =1, BIT 0 = CHANNEL 0 ETC. 18700002 * 18750002 * END OF CHANNEL CHECK HANDLER RECORD 18800002 * 18850002 * 18900002 ******************************************************************* 18950002 * * 19000002 * MISSING INTERRUPTION HANDLER RECORD * 19050002 * * 19100002 ******************************************************************* 19150002 * 19200002 LRBNMIH ORG LRBBASE 19250002 LRBNJOB DS CL8 JOBNAME OF JOB WHOSE I/O WAS PENDING 19300002 LRBNCUA2 DS CL3 CUA USED TO ADDRESS THE DEVICE 19350002 LRBNCUA1 DS CL3 PRIMARY CUA 19400002 LRBNVOL DS CL6 VOLUME SERIAL NUMBER 19450002 LRBNDEVT DS F DEVICE TYPE (FROM UCB) 19500002 LRBNINT DS CL8 TIME INTERVAL 19550002 * 19600002 ***************************************************************** 19650002 * * 19700002 * MISCELLANEOUS DATA RECORDER RECORD * 19750002 * * 19800002 ***************************************************************** 19850002 * 19900002 LRBDMDR ORG LRBBASE 19950002 LRBDCUA1 DS CL2 PRIMARY CUA 20000002 LRBDVOL DS CL6 VOLUME SERIAL NUMBER 20050002 LRBDSENS DS CL24 DEVICE SENSE DATA 20100002 * 20150002 **************************************************************** 20200002 * * 20250002 * SYSTEM TERMINATION RECORD * 20300002 * * 20350002 **************************************************************** 20400002 * 20450002 LRBTTER ORG LRBBASE 20500002 LRBTLNH DS F LOGREC RECORD LENGTH 20550002 LRBTWSC DS XL4 WAIT STATE CODE 20600002 LRBTUSR DS 0X USER DATA FIELD-NOTE THE VALUE IN LRBTLNH 20650045 * IS THE TOTAL LENGTH INCLUDING THE LRBTUSR, 20660045 * EXCLUDING THE HEADER. @ZA36587 20670045 * 20700002 POP PRINT 20750002 MEND 20800002 EJECT 20850002 */ 20900002 %LRB1: ; 20950002 %IHALPUSH='@LISTPUSH'; /*YM02577 */ 21200002 %IHALPOP='@LISTPOP'; /*YM02577 */ 21210002 %IHALOFF='@LISTOFF'; /*YM02577 */ 21220002 IHALPUSH; /*YM02577 */ 21230002 %IF IHALIST='YES' %THEN 21250002 %GOTO LRB2; 21300002 IHALOFF; /*YM02577 */ 21350002 %LRB2: ; 21400002 /* COMMON HEADER SECTION */ 21450002 DCL 1 LRB BASED (LRBPTR) BDY (DWORD), 21500002 2 LRBHTYPE CHAR(1), /*TYPE OF RECORD */ 21550002 2 LRBHREL FIXED(8), /* RELEASE NUMBER */ 21600002 3 LRBHSYS CHAR(1), /* SYSTEM TYPE */ 21650002 4 LRBHSYSB BIT(3), /* ACTUAL SYSTEM BITS */ 21700002 4 * BIT(5), /* ACTUAL RELEASE BITS */ 21750002 2 LRBHSW0 CHAR(1), /*INDEPENDENT SWITCH BYTE */ 21800002 3 LRBHMORE BIT(1), /* MULTIPLE RECORDS */ 21850002 3 LRBHNS BIT(1), /* NS MACHINE */ 21900002 3 * BIT(2), /* RESERVED */ 21950002 3 LRBHTMC BIT(1), /* TIME MACRO USED */ 22000002 3 * BIT(3), /* RESERVED */ 22050002 2 LRBHSW1 CHAR(1), /*DEPENDENT SWITCH BYTE 0 */ 22100002 2 LRBHSW2 CHAR (1), /* DEPENDENT SWITCH BYTE 1 */ 22150002 3 LRBMACT CHAR(1), /* MCH BUFFER ACTIVE FLAG */ 22200002 4 LRBNCEM BIT(1), /* PENDING CHANNEL END */ 22250002 4 LRBNDEM BIT(1), /* PENDING DEVICE END */ 22300002 2 LRBHSW3 CHAR(1), /* DEPENDENT SWITCH BYTE 2 */ 22350002 3 LRBMCLB CHAR(1), /* LOGREC CLOBBER FLAG (INDICATES 22400002 LOGREC BUFFER OVERLAYED) */ 22450002 2 LRBHCNT CHAR(1), /*PHYSICAL RECORDS PER LOGICAL REC CNT*/ 22500002 2 * CHAR(1), 22550002 2 LRBHDATE CHAR (4), /* DATE */ 22600002 2 LRBHTIME CHAR (4), /* TIME */ 22650002 2 LRBHCPID CHAR(8) BDY(DWORD),/* STIDP OPERAND FIELD */ 22700002 3 * CHAR(1), /* RESERVED */ 22750002 3 LRBHCSER CHAR(3), /* CPU SERIAL NUMBER */ 22800002 3 LRBHMDL CHAR(2), /* CPU MODEL NUMBER */ 22850002 3 LRBHMCEL FIXED (16) , /* MAXIMUM MCEL LENGTH */ 22900002 2 LRBBASE CHAR(0) BDY(WORD); /* DEPENDENT SECTION STARTS 22950045 @ZA34554*/ 22960045 */* */ 23000002 */* SWITCH BYTE 0 OVERLAYED (LRBHSW1) */ 23050002 */* */ 23100002 DCL 1 LRBHRSW1 DEF(LRBHSW1), 23150002 2 LRBRPRIM BIT(1), /* DDR PRIMARY STORAGE RECONFIG */ 23200002 2 LRBRSEC BIT(1), /* DDR SEC STORAGE RECONFIG */ 23250002 2 LRBROPER BIT(1), /* DDR OPERATOR REQUEST RECONFIG */ 23300002 2 LRBRSYSI BIT(1), /* DDR PERMANENT ERROR REQUEST */ 23350002 2 * BIT(4); /* RESERVED */ 23400002 DCL 1 LRBHCSW1 DEF(LRBHSW1), 23450002 2 LRBCMESG BIT(1), /* MESSAGE REQUEST */ 23500002 2 LRBCINCO BIT(1), /* RECORD INCOMPLETE */ 23550002 2 * BIT(1), 23600002 2 LRBCNOSP BIT(1), /* CHANNEL NOT SUPPORTED */ 23650002 2 LRBCICUA BIT(1), /* ILLEGAL CUA */ 23700002 2 LRBCDATA BIT(1), /* DATA OVERLAYED */ 23750002 2 LRBCERPP BIT(1), /* ERP IN PROGRESS */ 23800002 2 * BIT(1); 23850002 DCL 1 LRBHMSW1 DEF(LRBHSW1), 23900002 2 * BIT(2), /* RESERVED */ 23950002 2 LRBMSYST BIT(1), /* SYSTEM TERMINATED */ 24000002 2 * BIT(5); /* RESERVED */ 24050002 */* */ 24100002 */* RECORD TYPE EQUATES (LRBHTYPE) */ 24150002 */* */ 24200002 DCL LRBHREC BIT (8) CONSTANT('60'X) ; /* DDR RECORD */ 24250045 DCL LRBHMDR BIT (8) CONSTANT('90'X) ; /* MDR RECORD */ 24280045 DCL LRBHMIH BIT (8) CONSTANT('70'X) ; /* MIH RECORD */ 24310045 DCL LRBHCCH BIT (8) CONSTANT('21'X) ; /* CCH RECORD */ 24340045 DCL LRBHMCH BIT (8) CONSTANT('13'X) ; /* MCH RECORD */ 24370045 DCL LRBHTER BIT (8) CONSTANT('81'X) ; /* SYSTEM TERMINATION RECORD*/ 24400045 DCL LRBHSFW BIT (8) CONSTANT('40'X) ; /* 4X TYPE RECORDS ARE SOFT- 24430045 WARE TYPE MAPPED BY IHAHDR 24460045 @ZA34554*/ 24490045 DCL LRBHSFR BIT (8) CONSTANT('4F'X) ; /* @ZA34554*/ 24520045 DCL LRBHSRS BIT (8) CONSTANT('84'X) ; /* SYSTEM RESTARTABLE WAIT 24550045 @ZA34554*/ 24580045 DCL LRBHMCF BIT (8) CONSTANT('A0'X) ; /* MCH FRAME RECORD @ZA34554*/ 24610045 DCL LRBHCCF BIT (8) CONSTANT('B0'X) ; /* CCH FRAME RECORD @ZA34554*/ 24640045 /* SYSTEM TYPE EQUATES (LRBHSYS) */ 24670045 DCL LRBHOS BIT(3) CONSTANT('000'B) ; /* OS SYSTEM */ 24700045 DCL LRBHDOS BIT(3) CONSTANT('001'B) ; /* DOS SYSTEM */ 24730045 DCL LRBHVS1 BIT(3) CONSTANT('010'B) ; /* OS/VS1 SYSTEM */ 24760045 DCL LRBHCP67 BIT(3) CONSTANT('011'B) ; /* CP67 SYSTEM */ 24790045 DCL LRBHVS2 BIT(3) CONSTANT('100'B) ; /* OS/VS2 SYSTEM */ 24820045 */* MDR EQUATES FOR SWITCH BYTE 2 (LRBHSW2) */ 24850045 DCL LRBD3330 BIT (8) CONSTANT('01'X) ; /* 3330 TYPE */ 24880045 DCL LRBD3211 BIT (8) CONSTANT('04'X) ; /* 3211 TYPE */ 24910045 DCL LRBD3340 BIT (8) CONSTANT('09'X) ; /* 3340 TYPE */ 24940045 DCL LRBDICE BIT (8) CONSTANT('07'X) ; /* 3330C TYPE */ 24970045 DCL LRBD2946 BIT (8) CONSTANT('F0'X) ; /* 2946 TYPE */ 25000045 DCL LRBD2948 BIT (8) CONSTANT('F1'X) ; /* 2948 TYPE */ 25030045 DCL LRBD1006 BIT (8) CONSTANT('F2'X) ; /* 1006 TYPE */ 25060045 DCL LRBD2703 BIT (8) CONSTANT('F3'X) ; /* 2703 TYPE */ 25090045 DCL LRBD2969 BIT (8) CONSTANT('F4'X) ; /* 2969 TYPE */ 25120045 /* MACHINE CHECK HANDLER RECORD */ 25350002 DCL 1 LRBMMCH DEF(LRBBASE) BDY(WORD), 25400002 2 LRBMLNH FIXED(31), /* LENGTH OF LOGREC RECORD */ 25450002 2 LRBMWSC CHAR(4), /* WAIT STATE CODE */ 25500002 2 LRBMCEIA CHAR(4), /* MACHINE CHECK ERROR INDICATOR 25550002 AREA */ 25600002 3 LRBMTERM CHAR(1), /* TERMINAL ERROR FLAGS */ 25650002 4 * BIT(2), /* RESERVED */ 25670055 4 LRBMTTHR BIT(1), /* HARD ERROR 25700055 THRESHOLD FLAG @G55CP2P*/ 25710055 4 LRBMTSEC BIT(1), /* SECONDARY ERROR FLAG */ 25750002 4 LRBMTCKS BIT(1), /* CHECK STOP FLAG */ 25800002 4 LRBMTWRN BIT(1), /* POWER WARNING FLAG */ 25850002 4 LRBMTDMG BIT(1), /* SYSTEM DAMAGE FLAG */ 25900002 4 LRBMTINV BIT(1), /* INVALID LOGOUT FLAG (SET WHEN 25950002 LRBMCIC = 0 ) */ 26000002 3 LRBMHARD CHAR(1), /* HARD MACHINE ERROR FLAGS */ 26050002 4 LRBMHHRD BIT(1), /* ASSUMED HARD ERROR FLAG */ 26100002 4 * BIT(2), /* RESERVED */ 26150055 4 LRBMHSD BIT(1), /* SYSTEM DAMAGE FLAG @G555P2M*/ 26160055 4 LRBMHINV BIT(1), /* REGISTER OR PSW INVALID FLAG */ 26200002 4 LRBMHSTO BIT(1), /* HARD STORAGE FAILURE FLAG */ 26250002 4 LRBMHSPF BIT(1), /* HARD PROTECTION KEY ERROR FLAG*/ 26300002 4 LRBMHIPD BIT(1), /* INSTRUCTION PROCESSING DAMAGE 26350002 FLAG */ 26400002 3 LRBMINTM CHAR(1), /* INTERMEDIATE ERROR FLAGS */ 26450002 4 * BIT(4), /* RESERVED */ 26470055 4 LRBMITOD BIT(1), /* TOD CLOCK ERROR FLAG */ 26550002 4 LRBMICKC BIT(1), /* CLOCK COMPARATOR ERROR FLAG */ 26600002 4 LRBMICTM BIT(1), /* CPU TIMER ERROR FLAG */ 26650002 4 LRBMIL80 BIT(1), /* INTERVAL TIMER ERROR FLAG */ 26700002 3 LRBMSOFT CHAR(1), /* SOFT MACHINE ERROR FLAGS */ 26750002 4 LRBMSSFT BIT(1), /* ASSUMED SOFT ERROR FLAG */ 26800002 4 * BIT(3), /* RESERVED */ 26850002 4 LRBMSEXD BIT(1), /* EXTERNAL DAMAGE FLAG */ 26900002 4 LRBMSECC BIT(1), /* ECC CORRECTED STORAGE ERROR 26950002 FLAG */ 27000002 4 LRBMSHIR BIT(1), /* HIR CORRECTED PROCESSOR 27050002 ERROR FLAG */ 27100002 4 LRBMSBUF BIT(1), /* BUFFER ERROR FLAG */ 27150002 2 LRBMPDAR CHAR(1), /* PDAR DATA (SUPPLIED BY RTM) */ 27200002 3 * BIT(3), /* RESERVED */ 27250002 3 LRBMINVP BIT(1), /* STORAGE RECONFIGURED - PAGE 27300002 INVALIDATED */ 27350002 3 LRBMRSRC BIT(1), /* STORAGE RECONFIGURATION STATUS 27400002 AVAILABLE (FOLLOWING TWO BYTES 27450002 ARE MEANINGFULL) */ 27500002 3 LRBMRSRF BIT(1), /* STORAGE RECONFIGURATION NOT 27550002 ATTEMPTED */ 27600002 3 * BIT(2), /* RESERVED */ 27650002 2 LRBMRSR1 CHAR(1), /* STORAGE RECONFIGURATION STATUS 27700002 BYTE 1 */ 27750002 3 * BIT(6), /* RESERVED */ 27800002 3 LRBMSER BIT(1), /* STORAGE ERROR WAS ALREADY SET 27850002 IN FRAME */ 27900002 3 LRBMCHNG BIT(1), /* FRAME HAD CHANGE INDICATOR ON */ 27950002 2 LRBMRSR2 CHAR(1), /* STORAGE RECONFIGURATION STATUS 28000002 BYTE 2 */ 28050002 3 LRBMOFLN BIT(1), /* FRAME IS OFFLINE OR SCHEDULED 28100002 TO GO OFFLINE */ 28150002 3 LRBMINTC BIT(1), /* INTERCEPT - FRAME IS SCHEDULED 28200002 TO GO OFFLINE, HAS A PERMANENT 28250002 STORAGE ERROR, OR IS SCHEDULED 28300002 FOR V=R STATUS */ 28350002 3 LRBMSPER BIT(1), /* PERMANENT ERROR OCCURS IN 28400002 FRAME */ 28450002 3 LRBMNUCL BIT(1), /* FRAME CONTAINS PERMANENTLY 28500002 RESIDENT SYSTEM STORAGE */ 28550002 3 LRBMFSQA BIT(1), /* FRAME IS IN USE FOR SQA */ 28600002 3 LRBMLSQA BIT(1), /* FRAME IS IN USE FOR LSQA */ 28650002 3 LRBMPGFX BIT(1), /* FRAME CONTAINS PAGE FIXED DATA*/ 28700002 3 LRBMVEQR BIT(1), /* FRAME IS IN USE FOR V=R OR IS 28750002 SCHEDULED FOR V=R */ 28800002 2 LRBMPWL FIXED(8) UNSIGNED, /* PHYSICAL WORD LENGTH 28850002 (CHECKING BLOCK SIZE) */ 28900002 2 LRBMMOSW CHAR(8), /* MACHINE CHECK OLD PSW (FROM 28950002 STORAGE LOCATIONS 48-55) */ 29000002 2 LRBMFLO CHAR(280) BDY(WORD), /* MACHINE CHECK FIXED LOGOUT 29050002 AREA (MOVED FROM STORAGE 29100002 LOCATIONS 232-511) */ 29150002 3 LRBMCIC CHAR(8) BDY(WORD), /* MACHINE CHECK INTERRUPT 29200002 CODE (MOVED FROM STORAGE 29250002 LOCATIONS 232-239) */ 29300002 4 * CHAR(1), /* 1ST BYTE OF LRBMCIC */ 29350002 5 LRBMFSD BIT(1), /* SYSTEM DAMAGE */ 29400002 5 LRBMFPD BIT(1), /* PROCESSING DAMAGE */ 29450002 5 LRBMFSR BIT(1), /* SYSTEM RECOVERY */ 29500002 5 LRBMFTD BIT(1), /* TIMER DAMAGE */ 29550002 5 LRBMFCD BIT(1), /* CLOCK DAMAGE */ 29600002 5 LRBMFED BIT(1), /* EXTERNAL DAMAGE */ 29650002 5 * BIT(1), /* RESERVED */ 29700002 5 LRBMFDG BIT(1), /* DEGRADATION */ 29750002 4 * CHAR(1), /* 2ND BYTE OF LRBMCIC */ 29800002 5 LRBMFWN BIT(1), /* POWER WARNING */ 29850002 5 * BIT(5), /* RESERVED */ 29900002 5 LRBMIBU BIT(1), /* BACK UP INDICATOR */ 29950002 5 LRBMIDY BIT(1), /* DELAYED */ 30000002 4 * CHAR(1), /* 3RD BYTE OF LRBMCIC */ 30050002 5 LRBMFSE BIT(1), /* STORAGE ERROR */ 30100002 5 LRBMFSC BIT(1), /* STORAGE ERROR CORRECTED */ 30150002 5 LRBMFKE BIT(1), /* KEY ERROR */ 30200002 5 * BIT(1), /* RESERVED */ 30250002 5 LRBMVWP BIT(1), /* PSW EMWP VALIDITY */ 30300002 5 LRBMVMS BIT(1), /* PSW MASKS AND KEY VALIDITY */ 30350002 5 LRBMVPM BIT(1), /* PROGRAM MASKS AND CONDITION 30400002 CODE VALIDITY */ 30450002 5 LRBMVIA BIT(1), /* INSTRUCTION ADDRESS VALIDITY */ 30500002 4 * CHAR(1), /* 4TH BYTE OF LRBMCIC */ 30550002 5 LRBMVFA BIT(1), /* FAILING STORAGE ADDR VALIDITY */ 30600002 5 LRBMVRC BIT(1), /* REGION CODE VALIDITY */ 30650002 5 LRBMVED BIT(1), /* EXT DAMAGE VALIDITY @G51BP2O */ 30670051 5 LRBMVFP BIT(1), /* FLOATING POINT REG VALIDITY */ 30750002 5 LRBMVGR BIT(1), /* GENERAL PURPOSE REG VALIDITY */ 30800002 5 LRBMVCR BIT(1), /* CONTROL REG VALIDITY */ 30850002 5 LRBMVLG BIT(1), /* LOGOUT (MCEL) VALIDITY */ 30900002 5 LRBMVST BIT(1), /* STORAGE LOGICAL VALIDITY */ 30950002 4 * CHAR(1), /* 5TH BYTE OF LRBMCIC @ZA34554*/ 31000045 5 LRBMNVF BIT(1), /* LRB MAY NOT BE VALID @ZA34554*/ 31010045 5 * BIT(7), /* RESERVED @ZA34554*/ 31020045 4 * CHAR(1), /* 6TH BYTE OF LRBMCIC */ 31050002 5 * BIT(6), /* RESERVED */ 31100002 5 LRBMVPT BIT(1), /* PROCESSOR TIMER VALIDITY */ 31150002 5 LRBMVCC BIT(1), /* CLOCK COMPARATOR VALIDITY */ 31200002 4 LRBMCELL FIXED(16) UNSIGNED, /* MACHINE CHECK EXTENDED 31250002 LOGOUT LENGTH (ACTUAL 31300002 LENGTH OF MCEL DATA STORED 31350002 FOR THIS MACHINE CHECK 31400002 INTERRUPTION) */ 31450002 3 * CHAR(4), /* DATA MOVED FROM STORAGE 31470051 LOCATIONS 240-243 @G51BP2O */ 31500051 3 LRBMEDC CHAR(1), /* DATA FROM 244, 31550051 EXTERNAL DAMAGE CODE @G51BP2O */ 31551051 4 * BIT(1), /* RESERVED @G51BP2O */ 31556051 4 * BIT(1), /* RESERVED @ZA34554 */ 31557045 4 LRBMEXSR BIT(1), /* EXT SECONDARY REPORT @G51BP2O */ 31559051 4 LRBMCNOP BIT(1), /* CHANNEL NOT @G51BP2O 31562051 OPERATIONAL @G51BP2O */ 31565051 4 LRBMCCF BIT(1), /* CHANNEL CNTL FAILURE @G51BP2O */ 31568051 4 LRBMINST BIT(1), /* I/O INSTRUCTION @G51BP2O 31571051 TIMEOUT @G51BP2O */ 31574051 4 LRBMINTR BIT(1), /* I/O INTERRUPTION @G51BP2O 31577051 TIMEOUT @G51BP2O */ 31580051 4 * BIT(1), /* RESERVED @ZA34554 */ 31583045 3 * CHAR(3), /* ALWAYS ZERO @G51BP2O */ 31589051 3 LRBMFSA PTR(31), /* FAILING STORAGE ADDRESS (MOVED 31600002 FROM STORAGE LOCATIONS 248-251*/ 31650002 3 * CHAR(260), /* DATA MOVED FROM STORAGE 31700002 LOCATIONS 252-511 */ 31750002 2 * CHAR(0), /* MACHINE CHECK EXTENDED 31800045 LOGOUT @ZA34554*/ 31810045 3 LRBMCEL CHAR(*); /* MACHINE CHECK EXTENDED LOGOUT 31820045 AREA (LENGTH IS MODEL 31850002 DEPENDENT AND VARIES FROM 31900002 MACHINE CHECK TO MACHINE CHECK 31950002 FOR A GIVEN MODEL - THE ACTUAL 32000002 LENGTH IS CONTAINED IN THE 32050002 HALFWORD FIELD 'LRBMCELL', THE 32100002 MAXIMUM LENGTH IS CONTAINED IN 32150002 THE HALFWORD FIELD 'LRBHMCEL', 32200002 AND THE MINIMUM LENGTH IS 32250002 ZERO) @ZA34554*/ 32300045 /* RECONFIGURATION (DDR) RECORD */ 32350002 DCL 1 LRBRDDR DEF(LRBBASE) BDY (WORD), 32400002 2 LRBRJOB CHAR(8), /* 'FROM' DEVICE USER'S JOB NAME */ 32450002 2 LRBRVOL1 CHAR (6), /* VOLUME MOUNTED ON 'FROM' DEVICE */ 32500002 2 LRBRVOL2 CHAR (6), /* VOLUME MOUNTED ON 'TO' DEVICE */ 32550002 2 LRBRPH1 CHAR(1), /* PHYSICAL ID OF DEVICE */ 32600002 2 LRBRCUA1 CHAR(3), /* PRIMARY CUA OF 'FROM'DEVICE */ 32650002 2 LRBRDEV1 CHAR(4), /* 'FROM' DEVICE TYPE */ 32700002 2 LRBRPH2 CHAR(1), /* PHYSICAL ID OF 'TO' DEVICE */ 32750002 2 LRBRCUA2 CHAR(3), /* PRIMARY CUA OF 'TO' DEVICE */ 32800002 2 LRBRDEV2 CHAR(4); /* 'TO' DEVICE TYPE */ 32850002 /* CHANNEL CHECK HANDLER RECORD */ 32900002 DCL 1 LRBCCCH DEF(LRBBASE) BDY(WORD), 32950002 2 LRBCJOB CHAR(8), /* JOBNAME OF JOB WHOSE I/O 33000002 RESULTED IN A CHANNEL ERROR */ 33050002 2 LRBCAIO (8) CHAR(2), /* ADDRESSES OF ACTIVE I/O 33100002 (2 BYTES PER ADDRESS) */ 33150002 2 LRBCFCCW CHAR(8), /* FAILING CCW */ 33200002 2 LRBCFCSW CHAR(8), /* CSW STORED AT FAILURE */ 33250002 2 LRBCECSW CHAR(4), /* EXTENDED CSW */ 33300002 2 LRBCDEVT CHAR(4), /* DEVICE TYPE (FROM UCB) */ 33350002 2 LRBCCHID CHAR(1), /* ID OF FAILING CHANNEL */ 33400002 /* 00 UNKNOWN TYPE 33450002 01 INTEGRATED MULTIPLEXOR 33500002 02 INTEGRATED SELECTOR 33550002 03 INTEGRATED BLOCK 33600002 MULTIPLEXOR 33650002 04 RESERVED 33700002 05 2860 SELECTOR 33750002 06 2870 MULTIPLEXOR 33800002 07 2880 BLOCK MULTIPLEXOR 33850002 08 NS SELECTOR 33900002 09 RESERVED 33950002 0A INTEGRATED FILE ADAPTER 34000002 0B-FF RESERVED */ 34050002 2 LRBCCUA CHAR(3), /* ADDRESS OF CHANNEL AND UNIT 34100002 IN USE AT TIME OF FAILURE */ 34150002 3 * CHAR(1), 34200002 3 LRBCCUA2 CHAR(2), /* 2 BYTE CHANNEL AND UNIT 34250002 ADDRESS AT TIME OF FAILURE */ 34300002 2 LRBCHCUA CHAR(2), /* CHANNEL AND UNIT ADDRESS 34350002 LOGGED BY HARDWARE */ 34400002 2 LRBCLOGL CHAR(2), /* LENGTH OF CHANNEL LOGOUT */ 34450002 2 * CHAR(0), /* CHANNEL LOGOUT LENGTH 34500045 @ZA34554*/ 34510045 3 LRBCCLOG CHAR(*); /* CHANNEL LOGOUT LENGTH DEPENDENT 34520045 UPON CHANNEL TYPE @ZA34554*/ 34530045 DCL 1 LRBCVAR BASED, /* CCH VARIABLE POSITION DATA */ 34600002 2 LRBCFT CHAR(2), /* CCH FOOTPRINTS */ 34650002 2 LRBCRESD CHAR(2), /* RESERVED */ 34700002 2 LRBCMPF1 CHAR(1), /* MP INFORMATION FLAG BYTE 34750002 , RESERVED */ 34800002 2 LRBCMPF2 CHAR(1), /* MP INFORMATION FLAG BYTE 34850002 , RESERVED */ 34900002 2 LRBCMPNO CHAR(2), /* NUMBER OF ACTIVE PROCESSORS */ 34950002 2 LRBCMP (16), /* MP CPU ID AND CHANNEL STATUS 35000045 (FOUR BYTES PER CPU) @ZA34554*/ 35030045 3 LRBCMPPA CHAR(2), /* ADDRESS OF CPU WITH A 35100002 CHANNEL DETECTED ERROR */ 35150002 3 LRBCMPCS CHAR(2); /* CHANNEL STATUS (ONLINE OR 35200002 OFFLINE). OFFLINE=1, BIT 0 35250002 = CHANNEL 0 ETC. */ 35300002 /* MISCELLANEOUS DATA RECORDER (MDR) RECORD */ 35350002 DCL 1 LRBDMDR DEF(LRBBASE) BDY (WORD), 35400002 2 LRBDCUA1 CHAR(2), /* PRIMARY DEVICE CUA */ 35450002 2 LRBDVOL CHAR(6), /* VOLUME SERIAL NUMBER */ 35500002 2 LRBDSENS CHAR(24); /* DEVICE SENSE DATA */ 35550002 /* MISSING INTERRUPTION HANDLER (MIH) RECORD */ 35600002 DCL 1 LRBNMIH DEF(LRBBASE) BDY (WORD), 35650002 2 LRBNJOB CHAR(8), /* I/O REQUEST PENDING JOBNAME */ 35700002 2 LRBNCUA2 CHAR(3), /* DEVICE CUA */ 35750002 2 LRBNCUA1 CHAR(3), /* PRIMARY DEVICE CUA */ 35800002 2 LRBNVOL CHAR(6), /* VOLUME SERIAL NUMBER */ 35850002 2 LRBNDEVT CHAR(4), /* DEVICE UCB TYPE */ 35900002 2 LRBNINT CHAR(8); /* TIME INTERVAL */ 35950002 /* SYSTEM TERMINATION RECORD */ 36000002 DCL 1 LRBTTER DEF(LRBBASE) BDY (WORD), 36050002 2 LRBTLNH FIXED(31), /* LOGREC RECORD LENGTH */ 36100002 2 LRBTWSC CHAR(4), /* WAIT STATE CODE */ 36150002 2 * CHAR(0), /* USER DATA FIELD @ZA34554*/ 36200045 3 LRBTUSR CHAR(*); /* USER DATA FIELD-NOTE THE VALUE 36250045 IN LRBTLNH IS THE TOTAL LENGTH 36300045 INCLUDING THE LRBTUSR EXCLUDING 36350045 THE HEADER @ZA34554*/ 36400045 IHALPOP; /*YM02577*/ 36450045