*% GOTO SDWABSL1; /* 00650002 MACRO 00800000 IHASDWA &DSECT=YES 00810002 .*A000000 Y02704 00850002 * */ 00900002 *%SDWABSL1 : ; 01312002 * /*******************************************************************/ 01312402 * /* */ 01312802 * /* THE SDWA (SYSTEM DIAGNOSTIC WORK AREA) IS USED BY BOTH (E)STA */ 01313202 * /* EXIT ROUTINES AND FRR ROUTINES AS THE COMMUNICATION AREA */ 01313602 * /* BETWEEN THE RTM AND THE (E)STA OR FRR WHEN ERRORS OCCUR. */ 01313702 * /* IT IS ALSO REFERRED TO AS THE RTCA (RECOVERY TERMINATION */ 01313802 * /* COMMUNICATION AREA). IT CONTAINS DATA CONCERNING THE ORIGINAL */ 01313902 * /* ERROR AND ALSO CONCERNING ACTIONS OF PREVIOUSLY ENTERED */ 01315302 * /* RECOVERY ROUTINES. */ 01317302 * /* */ 01317502 * /* METHOD OF ACCESS */ 01317902 * /* BAL */ 01318002 * /* IHASDWA DSECT = YES */ 01318102 * /* NO */ 01318202 * /* DSECT = YES IS THE DEFAULT AND WILL PRODUCE THE SDWA */ 01318302 * /* AS A DSECT. */ 01318502 * /* DSECT = NO WILL PRODUCE THE SDWA AS A CONTINUATION OF */ 01318902 * /* DEFINED STORAGE. (NO DSECT CARD PRODUCED) */ 01319002 * /* PLS */ 01319402 * /* IF MACRO VARIABLE %SDWA9999 IS NOT EQUAL TO ',' */ 01319602 * /* AND %SDWALVL IS NULL, THE SDWA WILL BE INCLUDED */ 01319702 * /* AS A LEVEL 1 STRUCTURE BASED ON SDWAPTR. */ 01319802 * /* */ 01325902 * /* IF %SDWALVL IS SPECIFIED AS A NUMBER FROM 1 TO 4 */ 01327902 * /* THE SDWA WILL BE A NON-BASED STRUCTURE WITH THE */ 01329902 * /* TOP LEVEL EQUAL TO %SDWALVL. */ 01331902 * /* */ 01332302 * /* IF SDWA9999 IS EQUAL TO ',' THE SDWA WILL */ 01332702 * /* TERMINATE WITH A COMMA RATHER THAN A */ 01332802 * /* SEMI-COLON. */ 01332902 * /* */ 01340702 * /* */ 01342702 * /* MACMEAN SDWA MEANS SYSTEM DIAGNOSTIC WORK AREA */ 01348602 * /* MACCOMP Y-1 SC1C5/PZD81 */ 01356402 * /* MACSTAT Y-1 72318/Y02703,Y02704 */ 01364202 * /* UPDATED 9/23/76 SU33 @G33SPHW*/ 01364443 * /* */ 01364602 * /*******************************************************************/ 01366202 *% GOTO SDWABSL; /* 01372002 AIF ('&DSECT' EQ 'YES').SDWA001 01379802 SDWA DS 0D - 01387602 AGO .SDWA002 01395402 .SDWA001 ANOP 01403202 SDWA DSECT , SDWAPTR 01411002 .SDWA002 SPACE 2 01418802 SDWAPARM DS A - PARAMETER LIST ADDRESS IF (E)STA MACRO 01426602 * SPECIFIED PARAM OPTION OR 0. FOR FRRS THIS 01434402 * IS THE ADDRESS OF THE 6 WORD PARM AREA 01436402 * RETURNED BY THE SETFRR MACRO WHEN THE 01438402 * PARMAD KEYWORD IS SPECIFIED ON THE SETFRR 01440402 SDWAFIOB DS 0A - ADDRESS OF PURGE I/O REQUEST LIST (PIRL) 01442202 * OR 0 IF HALT I/O IS REQUESTED ON ENTRY TO 01450002 * RETRY ROUTINE FOR (E)STA. 01460002 SDWAABCC DS 0BL4 - ABEND COMPLETION CODE ON ENTRY TO EXIT ROUTINE. 01500002 SDWACMPF DS B - FLAG BITS IN COMPLETION CODE. 01550002 SDWAREQ EQU X'80' - ON, DUMP TO BE GIVEN. SET IF DUMP 01560002 * REQUESTED BY ABEND, CALLRTM OR SETRP MACRO. 01610002 SDWASTEP EQU X'40' - ON, JOBSTEP TO BE TERMINATED. 07200000 * SET IF STEP OPTION SPECIFIED 07250002 * ON ABEND MACRO. 07300002 SDWASTCC EQU X'10' - ON, DON'T STORE COMPLETION CODE. 07600000 * NOT USED IN OS/VS2 R2. 08000002 SDWACMPC DS BL3 - SYSTEM COMPLETION CODE (FIRST 12 BITS) AND 08400000 * USER COMPLETION CODE (SECOND 12 BITS). 08800000 SDWACTL1 DS 0CL8 - BC MODE PSW AT TIME OF ERROR 09200002 * NOT INITIALIZED FOR FRRS. 09250002 SDWACMKA DS B - CHANNEL INTERRUPT MASKS. 09600000 SDWAIOA EQU X'FE' - I/O INTERRUPTS (ALL ZEROS OR ALL ONES). 10000000 SDWAEXTA EQU X'01' - EXTERNAL INTERRUPT. 10400000 SDWAMWPA DS B - PSW KEY AND 'M-W-P'. 10800000 SDWAKEYA EQU X'F0' - PSW KEY. 11200000 SDWAMCKA EQU X'04' - MACHINE CHECK INTERRUPT. 11600000 SDWAWATA EQU X'02' - WAIT STATE. 12000000 SDWASPVA EQU X'01' - SUPERVISOR/PROBLEM-PROGRAM MODE. 12400000 SDWAINTA DS CL2 - INTERRUPT CODE (LAST 2 BYTES OF INTERRUPT 12800000 * CODE IF I/O INTERRUPT). 13200000 SDWAPMKA DS B - INSTRUCTION LENGTH CODE, CONDITION CODE, 13600000 * AND PROGRAM MASKS. 14000000 SDWAILA EQU X'C0' - INSTRUCTION LENGTH CODE. 14400000 SDWACCA EQU X'30' - LAST CONDITION CODE. 14800000 SDWAFPA EQU X'08' - FIXED-POINT OVERFLOW. 15200000 SDWADOA EQU X'04' - DECIMAL OVERFLOW. 15600000 SDWAEUA EQU X'02' - EXPONENT UNDERFLOW. 16000000 SDWASGA EQU X'01' - SIGNIFICANCE. 16400000 SDWANXTA DS AL3 - ADDRESS OF NEXT INSTRUCTION TO BE EXECUTED. 16800000 * 17200000 SDWACTL2 DS 0CL8 - BC MODE PSW FROM LAST PRB ON RB CHAIN. 17600002 * ZERO FOR FRRS. 17650002 SDWACMKP DS B - CHANNEL INTERRUPT MASKS. 18000000 SDWAIOP EQU X'FE' - I/O INTERRUPTS (ALL ZEROS OR ALL ONES). 18400000 SDWAEXTP EQU X'01' - EXTERNAL INTERRUPT. 18800000 SDWAMWPP DS B - PSW KEY AND 'M-W-P'. 19200000 SDWAKEYP EQU X'F0' - PSW KEY. 19600000 SDWAMCKP EQU X'04' - MACHINE CHECK INTERRUPT. 20000000 SDWAWATP EQU X'02' - WAIT STATE. 20400000 SDWASPVP EQU X'01' - SUPERVISOR/PROBLEM-PROGRAM MODE. 20800000 SDWAINTP DS CL2 - INTERRUPT CODE (LAST 2 BYTES OF INTERRUPT 21200000 * CODE IF I/O INTERRUPT). 21600000 SDWAPMKP DS B - INSTRUCTION LENGTH CODE, CONDITION CODE, 22000000 * AND PROGRAM MASKS. 22400000 SDWAILP EQU X'C0' - INSTRUCTION LENGTH CODE. 22800000 SDWACCP EQU X'30' - LAST CONDITION CODE. 23200000 SDWAFPP EQU X'08' - FIXED-POINT OVERFLOW. 23600000 SDWADOP EQU X'04' - DECIMAL OVERFLOW. 24000000 SDWAEUP EQU X'02' - EXPONENT UNDERFLOW. 24400000 SDWASGP EQU X'01' - SIGNIFICANCE. 24800000 SDWANXTP DS AL3 - ADDRESS OF NEXT INSTRUCTION TO BE EXECUTED. 25200000 * 25600000 SDWAGRSV DS 0CL64 - GENERAL PURPOSE REGISTERS AT TIME OF ERROR 26000002 SDWAGR00 DS F - GPR 0. 26400000 SDWAGR01 DS F - GPR 1. 26800000 SDWAGR02 DS F - GPR 2. 27200000 SDWAGR03 DS F - GPR 3. 27600000 SDWAGR04 DS F - GPR 4. 28000000 SDWAGR05 DS F - GPR 5. 28400000 SDWAGR06 DS F - GPR 6. 28800000 SDWAGR07 DS F - GPR 7. 29200000 SDWAGR08 DS F - GPR 8. 29600000 SDWAGR09 DS F - GPR 9. 30000000 SDWAGR10 DS F - GPR 10. 30400000 SDWAGR11 DS F - GPR 11. 30800000 SDWAGR12 DS F - GPR 12. 31200000 SDWAGR13 DS F - GPR 13. 31600000 SDWAGR14 DS F - GPR 14. 32000000 SDWAGR15 DS F - GPR 15. 32400000 * 32800000 SDWANAME DS 0CL8 - IF PROBLEM PROGRAM MODE NAME 33200002 * OF ABENDING PROGRAM, OR ZERO 33600002 * IF NO NAME IS AVAILABLE. 33650002 * ZERO IF NOT RUNNING UNDER AN RB 33700002 SDWARBAD DS A - RB ADDRESS OF ABENDING PROGRAM (IF SUPERVISOR 34000000 * MODE PROGRAM RUNNING UNDER AN RB) 34400002 DS XL4 - CONTAINS ZEROS IF SUPERVISOR MODE PROGRAM 34800002 * RUNNING UNDER AN RB OR IF PROGRAM NOT 34850002 * RUNNING UNDER AN RB 34900002 SDWAEPA DS A - ENTRY POINT ADDRESS OF ABENDING PROGRAM. 35600002 * ZERO IF NOT RUNNING UNDER AN RB 35650002 SDWAIOBR DS A - POINTER TO SDWAFIOB FIELD, 36000002 * OR 0 IF NO RETRY, OR 0 IF HALT I/O 36400002 * IS REQUESTED FOR (E)STA EXITS. 36402002 * ZERO FOR FRRS ICB377 36404002 SDWAEC1 DS 0CL8 EXTENDED CONTROL PSW AT TIME OF ERROR(ABEND) 36410002 SDWAEMK1 DS B INTERRUPT INFORMATION MASKS 36420002 SDWAPER1 EQU X'40' ON,PROGRAM EVENT RECORDING 36430002 * INTERRUPTS CAN OCCUR 36432002 * OFF, PROGRAM EVENT RECORDING 36434002 * INTERRUPTS CANNOT OCCUR 36436002 SDWATRM1 EQU X'04' ON,ADDRESS TRANSLATION ACTIVE 36442002 SDWAIO1 EQU X'02' OFF,I/0 INTERRUPTION CAN NOT OCCUR 36444002 * ON,I/0 INTERRUPTIONS CAN OCCUR SUBJECT TO 36446002 * TO CHANNEL MASK BITS IN CONTROL REGS 2 AND 3 36448002 SDWAEXT1 EQU X'01' OFF,EXTERNAL INTERRUPTION CANNOT OCCUR 36448402 * ON,EXTERNAL INTERRUPTIONS CAN OCCUR SUBJECT TO 36448802 * EXTERNAL SUBCLASS MASK BITS OF CONTROL REG 0 36449202 SDWAMWP1 DS B PSW KEY AND 'M-W-P' 36449602 SDWAKEY1 EQU X'F0' PSW KEY 36449702 SDWAECT1 EQU X'08' EXTENDED CONTROL MODE BIT 36449802 SDWAMCK1 EQU X'04' OFF,MACHINE CHECK CANNOT OCCUR 36449902 * ON,MACHINE CHECK DUE TO SYSTEM DAMAGE AND 36466602 * INSTRUCTION-PROCESSING DAMAGE CAN OCCUR 36476602 * OTHER MACHINE CHECKS SUBJECT TO MASK BITS 36478602 * IN CONTROL REGISTER 14 36480602 SDWAWAT1 EQU X'02' ON,CPU IN WAIT STATE 36482602 SDWAPGM1 EQU X'01' ON,PROBLEM STATE 36483002 * OFF, SUPERVISOR STATE 36483102 SDWAINT1 DS B CONDITION CODE AND PROGRAM MASK 36483202 SDWACC1 EQU X'30' CONDITION CODE 36488802 SDWAFPO1 EQU X'08' FIXED POINT OVERFLOW 36490802 SDWADEC1 EQU X'04' DECIMAL OVERFLOW 36492802 SDWAEXP1 EQU X'02' EXPONENT UNDERFLOW 36493202 SDWASGN1 EQU X'01' SIGNIFICANCE 36493602 DS B RESERVED 36494002 SDWANXT1 DS 0F ADDRESS OF NEXT INSTRUCTION TO BE EXECUTED. 36494102 DS CL1 RESERVED 36495902 SDWAADD1 DS CL3 INSTRUCTION ADDRESS 36497902 SDWAAEC1 DS 0CL8 ADDITIONAL EC MODE INFORMATION 36502902 DS CL1 RESERVED 36503302 SDWAILC1 DS B INSTRUCTION LENGTH CODE FOR PSW DEFINED 36503902 * BY SDWAEC1 36505902 SDWAIL1 EQU X'06' ILC 36508202 SDWAINC1 DS 0CL2 INTERRUPT CODE. IF PROGRAM CHECK OCCURRED 36510202 * THE SUBFIELDS ARE FURTHER DIVIDED 36510602 DS CL1 RESERVED FOR IMPRECISE INTERRUPTS 36512202 * ON PROGRAM CHECK INTERRUPT 36512602 SDWAICD1 DS B 8 BIT INTERRUPT CODE 36514202 * IF PROGRAM CHECK 36514602 SDWAIPR1 EQU X'80' PER INTERRUPT OCCURRED 36516202 SDWAIMC1 EQU X'40' MONITOR CALL INTERRUPT OCCURRED 36516602 SDWAIPC1 EQU X'3F' AN UNSOLICITED PROGRAM CHECK 36517002 * HAS OCCURRED 36517402 SDWATRAN DS A VIRTUAL ADDRESS CAUSING TRANSLATION 36517802 * EXCEPTION 36517902 SDWAEC2 DS 0CL8 EXTENDED CONTROL PSW FROM THE RB 36518202 * LEVEL WHICH CREATED THE 36518602 * ESTAE EXIT AT THE TIME IT LAST 36519002 * INCURRED AN INTERRUPT OR 0 FOR ESTAI. 36519402 * OR PSW USED TO GIVE FRR CONTROL 36519802 SDWAEMK2 DS B INTERRUPT INFORMATION MASKS 36520202 SDWAPER2 EQU X'40' ON,PROGRAM EVENT RECORDING 36520602 * INTERRUPTS CAN OCCUR 36520702 * OFF,PROGRAM EVENT RECORDING 36520802 * INTERRUPTS CANNOT OCCUR 36520902 SDWATRM2 EQU X'04' ON,ADDRESS TRANSLATION ACTIVE 36521402 SDWAIO2 EQU X'02' OFF,I/0 INTERRUPTION CANNOT OCCUR 36521802 * ON,I/0 INTERRUPTIONS CAN OCCUR SUBJECT TO 36521902 * TO CHANNEL MASK BITS IN CONTROL REGS 2 AND 3 36523702 SDWAEXT2 EQU X'01' OFF,EXTERNAL INTERRUPTION CANNOT OCCUR 36525502 * ON,EXTERNAL INTERRUPTIONS CAN OCCUR SUBJECT TO 36527302 * EXTERNAL SUBCLASS MASK BITS OF CONTROL REG 0 36529102 SDWAMWP2 DS B PSW KEY AND 'M-W-P' 36530902 SDWAKEY2 EQU X'F0' PSW KEY 36532702 SDWAECT2 EQU X'08' EXTENDED CONTROL MODE BIT 36534502 SDWAMCK2 EQU X'04' OFF,MACHINE CHECK CANNOT OCCUR 36536302 * ON,MACHINE CHECK DUE TO SYSTEM DAMAGE AND 36538102 * INSTRUCTION-PROCESSING DAMAGE CAN OCCUR 36539902 * OTHER MACHINE CHECKS SUBJECT TO MASK BITS 36541702 * IN CONTROL REGISTER 14 36543502 SDWAWAT2 EQU X'02' ON,CPU IN WAIT STATE 36545302 SDWAPGM2 EQU X'01' ON,PROBLEM STATE 36547102 * OFF, SUPERVISOR STATE 36548902 SDWAINT2 DS B CONDITION CODE AND PROGRAM MASK 36550702 SDWACC2 EQU X'30' CONDITION CODE 36552502 SDWAFPO2 EQU X'08' FIXED POINT OVERFLOW 36562502 SDWADEC2 EQU X'04' DECIMAL OVERFLOW 36564502 SDWAEXP2 EQU X'02' EXPONENT UNDERFLOW 36568402 SDWASGN2 EQU X'01' SIGNIFICANCE 36570402 DS B RESERVED 36572402 SDWANXT2 DS 0F ADDRESS OF NEXT INSTRUCTION TO BE 36576302 * EXECUTED 36578302 DS CL1 RESERVED 36578402 SDWAADD2 DS CL3 INSTRUCTION ADDRESS 36578502 SDWAAEC2 DS 0CL8 ADDITIONAL EC MODE INFORMATION 36579102 DS CL1 RESERVED 36579502 SDWAILC2 DS B INSTRUCTION LENGTH CODE FOR PSW DEFINED 36580302 * BY SDWAEC2 36582302 SDWAIL2 EQU X'06' ILC 36584202 SDWAINC2 DS 0CL2 INTERRUPT CODE. IF PROGRAM CHECK OCCURRED 36586202 * THE SUBFIELDS ARE FURTHER DIVIDED 36586602 DS CL1 RESERVED FOR IMPRECISE INTERRUPTS 36588202 * ON PROGRAM CHECK INTERRUPT 36590202 SDWAICD2 DS B 8 BIT INTERRUPT CODE 36595902 * IF PROGRAM CHECK 36596302 SDWAIPR2 EQU X'80' PER INTERRUPT OCCURRED 36597902 SDWAIMC2 EQU X'40' MONITOR CALL INTERRRUPT OCCURRED 36599902 SDWAIPC2 EQU X'3F' AN UNSOLICITED PROGRAM CHECK 36601902 * HAS OCCURRED 36602302 SDWATRN2 DS A VIRTUAL ADDRESS CAUSING TRANSLATION 36602702 * EXCEPTION 36603102 SDWASRSV DS 0CL64 GENERAL PURPOSE REGISTERS OF THE RB LEVEL 36603802 * WHICH CREATED THE ESTAE EXIT AT THE TIME 36611502 * IT LAST INCURRED AN INTERRUPT OR 0 FOR ESTAI 36619202 * FOR FRRS INITIALIZED TO REGISTERS 36621202 * AT TIME OF ERROR. 36623202 * THIS REGISTER AREA IS USED TO 36626902 * UPDATE REGISTER CONTENTS FOR RETRY IF REQUESTED 36628902 SDWASR00 DS F GPR 0. 36634602 SDWASR01 DS F GPR 1. 36642302 SDWASR02 DS F GPR 2. 36650002 SDWASR03 DS F GPR 3. 36700002 SDWASR04 DS F GPR 4. 36750002 SDWASR05 DS F GPR 5. 36760002 SDWASR06 DS F GPR 6. 36770002 SDWASR07 DS F GPR 7. 36780002 SDWASR08 DS F GPR 8. 36790002 SDWASR09 DS F GPR 9. 36792002 SDWASR10 DS F GPR 10. 36794002 SDWASR11 DS F GPR 11. 36796002 SDWASR12 DS F GPR 12. 36798002 SDWASR13 DS F GPR 13. 36798402 SDWASR14 DS F GPR 14. 36798802 SDWASR15 DS F GPR 15. 36799202 * 36799302 SDWAIDNT DS 0CL4 SDWA IDENTIFICATION ATTRIBUTES 36799402 SDWASPID DS CL1 SUBPOOL ID OF STORAGE CONTAINING THIS SDWA 36799502 SDWALNTH DS CL3 LENGTH OF THIS SDWA IN BYTES 36799602 SDWAMCH DS 0CL28 CONTAINS MACHINE CHECK DATA 36799702 * IF SDWAMCHK IS ON 36803802 SDWASTCK DS 0CL8 BEGINNING AND ENDING STORAGE CHECK ADDRESSES. 36808102 * FILLED IN DUE TO STORAGE ERROR (SDWASCK) 36812202 * OR A KEY FAILURE (SDWASKYF). 36814202 * THESE ADDRESSES ARE VALID ONLY IF 36822202 * INDICATED BY THE SDWASRVL FLAG. 36824202 SDWASCKB DS A BEGINNING VIRTUAL ADDRESS OF STORAGE CHECK 36824902 SDWASCKE DS A ENDING VIRTUAL ADDRESS OF STORAGE CHECK 36837402 * 36849902 SDWAMCHI DS 0BL2 ADDITIONAL MCH INFORMATION FLAGS 36859902 SDWAMCHS DS B MCH FLAG BYTE 36869902 SDWASRVL EQU X'80' ON,STORAGE ADDRESSES SUPPLIED 36871902 * (SDWASTCK, SDWARFSA) ARE VALID. 36872302 SDWARCDF EQU X'40' ON,MACHINE CHECK RECORD NOT RECORDED 36873902 SDWATSVL EQU X'20' ON,TIME STAMP IS VALID 36875902 SDWAINVP EQU X'10' ON,STORAGE IS RECONFIGURED, PAGE IS INVALIDATED 36877902 SDWARSRC EQU X'08' ON,STORAGE RECONFIGURATION (SDWARSR1,SDWARSR2) 36878302 * STATUS AVAILABLE. 36878402 SDWARSRF EQU X'04' ON,STORAGE RECONFIGURATION NOT ATTEMPTED. 36878702 * (SDWARSR1 AND SDWARSR2 ARE INVALID) 36879102 SDWAMCHD DS B INPUT INFORMATION TO RECOVERY ROUTINE CONCERNING 36879902 * A MACHINE CHECK ERROR 36881902 SDWASKYF EQU X'80' ON,STORAGE KEY FAILURE 36883902 SDWAREGU EQU X'40' ON,GENERAL PURPOSE REGISTER CONTENTS AT TIME OF 36885902 * MACHINE CHECK UNPREDICTABLE 36887902 SDWAPSWU EQU X'20' ON,PSW AND/OR CONTROL REGISTERS AT TIME OF 36888302 * MACHINE CHECK UNPREDICTABLE 36888402 SDWASCK EQU X'10' ON,INDICATES STORAGE DATA CHECK 36888702 SDWAACR EQU X'08' ON,INDICATES ACR REQUEST 36889102 SDWAINSF EQU X'04' ON,INSTRUCTION FAILURE 36889502 SDWAFPRX EQU X'02' ON,CONTENTS OF FLOATING POINT REGISTERS AT TIME 36889902 * MACHINE CHECK ARE UNPREDICTABLE 36890002 SDWATERR EQU X'01' ON,TIMER ERROR - CAUSES ENTRY TO 36890102 * RECOVERY ROUTINES ONLY IF LOGOUT 36890202 * FAILED. 36890502 SDWACPID DS CL2 ID OF OF FAILING CPU CAUSING ACR 36894102 * 36894402 SDWARSR1 DS B ADDITIONAL STORAGE FRAME ERROR INDICATORS 36894702 * AS RETURNED FROM REAL STORAGE RECONFIGURATION. 36895002 SDWAMSER EQU X'02' STORAGE ERROR ALREADY SET IN FRAME. 36895302 SDWACHNG EQU X'01' CHANGE INDICATOR WAS ON IN FRAME. 36895602 SDWARSR2 DS B ADDITIONAL STORAGE ERROR INDICATORS. 36895902 SDWAOFLN EQU X'80' FRAME OFFLINE OR SCHEDULED TO GO OFFLINE 36896202 * IF SDWAINTC IS ON 36896502 SDWAINTC EQU X'40' INTERCEPT 36896802 * THE FRAME IS SCHEDULED TO GO OFFLINE, 36897102 * OR 36897402 * THE FRAME HAS INCURRED A STORAGE ERROR, 36897702 * OR IS V=R 36898002 SDWASPER EQU X'20' STORAGE ERROR PERMANENT ON FRAME. 36898302 SDWANUCL EQU X'10' FRAME CONTAINS PERMANENT RESIDENT STORAGE, 36898602 * I.E. NUCLEUS. 36898902 SDWAFSQA EQU X'08' FRAME IN SQA 36899202 SDWAFLSQ EQU X'04' FRAME IN LSQA 36899502 SDWAPGFX EQU X'02' FRAME IS PAGE FIXED 36899802 SDWAVEQR EQU X'01' FRAME IS VIRTUAL = REAL,OR SCHEDULED 36900102 * FOR VIRTUAL = REAL IF SDWAINTC IS ON 36900402 DS CL2 RESERVED 36900702 SDWARFSA DS A REAL STORAGE FAILING ADDRESS ( VALID ONLY IF 36901002 * INDICATED BY SDWASRVL ) 36901302 SDWATIME DS CL8 TIME STAMP OF ASSOCIATED MACHINE CHECK RECORD 36901602 SDWAFLGS DS 0BL4 INPUT FLAGS DESCRIBING REASONS AND CONDITIONS 36901902 * FOR ENTERING A RECOVERY EXIT ROUTINE. 36902202 SDWAERRA DS B ERROR TYPE CAUSING ENTRY TO RECOVERY EXIT 36902502 SDWAMCHK EQU X'80' ON INDICATES MACHINE CHECK 36902802 SDWAPCHK EQU X'40' ON INDICATES PROGRAM CHECK 36903102 SDWARKEY EQU X'20' ON INDICATES CONSOLE RESTART KEY WAS DEPRESSED 36903402 SDWASVCD EQU X'10' ON INDICATES TASK ISSUED SVC 13 36903702 SDWAABTM EQU X'08' ON INDICATES SYSTEM FORCED SVC 13(I.E.ABTERM) 36904002 SDWASVCE EQU X'04' ON,INDICATES AN SVC WAS ISSUED BY 36904102 * A LOCKED OR SRB ROUTINE 36904202 SDWATEXC EQU X'02' ON,INDICATES AN UNRECOVERABLE TRANSLATION 36904402 * FAILURE 36904502 SDWAPGIO EQU X'01' ON,INDICATES A PAGE I/O ERROR 36904602 SDWAERRB DS B ADDITIONAL ERROR ENTRY INFORMATION 36904802 SDWATYP1 EQU X'08' ON TYPE 1 SVC IN CONTROL AT TIME OF ERROR 36905002 SDWAENRB EQU X'04' ON ENABLED RB IN CONTROL AT TIME OF ERROR 36905202 SDWALDIS EQU X'02' ON A LOGICALLY OR PHYSICALLY DISABLED ROUTINE 36905402 * WAS IN CONTROL AT THE TIME OF ERROR. 36905602 SDWASRBM EQU X'01' ON SYSTEM IN SRB MODE AT TIME OF ERROR 36906102 SDWAERRC DS B ADDITIONAL ERROR ENTRY INFORMATION 36906402 SDWASTAF EQU X'80' ON INDICATES A PREVIOUS (E)STA OR FRR 36906702 * EXIT FAILED. 36906802 SDWASTAI EQU X'40' ON A (E)STAI EXIT PREVIOUSLY RECEIVED CONTROL 36907002 SDWAIRB EQU X'20' ON AN IRB PRECEDED THE RB THAT IS 36907302 * ASSOCIATED WITH THIS EXIT 36907602 SDWAPERC EQU X'10' ON THIS RECOVERY ROUTINE IS BEING PERCOLATED TO 36908002 SDWAEAS EQU X'08' ON INDICATES A LOWER LEVEL EXIT HAS RECOGNIZED 36908402 * AN ERROR AND PROVIDED SERVICEABILITY INFORMATION 36908802 SDWAERRD DS B ADDITIONAL ERROR ENTRY INFORMATION 36909602 SDWACLUP EQU X'80' ON INDICATES RECOVERY EXIT ONLY TO CLEANUP AND 36910002 * NOT RETRY (IF ESTA EXIT AND 33E COMPLETION CODE 36910402 * THE DUMP IS TAKEN AFTER ENTRY TO THE RECOVERY 36910502 * ROUTINE,IF THE COMPLETION CODE IS OTHER THAN 36910902 * 33E AND IT IS AN ESTA EXIT THE DUMP IS 36911002 * TAKEN BEFORE ENTRY TO THE RECOVERY ROUTINE) 36911102 SDWANRBE EQU X'40' ON RB ASSOCIATED WITH THIS ESTA EXIT WAS NOT 36911202 * IN CONTROL AT TIME OF ERROR 36911302 * NEVER ON FOR FRRS 36911402 SDWASTAE EQU X'20' ON THIS ESTA EXIT HAS BEEN ENTERED FOR A 36911502 * PREVIOUS ABEND 36911602 * NEVER ON FOR FRRS 36921602 SDWACTS EQU X'10' ON,THIS TASK WAS NOT IN CONTROL AT TIME OF 36926902 * ERROR BUT A TASK WITHIN THE SAME JOBSTEP TREE 36936902 * REQUESTED A 'STEP' ABEND. ONLY 'ON' IF SDWACLUP 36938902 * IS 'ON' 36940902 SDWAMABD EQU X'08' ON,THIS TASK WAS NOT IN CONTROL AT TIME OF 36941302 * ERROR BUT AN ANCESTOR OF THIS TASK HAS ABEND'ED 36941702 * ONLY 'ON' IF SDWACLUP IS 'ON'. 36942102 SDWARPIV EQU X'04' ON, THE REGISTERS AND PSW AT TIME OF 36942502 * ERROR ARE UNAVAILABLE 36942602 SDWAMCIV EQU X'02' ON,MACHINE CHECK ERROR INFORMATION 36943102 * IS UNAVAILABLE. 36943502 SDWAERFL EQU X'01' ON,ERRORID INFORMATION AVAILABLE @G17EP5W 36943841 SDWAFMID DS CL2 ASID OF MEMORY IN WHICH ERROR OCCURRED. 36944102 * =0, IF THE MEMORY IS CURRENT 36952702 * NOT=0 IF OTHER MEMORY IS CURRENT 36954702 * FOR FRRS- 36955102 * IF THE VALUE IS NON ZERO THE 36956702 * FRR IS RECEIVING CONTROL IN THE 36957102 * MASTER SCHEDULER ADDRESS SPACE AND CANNOT 36957502 * ADDRESS THE PRIVATE AREA OF THE FAILING 36957902 * ADDRESS SPACE. 36958002 * FOR ESTA- 36958102 * IF THE VALUE IS NON ZERO 36963302 * ENTRY IS DUE TO CROSS MEMORY 36965302 * ABTERM. 36967302 SDWAIOFS DS B THIS IS THE CURRENT I/O STATUS (THE I/O 36968502 * PROCESSING REQUESTED BY THE FIRST (E)STA 36973702 * EXIT IS THE ONLY REQUEST HONORED ) 36989202 SDWAIOQR EQU X'80' ON,I/O FOR FAILING PROGRAM HAS BEEN QUIESCED AND 37004702 * IS RESTOREABLE 37020202 SDWAIOHT EQU X'40' ON,I/O FOR FAILING PROGRAM HAS BEEN HALTED AND 37035702 * IS NOT RESTOREABLE 37051202 SDWANOIO EQU X'20' ON,FAILING PROGRAM HAS NO I/O OUTSTANDING 37066702 SDWANIOP EQU X'10' ON,USER REQUESTED NO I/O PROCESSING 37082202 * 37097702 SDWACPUI DS CL1 ERRORID LOGICAL CPUID @G17EP5W 37098741 SDWARTYA DS A ADDRESS OF RETRY ROUTINE 37106402 SDWARECA DS A ADDRESS OF VARIABLE RECORDING AREA WITHIN SDWA 37110202 SDWACPUA DS 0CL4 ADDRESS OF CPU HOLDING RESOURCE WHICH CAUSES 37129202 * VALID SPIN ON CURRENT CPU - USED WITH RESTART 37133002 * KEY ERROR TYPE.IF THIS FIELD IS VALIDLY FILLED 37143002 * IN BY AN FRR THE FRRS MAINLINE PROGRAM WILL BE 37145002 * RESUMED AT THE NEXT SEQUENTIAL INSTRUCTION. 37147002 * NOT VALID FOR ESTAE EXITS. 37149002 DS CL2 RESERVED 37150002 SDWALCPU DS H LOGICAL ADDRESS OF CPU HOLDING RESOURCE 37151002 SDWAPARQ DS 0BL4 FLAGS SET BY RECOVERY ROUTINE TO REQUEST FURTHER 37153002 * PROCESSING ACTION 37163002 SDWARCDE DS B RETURN CODE FROM RECOVERY ROUTINE TO INDICATE 37165002 * RETRY OR TERMINATION 37167802 SDWACWT EQU 0 0 ,CONTINUE WITH TERMINATION. THIS INDICATION 37187802 * IMPLIES PERCOLATION 37187902 SDWARETY EQU 4 4 ,RETRY USING RETRY ADDRESS IN SDWARTYA FIELD 37189302 SDWAPSTI EQU 16 16,PREVENT FURTHER (E)STAI PROCESSING 37190502 SDWAACF2 DS B FLAGS TO INDICATE ADDITIONAL PROCESSING 37193102 * REQUESTS 37193802 SDWARCRD EQU X'80' ON,RECORDING REQUESTED 37194502 SDWASPIN EQU X'20' ON,PROGRAM INTERRUPTED VIA THE RESTART KEY WAS 37195002 * IN A VALID SPIN(SET BY THE SETRP MACRO WHEN CPU 37196402 * ADRESS IS SPECIFIED ALONG WITH THE CPU ADDRESS 37196802 * IN SDWACPUA FIELD TO ALLOW RESTART OF THE 37197802 * ALTERNATE CPU) 37199202 SDWAUPRG EQU X'08' ON,UPDATED REGISTERS STARTING WITH SDWASR00 ARE 37203402 * TO BE USED FOR RETRY 37204802 SDWAFREE EQU X'04' ON,SDWA/RTCA TO BE FREED PRIOR TO RETRY. 37206202 * ONLY VALID FOR ESTA EXITS 37216202 SDWAACF3 DS B FLAGS INDICATING WHAT GLOBAL LOCKS ARE TO 37246202 * BE FREED (KEY 0 SUPERVISOR ONLY) 37256202 * ONLY VALID FOR FRRS. 37258202 SDWADISP EQU X'10' ON,THE DISPATCHER LOCK 37266202 SDWAASMP EQU X'08' ON,THE ASM CLASS LOCK Z40WPXH 37271241 SDWASALL EQU X'04' ON, THE SALLOC LOCK 37278241 SDWAIPRG EQU X'02' ON, THE IOSYNCH LOCK 37290202 SDWAICAT EQU X'01' ON,THE IOSCAT LOCK 37290302 SDWAACF4 DS B ADDITIONAL LOCKS TO BE FREED FOR FRRS 37295002 SDWAIUCB EQU X'80' ON, THE IOSUCB LOCK 37295102 SDWAILCH EQU X'40' ON, THE IOSLCH LOCK 37295202 SDWATNCB EQU X'20' RESERVED LOCK Z40WPXH 37295441 SDWATDNB EQU X'10' RESERVED LOCK Z40WPXH 37295841 SDWATADB EQU X'08' RESERVED LOCK Z40WPXH 37296041 SDWAOPTM EQU X'04' ON,THE SYSTEM RESOURCES MGR(SRM) LOCK LOCK 37296741 SDWACMS EQU X'02' ON,THE CMS LOCK 37298802 SDWAFLLK EQU X'01' ON,THE LOCAL LOCK 37300302 * 37301802 SDWALKWA DS 0CL32 LOCK AREA @ZA05516 37302041 SDWALKWS DS 0CL32 LOCKWORDS REQUIRED TO FREE GLOBAL LOCKS 37303302 * ONLY USED FOR FRRS 37305302 SDWAICLW DS A LOCKWORD FOR THE IOSCAT LOCK 37306302 SDWAIULW DS A LOCKWORD FOR THE IOSUCB LOCK 37307802 SDWAILLW DS A LOCKWORD FOR THE IOSLCH LOCK 37309302 SDWAIPLW DS A LOCKWORD FOR THE IOSYNCH LOCK 37310802 SDWAAPLW DS A LOCKWORD FOR THE ASM CLASS LOCK Z40WPXH 37311541 SDWATNLW DS A LOCKWORD - RESERVED Z40WPXH 37312341 SDWATDLW DS A LOCKWORD - RESERVED Z40WPXH 37312641 SDWATALW DS A LOCKWORD - RESERVED Z40WPXH 37312941 * 37313802 SDWAASID DS CL2 ASID FOR LOGREC DEBUGGING @ZA05516 37314041 SDWASEQ# DS CL2 ERRORID SEQUENCE NUMBER @G17EP5W 37314241 SDWARECP DS 0CL24 RECORDING PARAMETERS (MODULE,CSECT AND RECOVERY 37314441 * ROUTINE NAMES-RESPECTIVELY) 37314941 SDWAMODN DS CL8 THE MODULE NAME INVOLVED IN THE ERROR 37315302 * (SUPPLIED BY THE RECOVERY ROUTINE) 37316802 SDWACSCT DS CL8 THE CSECT NAME INVOLVED IN THE ERROR 37318302 * (SUPPLIED BY THE RECOVERY ROUTINE) 37319802 SDWAREXN DS CL8 THE RECOVERY ROUTINE NAME HANDLING THE ERROR 37321302 * 37322802 SDWADPLA DS A POINTER TO DUMP PARAMETER LIST 37324802 * RESIDING IN SDWA. 37326802 SDWASNPA DS 0CL8 SNAP PARAMETER LIST FLAGS 37327202 SDWADUMP DS 0CL4 DUMP CHARACTERISTICS 37328802 SDWADPID DS CL1 ID OF DUMP REQUESTED 37329202 SDWADPFS DS B DUMP FLAGS 37329302 SDWADPT EQU X'80' ALWAYS OFF, INDICATES SNAP DUMP REQUEST 37329402 SDWADLST EQU X'40' ALWAYS ON,INDICATES THAT OS/VS2 REL. 2 DUMP 37337002 * PARAMETER LIST SUPPLIED 37339002 * USED BY RTM TO INDICATE DUMP OPTIONS ARE 37339402 * AVAILABLE IN THE SDWA 37339802 SDWAENSN EQU X'20' ON,ENHANCED DUMP OPTIONS @G33SPHW 37339943 SDWASLST EQU X'02' ON,STORAGE LISTS SUPPLIED FOR DUMP 37340143 DS CL2 RESERVED 37404543 * 37434502 SDWADDAT DS 0CL4 SDATA AND PDATA OPTIONS 37436502 SDWASDAT DS 0CL2 SDATA OPTIONS @G33SPHW 37437543 SDWASDA0 DS BL1 SDATA OPTIONS FLAG ONE @G33SPHW 37438543 SDWANUC EQU X'80' DISPLAY NUCLEUS 37438902 SDWASQA EQU X'40' DISPLAY SQA 37439302 SDWALSQA EQU X'20' DISPLAY LSQA 37439702 SDWASWA EQU X'10' DISPLAY SWA 37440102 SDWAGTF EQU X'08' DISPLAY GTF INCORE TRACE TABLE 37440202 SDWACBS EQU X'04' FORMAT AND DISPLAY CONTROL BLOCKS 37440302 SDWAQQS EQU X'02' FORMAT AND DISPLAY QCBS/QELS 37440402 SDWADM EQU X'01' FORMAT DATA MGT CONTROL BLOCKS @G33SPHW 37443443 SDWASDA1 DS BL1 SDATA OPTIONS @G33SPHW 37445443 SDWAIO EQU X'80' FORMAT I/O SUPERVISOR CONTROL BLOCKS @G33SPHW 37447443 SDWAERR EQU X'40' FORMAT ERROR CONTROL BLOCKS @G33SPHW 37449443 SDWAPDAT DS BL1 PDATA OPTIONS 37457102 SDWADSAS EQU X'80' DISPLAY SAVE AREAS 37471102 SDWADSAH EQU X'40' DISPLAY SAVE AREA HEADER 37473102 SDWADREG EQU X'20' DISPLAY REGISTERS 37473202 SDWATLPA EQU X'10' DISPLAY LPA MODULES OF TASK 37473502 SDWATJPA EQU X'08' DISPLAY JPA MODULES OF TASK 37473602 SDWADPSW EQU X'04' DISPLAY PSW 37475302 SDWAUSPL EQU X'02' DISPLAY USER SUBPOOLS 37477702 DS B RESERVED 37478102 * 37479402 SDWADPSA DS 0CL36 DUMP RANGES AREA 37479802 SDWADPSL DS 0CL32 DUMP STORAGE LISTS (MAX 4 RANGES AVAILABLE) 37481102 SDWAFRM1 DS A BEGINNING ADDRESS FOR STORAGE RANGE 1 37482802 SDWATO1 DS A ENDING ADDRESS FOR STORAGE RANGE 1 37484502 SDWAFRM2 DS A BEGINNING ADDRESS FOR STORAGE RANGE2 37486202 SDWATO2 DS A ENDING ADDRESS FOR STORAGE RANGE 2 37487902 SDWAFRM3 DS A BEGINNING ADDRESS FOR STORAGE RANGE 3 37489602 SDWATO3 DS A ENDING ADDRESS FOR STORAGE RANGE 3 37491302 SDWAFRM4 DS A BEGINNING ADDRESS FOR STORAGE RANGE 4 37493002 SDWATO4 DS A ENDING ADDRESS FOR STORAGE RANGE 4 37503002 DS A RESERVED 37503402 SDWARCPL DS CL28 RESERVED FOR RTM USE. 37505002 SDWACOMP DS A THIS WORD IS PROVIDED FOR COMMUNICATION OF 37515002 * ADDITIONAL RECOVERY DATA ON A PER COMPONENT 37517002 * BASIS (FOR OS/VS2 RELEASE 2 THIS FIELD IS ONLY 37519002 * USED BY DATA MANAGER ) 37521002 SDWAERTM DS CL4 ERRORID TIME STAMP @G17EP5W 37521141 SDWARA DS 0CL112 VARIABLE RECORDING AREA PREFIXED BY A TWO BYTE 37521402 * LENGTH FIELD OF AREA AND A TWO BYTE 37525302 * LENGTH FIELD OF USER SUPPLIED RECORDING DATA 37529202 SDWAVRAL DS CL2 LENGTH OF VARIABLE RECORDING AREA 37541002 SDWADPVA DS B DEFINES DUMPING OF DATA IN VARIABLE AREA 37551002 SDWAHEX EQU X'80' DATA TO BE DUMPED BY EREP IN HEX. 37551402 SDWAEBC EQU X'40' DATA TO BE DUMPED BY EREP IN EBCDIC 37551802 SDWAURAL DS CL1 LENGTH OF USER SUPPLIED RECORDING DATA 37552802 SDWAVRA DS CL108 VARIABLE RECORDING AREA 37574602 SDWAEND DS 0D END OF SDWA FORCED TO DOUBLE WORD 37575402 SDWALEN EQU SDWAEND-SDWA LENGTH OF SDWA 37575802 SDWAFLEN EQU SDWALEN+272 GETMAIN LENGTH FOR FRR SDWA 37576202 MEND , */ 37576402 *%SDWABSL : ; 37588202 *%IF SDWA9999 ^= ',' %THEN 37638202 * %SDWA9999 = ';'; 37648202 *%IF SDWALVL ^= '' %THEN 37658202 * %GOTO SDWABSL2; 37688202 *DECLARE 40400000 * 1 SDWA BASED(SDWAPTR), 40800000 *%GOTO SDWABSL3; 40850002 *%SDWABSL2: ; 40900002 * SDWALVL SDWA, 40950002 *%SDWABSL3: ; 41000002 * 6 SDWAPARM PTR(31), /* PARAMETER LIST ADDRESS 41200002 * IF (E)STA MACRO 41250002 * SPECIFIED PARAM OPTION 41300002 * OR 0. FOR FRRS THIS IS THE 41350002 * ADDRESS OF THE 6 WORD PARM 41400002 * AREA RETURNED BY THE SETFRR 41450002 * MACRO WHEN THE PARMAD 41500002 * KEYWORD IS SPECIFIED ON THE 41550002 * ON THE SETFRR MACRO */ 41600002 * 6 SDWAFIOB PTR(31), /* ADDRESS OF PURGE I/O 42000002 * REQUEST LIST (PIRL), 42400002 * OR 0 IF HALT I/O IS 42800002 * REQUESTED ON ENTRY TO 42850002 * RETRY ROUTINE FOR (E)STA. */ 42900002 * 7 SDWAABCC CHAR(4), /* ABEND COMPLETION CODE 43600002 * ON ENTRY TO EXIT ROUTINE */ 43650002 * 8 SDWACMPF CHAR(1), /* FLAG BITS IN COMPLETION 44400002 * CODE. */ 44800000 * 9 SDWAREQ BIT(1), /* ON, DUMP TO BE GIVEN. 45200002 * SET IF DUMP REQUESTED 45250002 * BY ABEND, CALLRTM, OR 45300002 * SETRP MACRO. */ 45350002 * 9 SDWASTEP BIT(1), /* ON, JOBSTEP TO BE 45600002 * TERMINATED.SET IF 46000002 * STEP OPTION SPECIFIED 46010002 * ON ABEND MACRO. */ 46020002 * 9 * BIT(1), /* RESERVED */ 46400002 * 9 SDWASTCC BIT(1), /* ON, DON'T STORE 46800002 * COMPLETION CODE. 47200002 * NOT USED IN OS/VS2 REL. 2 */ 47250002 * 9 * BIT(4), /* RESERVED */ 47600002 * 8 SDWACMPC CHAR(3), /* SYSTEM COMPLETION CODE 48000002 * (FIRST 12 BITS) AND USER 48400000 * COMPLETION CODE (SECOND 48800000 * 12 BITS). */ 49200000 * 6 SDWACTL1 CHAR(8) BDY(WORD), /* BC MODE PSW AT TIME OF 49600002 * ERROR. NOT INITIALIZED 49650002 * FOR FRRS. */ 49700002 * 7 SDWACMKA CHAR(1), /* CHANNEL INTERRUPTS MASKS */ 50400002 * 8 SDWAIOA BIT(7), /* I/O INTERRUPTS (ALL 50800002 * ZEROS OR ALL ONES). */ 51200002 * 8 SDWAEXTA BIT(1), /* EXTERNAL INTERRUPT. */ 51600002 * 7 SDWAMWPA CHAR(1), /* PSW KEY AND 'M-W-P'. */ 52000002 * 8 SDWAKEYA BIT(4), /* PSW KEY */ 52400002 * 8 * BIT(1), /* RESERVED */ 52800002 * 8 SDWAMCKA BIT(1), /* MACHINE CHECK INTERRUPT */ 53200002 * 8 SDWAWATA BIT(1), /* WAIT STATE. */ 53600002 * 8 SDWASPVA BIT(1), /* SUPERVISOR/PROBLEM- 54000002 * PROGRAM MODE. */ 54400000 * 7 SDWAINTA CHAR(2), /* INTERRUPT CODE (LAST 2 54800002 * BYTES OF INTERRUPT CODE 55200000 * IF I/O INTERRUPT). */ 55600002 * 7 SDWAPMKA CHAR(1), /* INSTRUCTION LENGTH CODE, 56000002 * CONDITION CODE, AND 56400000 * PROGRAM MASKS. */ 56800000 * 8 SDWAILA BIT(2), /* INSTRUCTION LENGTH CODE */ 57200002 * 8 SDWACCA BIT(2), /* LAST CONDITION CODE */ 57600002 * 8 SDWAFPA BIT(1), /* FIXED-POINT OVERFLOW */ 58000002 * 8 SDWADOA BIT(1), /* DECIMAL OVERFLOW */ 58400002 * 8 SDWAEUA BIT(1), /* EXPONENT UNDERFLOW */ 58800002 * 8 SDWASGA BIT(1), /* SIGNIFANCE */ 59200002 * 7 SDWANXTA PTR(24), /* ADDRESS OF NEXT 59600002 * INSTRUCTION 60000000 * TO BE EXECUTED */ 60400000 * 6 SDWACTL2 CHAR(8) BDY(WORD), /* BC MODE PSW FROM LAST 60800002 * PRB ON RB CHAIN. 61200002 * ZERO FOR FRRS. */ 61250002 * 7 SDWACMKP CHAR(1), /* CHANNEL INTERRUPTS MASKS */ 61600002 * 8 SDWAIOP BIT(7), /* I/O INTERRUPTS (ALL 62000002 * ZEROS OR ALL ONES). */ 62400002 * 8 SDWAEXTP BIT(1), /* EXTERNAL INTERRUPT. */ 62800002 * 7 SDWAMWPP CHAR(1), /* PSW KEY AND 'M-W-P'. */ 63200002 * 8 SDWAKEYP BIT(4), /* PSW KEY */ 63600002 * 8 * BIT(1), /* RESERVED */ 64000002 * 8 SDWAMCKP BIT(1), /* MACHINE CHECK INTERRUPT */ 64400002 * 8 SDWAWATP BIT(1), /* WAIT STATE. */ 64800002 * 8 SDWASPVP BIT(1), /* SUPERVISOR/PROBLEM- 65200002 * PROGRAM MODE. */ 65600000 * 7 SDWAINTP CHAR(2), /* INTERRUPT CODE (LAST 2 66000002 * BYTES OF INTERRUPT CODE 66400000 * IF I/O INTERRUPT). */ 66800002 * 7 SDWAPMKP CHAR(1), /* INSTRUCTION LENGTH CODE, 67200002 * CONDITION CODE, AND 67600000 * PROGRAM MASKS. */ 68000000 * 8 SDWAILP BIT(2), /* INSTRUCTION LENGTH CODE */ 68400002 * 8 SDWACCP BIT(2), /* LAST CONDITION CODE */ 68800002 * 8 SDWAFPP BIT(1), /* FIXED-POINT OVERFLOW */ 69200002 * 8 SDWADOP BIT(1), /* DECIMAL OVERFLOW */ 69600002 * 8 SDWAEUP BIT(1), /* EXPONENT UNDERFLOW */ 70000002 * 8 SDWASGP BIT(1), /* SIGNIFICANCE */ 70400002 * 7 SDWANXTP PTR(24), /* ADDRESS OF NEXT 70800002 * INSTRUCTION 71200000 * TO BE EXECUTED */ 71600000 * 6 SDWAGRSV CHAR(64) BDY(WORD), /* GENERAL PURPOSE 72000002 * REGISTERS AT TIME OF 72400000 * ERROR */ 72800002 * 7 SDWAGR00 FIXED(31), /* GPR 0. */ 73200002 * 7 SDWAGR01 FIXED(31), /* GPR 1. */ 73600002 * 7 SDWAGR02 FIXED(31), /* GPR 2. */ 74000002 * 7 SDWAGR03 FIXED(31), /* GPR 3. */ 74400002 * 7 SDWAGR04 FIXED(31), /* GPR 4. */ 74800002 * 7 SDWAGR05 FIXED(31), /* GPR 5. */ 75200002 * 7 SDWAGR06 FIXED(31), /* GPR 6. */ 75600002 * 7 SDWAGR07 FIXED(31), /* GPR 7. */ 76000002 * 7 SDWAGR08 FIXED(31), /* GPR 8. */ 76400002 * 7 SDWAGR09 FIXED(31), /* GPR 9. */ 76800002 * 7 SDWAGR10 FIXED(31), /* GPR 10. */ 77200002 * 7 SDWAGR11 FIXED(31), /* GPR 11. */ 77600002 * 7 SDWAGR12 FIXED(31), /* GPR 12. */ 78000002 * 7 SDWAGR13 FIXED(31), /* GPR 13. */ 78400002 * 7 SDWAGR14 FIXED(31), /* GPR 14. */ 78800002 * 7 SDWAGR15 FIXED(31), /* GPR 15. */ 79200002 * 6 SDWANAME CHAR(8) BDY(WORD), /* IF PROBLEM PROGRAM MODE 79600002 * NAME OF ABENDING 79650002 * PROGRAM, OR ZERO IF NO 80000002 * NAME IS AVAILABLE. 80400002 * ZERO IF NOT RUNNING 80450002 * UNDER AN RB. */ 80500002 * 7 SDWARBAD PTR(31), /* RB ADDRESS OF ABENDING 80800002 * PROGRAM. (IF SUPERVISOR 81200000 * MODE PROGRAM RUNNING UNDER 81600002 * AN RB) */ 81650002 * 7 * CHAR(4), /* CONTAINS ZEROS IF 82000002 * SUPERVISOR MODE PROGRAM 82400002 * RUNNING UNDER AN RB. 82450002 * OR IF PROGRAM NOT 82500002 * RUNNING UNDER AN RB. */ 82550002 * 6 SDWAEPA PTR(31), /* ENTRY POINT ADDRESS OF 82800002 * ABENDING PROGRAM. 83200002 * ZERO IF NOT RUNNING 83250002 * UNDER AN RB. */ 83300002 * 6 SDWAIOBR PTR(31), /* POINTER TO SDWAFIOB FIELD, 83600002 * OR 0 IF NO RETRY, 84000002 * OR 0 IF HALT I/O 84400002 * IS REQUESTED FOR (E)STA 84800002 * EXITS. ZERO FOR FRRS. 84802002 * ICB3777 */ 84804002 * 6 SDWAEC1 CHAR(8) BDY(WORD), /* EXTENDED CONTROL PSW AT 84810002 * TIME OF ERROR(ABEND) */ 84844002 * 7 SDWAEMK1 CHAR(1), /* INTERRUPT INFORMATION 84846402 * MASKS */ 84848002 * 8 * BIT(1), /* RESERVED */ 84848402 * 8 SDWAPER1 BIT(1), /* ON,PROGRAM EVENT RECORD- 84848802 * ING INTERRUPTS CAN OCCUR 84849202 * OFF,PROGRAM EVENT RECORD- 84849602 * ING INTERRUPTS CANNOT 84849702 * OCCUR */ 84849802 * 8 * BIT(3), /* RESERVED */ 84849902 * 8 SDWATRM1 BIT(1), /* ON,ADDRESS TRANSLATION 84882602 * ACTIVE */ 84883002 * 8 SDWAIO1 BIT(1), /* OFF,I/O INTERRUPTIONS 84883102 * CANNOT OCCUR 84883202 * ON,I/O INTERRUPTIONS CAN 84888802 * OCCUR SUBJECT TO CHANNEL 84890802 * MASK BITS IN CONTROL REGS 84892802 * 2 AND 3 */ 84893202 * 8 SDWAEXT1 BIT(1), /* OFF,EXTERNAL INTERRUPTIONS 84893602 * CANNOT OCCUR 84894002 * ON,EXTERNAL INTERRUPTIONS 84894102 * CAN OCCUR SUBJECT TO 84894202 * EXTERNAL SUBCLASS MASK 84894302 * BITS OF CONTROL REGISTER 0*/ 84908202 * 7 SDWAMWP1 CHAR(1), /* PSW KEY AND 'M-W-P' */ 84918202 * 8 SDWAKEY1 BIT(4), /* PSW KEY */ 84920202 * 8 SDWAECT1 BIT(1), /* EXTENDED CONTROL MODE BIT */ 84920602 * 8 SDWAMCK1 BIT(1), /* OFF,MACHINE CHECKS CANNOT 84921002 * OCCUR 84921402 * ON,MACHINE CHECKS DUE TO 84921802 * SYSTEM DAMAGE AND 84921902 * INSTRUCTION-PROCESSING 84922002 * DAMAGE CAN OCCUR. OTHER 84922102 * MACHINE CHECKS SUBJECT TO 84926702 * MASK BITS IN CONTROL 84928702 * REGISTER 14 */ 84930702 * 8 SDWAWAT1 BIT(1), /* ON,CPU IN WAIT STATE */ 84931102 * 8 SDWAPGM1 BIT(1), /* ON,PROBLEM STATE 84931202 * OFF,SUPERVISOR STATE */ 84931302 * 7 SDWAINT1 CHAR(1), /* CONDITION CODE AND 84931402 * PROGRAM MASK */ 84936002 * 8 * BIT(2), /* RESERVED */ 84938002 * 8 SDWACC1 BIT(2), /* CONDITION CODE */ 84940002 * 8 SDWAFPO1 BIT(1), /* FIXED POINT OVERFLOW */ 84940402 * 8 SDWADEC1 BIT(1), /* DECIMAL OVERFLOW */ 84940502 * 8 SDWAEXP1 BIT(1), /* EXPONENT UNDERFLOW */ 84940602 * 8 SDWASGN1 BIT(1), /* SIGNIFICANCE */ 84940702 * 7 * CHAR(1), /* RESERVED */ 84952502 * 7 SDWANXT1 PTR(31), /* ADDRESS OF NEXT 84962502 * INSTRUCTION TO BE 84964502 * EXECUTED */ 84968402 * 8 * PTR(8), /* RESERVED */ 84968502 * 8 SDWAADD1 PTR(24), /* INSTRUCTION ADDRESS */ 84968602 * 6 SDWAAEC1 CHAR(8) BDY(WORD), /* ADDITIONAL EC MODE 84968802 * INFORMATION */ 84969202 * 7 * CHAR(1), /* RESERVED */ 84969602 * 7 SDWAILC1 PTR(8), /* INSTRUCTION LENGTH CODE 84970402 * FOR PSW DEFINED BY SDWAEC1*/ 84972402 * 8 * BIT(5), /* RESERVED ALWAYS ZERO */ 84976302 * 8 SDWAIL1 BIT(2), /* INSTRUCTION LENGTH CODE */ 84978302 * 8 * BIT(1), /* RESERVED ALWAYS ZERO */ 84982302 * 7 SDWAINC1 FIXED(16), /* INTERRUPT CODE. IF PROGRAM 84984302 * CHECK OCCURRED 84984402 * THE SUBFIELDS ARE 84984502 * FURTHER DIVIDED */ 84984602 * 8 * CHAR(1), /* RESERVED FOR IMPRECISE 84984802 * INTERRUPTS 84987702 * IF PROGRAM CHECK */ 84988102 * 8 SDWAICD1 PTR(8), /* 8 BIT INTERRUPT CODE 84989702 * IF PROGRAM CHECK */ 84991702 * 9 SDWAIPR1 BIT(1), /* PER INTERRUPT OCCURRED */ 84997802 * 9 SDWAIMC1 BIT(1), /* MONITOR CALL INTERRUPT 84997902 * OCCURRED */ 84998002 * 9 SDWAIPC1 BIT(6), /* AN UNSOLICITED PROGRAM 84998102 * CHECK HAS OCCURRED */ 84998802 * 7 SDWATRAN PTR(31), /* VIRTUAL ADDRESS CAUSING 84999202 * TRANSLATION EXCEPTION */ 84999602 * 6 SDWAEC2 CHAR(8) BDY(WORD), /* EC MODE PSW OF THE RB 85000402 * WHICH CREATED THE ESTAE 85001002 * EXIT AT THE TIME IT LAST 85004002 * INCURRED AN INTERRUPT 85007002 * OR 0 FOR ESTAI. 85010002 * OR PSW USED TO GIVE FRR 85012002 * CONTROL */ 85012402 * 7 SDWAEMK2 CHAR(1), /* INTERRUPT INFORMATION 85013002 * MASKS */ 85016002 * 8 * BIT(1), /* RESERVED */ 85019002 * 8 SDWAPER2 BIT(1), /* ON,PROGRAM EVENT RECORD- 85022002 * ING INTERRUPTS CAN OCCUR 85025002 * OFF,PROGRAM EVENT RECORD- 85028002 * ING INTERRUPTS CANNOT 85031002 * OCCUR */ 85034002 * 8 * BIT(3), /* RESERVED */ 85037002 * 8 SDWATRM2 BIT(1), /* ON,ADDRESS TRANSLATION 85052002 * ACTIVE */ 85055002 * 8 SDWAIO2 BIT(1), /* OFF,I/O INTERRUPTIONS 85058002 * CANNOT OCCUR 85061002 * ON,I/O INTERRUPTIONS CAN 85064002 * OCCUR SUBJECT TO CHANNEL 85067002 * MASK BITS IN CONTROL REGS 85070002 * 2 AND 3 */ 85073002 * 8 SDWAEXT2 BIT(1), /* OFF,EXTERNAL INTERRUPTIONS 85076002 * CANNOT OCCUR 85079002 * ON,EXTERNAL INTERRUPTIONS 85082002 * CAN OCCUR SUBJECT TO 85085002 * EXTERNAL SUBCLASS MASK 85088002 * BITS OF CONTROL REGISTER 0*/ 85091002 * 7 SDWAMWP2 CHAR(1), /* PSW KEY AND 'M-W-P' */ 85094002 * 8 SDWAKEY2 BIT(4), /* PSW KEY */ 85097002 * 8 SDWAECT2 BIT(1), /* EXTENDED CONTROL MODE BIT */ 85100002 * 8 SDWAMCK2 BIT(1), /* OFF,MACHINE CHECKS CANNOT 85103002 * OCCUR 85106002 * ON,MACHINE CHECKS DUE TO 85109002 * SYSTEM DAMAGE AND 85112002 * INSTRUCTION-PROCESSING 85115002 * DAMAGE CAN OCCUR. OTHER 85118002 * MACHINE CHECKS SUBJECT TO 85121002 * MASK BITS IN CONTROL 85124002 * REGISTER 14 */ 85127002 * 8 SDWAWAT2 BIT(1), /* ON,CPU IN WAIT STATE */ 85130002 * 8 SDWAPGM2 BIT(1), /* ON,PROBLEM STATE 85133002 * OFF,SUPERVISOR STATE */ 85136002 * 7 SDWAINT2 CHAR(1), /* CONDITION CODE AND 85139002 * PROGRAM MASK */ 85142002 * 8 * BIT(2), /* RESERVED */ 85145002 * 8 SDWACC2 BIT(2), /* CONDITION CODE */ 85148002 * 8 SDWAFPO2 BIT(1), /* FIXED POINT OVERFLOW */ 85151002 * 8 SDWADEC2 BIT(1), /* DECIMAL OVERFLOW */ 85154002 * 8 SDWAEXP2 BIT(1), /* EXPONENT UNDERFLOW */ 85157002 * 8 SDWASGN2 BIT(1), /* SIGNIFICANCE */ 85160002 * 7 * CHAR(1), /* RESERVED */ 85163002 * 7 SDWANXT2 PTR(31), /* ADDRESS OF NEXT 85166002 * INSTRUCTION TO BE 85169002 * EXECUTED */ 85172002 * 8 * PTR(8), /* RESERVED */ 85175002 * 8 SDWAADD2 PTR(24), /* INSTRUCTION ADDRESS */ 85178002 * 6 SDWAAEC2 CHAR(8) BDY(WORD), /* ADDITIONAL EC MODE 85184002 * INFORMATION */ 85187002 * 7 * CHAR(1), /* RESERVED */ 85189002 * 7 SDWAILC2 CHAR(1), /* INSTRUCTION LENGTH CODE 85190002 * FOR PSW DEFINED BY SDWAEC2*/ 85193002 * 8 * BIT(5), /* RESERVED ALWAYS ZERO */ 85196002 * 8 SDWAIL2 BIT(2), /* INSTRUCTION LENGTH CODE */ 85199002 * 8 * BIT(1), /* RESERVED ALWAYS ZERO */ 85202002 * 7 SDWAINC2 FIXED(16), /* INTERRUPT CODE. IF PROGRAM 85205002 * CHECK OCCURRED 85205102 * THE SUBFIELDS ARE 85205402 * FURTHER DIVIDED */ 85205802 * 8 * CHAR(1), /* RESERVED FOR IMPRECISE 85207002 * INTERRUPTS 85209002 * ON PROGRAM CHECK INTERRUPT*/ 85209102 * 8 SDWAICD2 PTR(8), /* 8 BIT INTERRUPT CODE 85209402 * IF PROGRAM CHECK */ 85209502 * 9 SDWAIPR2 BIT(1), /* PER INTERRUPT OCCURRED */ 85209802 * 9 SDWAIMC2 BIT(1), /* MONITOR CALL INTERRUPT 85210202 * OCCURRED */ 85210602 * 9 SDWAIPC2 BIT(6), /* AN UNSOLICITED PROGRAM 85210702 * CHECK OCCURRED */ 85210802 * 7 SDWATRN2 PTR(31), /* VIRTUAL ADDRESS CAUSING 85210902 * TRANSLATION EXCEPTION */ 85216402 * 6 SDWASRSV CHAR(64) BDY(WORD), /* GENERAL PURPOSE 85223002 * REGISTERS OF THE RB 85228502 * LEVEL WHICH CREATED THE 85234002 * ESTAE EXIT AT THE TIME 85239502 * IT LAST INCURRED 85245002 * AN INTERRUPT 85250502 * OR 0 FOR ESTAI. 85256002 * FOR FRRS INITIALIZED TO 85256402 * REGISTERS AT TIME OF 85256802 * ERROR. THIS 85257202 * REGISTER AREA IS USED TO 85258002 * UPDATE REGISTER CONTENTS 85260002 * FOR RETRY IF REQUESTED */ 85260402 * 7 SDWASR00 FIXED(31), /* GPR 0. */ 85261502 * 7 SDWASR01 FIXED(31), /* GPR 1. */ 85267002 * 7 SDWASR02 FIXED(31), /* GPR 2. */ 85272502 * 7 SDWASR03 FIXED(31), /* GPR 3. */ 85278002 * 7 SDWASR04 FIXED(31), /* GPR 4. */ 85283502 * 7 SDWASR05 FIXED(31), /* GPR 5. */ 85289002 * 7 SDWASR06 FIXED(31), /* GPR 6. */ 85294502 * 7 SDWASR07 FIXED(31), /* GPR 7. */ 85300002 * 7 SDWASR08 FIXED(31), /* GPR 8. */ 85350002 * 7 SDWASR09 FIXED(31), /* GPR 9. */ 85400002 * 7 SDWASR10 FIXED(31), /* GPR 10, */ 85450002 * 7 SDWASR11 FIXED(31), /* GPR 11. */ 85500002 * 7 SDWASR12 FIXED(31), /* GPR 12. */ 85550002 * 7 SDWASR13 FIXED(31), /* GPR 13. */ 85600002 * 7 SDWASR14 FIXED(31), /* GPR 14. */ 85650002 * 7 SDWASR15 FIXED(31), /* GPR 15. */ 85750002 * 6 SDWAIDNT CHAR(4), /* SDWA IDENTIFICATION 85760002 * AND ATTRIBUTES */ 85770002 * 7 SDWASPID CHAR(1), /* SUBPOOL ID OF STORAGE 85780002 * CONTAINING THIS SDWA */ 85790002 * 7 SDWALNTH CHAR(3), /* LENGTH OF THIS SDWA IN 85792002 * BYTES */ 85794002 * 6 SDWAMCH CHAR(28) BDY(WORD), /*CONTAINS MACHINE CHECK 85796002 * DATA IF SDWAMCHK IS ON */ 85798002 * 7 SDWASTCK CHAR(8) BDY(WORD),/*BEGINNING AND ENDING 85800002 * STORAGE CHECK ADDRESSES. 85850002 * FILLED IN DUE TO 85860002 * STORAGE ERROR (SDWASCK) 85870002 * OR A KEY FAILURE (SDWASKYF) 85880002 * THESE ADDRESSES ARE VALID 85890002 * ONLY IF INDICATED BY THE 85892002 * SDWASRVL FLAG. */ 85894002 * 8 SDWASCKB PTR(31), /* BEGINNING VIRTUAL ADDRESS 85900002 * OF STORAGE CHECK */ 85950002 * 8 SDWASCKE PTR(31), /* ENDING VIRTUAL ADDRESS 86000002 * OF STORAGE CHECK */ 86010002 * 7 SDWAMCHI CHAR(2), /* ADDITIONAL MCH INFORMATION 86060002 * FLAGS */ 86070002 * 8 SDWAMCHS CHAR(1), /* MCH FLAG BYTE */ 86110002 * 9 SDWASRVL BIT(1), /* ON,STORAGE ADDRESS 86160002 * SUPPLIED (SDWASTCK, 86210002 * SDWARFSA) ARE VALID. */ 86212002 * 9 SDWARCDF BIT(1), /* ON,MACHINE CHECK RECORD 86220002 * NOT RECORDED */ 86260002 * 9 SDWATSVL BIT(1), /* ON,TIME STAMP VALID */ 86310002 * 9 SDWAINVP BIT(1), /* ON,STORAGE IS RECONFIGURED, 86360002 * PAGE IS INVALIDATED. */ 86362002 * 9 SDWARSRC BIT(1), /* ON,STORAGE RECONFIGURATION 86370002 * STATUS AVAILABLE 86420002 * (SDWARSR1,SDWARSR2) */ 86422002 * 9 SDWARSRF BIT(1), /* ON,STORAGE RECONFIGURATION 86430002 * NOT ATTEMPTED (SDWARSR1, 86440002 * SDWARSR2 ARE INVALID ) */ 86450002 * 9 * BIT(2), /* RESERVED */ 86452002 * 8 SDWAMCHD CHAR(1), /* INPUT INFORMATION 86460002 * TO RECOVERY ROUTINE CON- 86470002 * CERNING A MACHINE CHECK 86480002 * ERROR */ 86490002 * 9 SDWASKYF BIT(1), /* ON,STORAGE KEY FAILURE */ 86492002 * 9 SDWAREGU BIT(1), /* ON,GENERAL PURPOSE REGISTER 86494002 * CONTENTS AT TIME OF MACHINE 86496002 * CHECK UNPREDICTABLE */ 86498002 * 9 SDWAPSWU BIT(1), /* ON,PSW AND-OR CONTROL 86498402 * REGISTERS AT TIME OF MACHINE 86498502 * CHECK UNPREDICTABLE */ 86498802 * 9 SDWASCK BIT(1), /* ON,STORAGE DATA CHECK */ 86499202 * 9 SDWAACR BIT(1), /* ON,INDICATES ACR REQUEST */ 86499602 * 9 SDWAINSF BIT(1), /* ON,INSTRUCTION FAILURE */ 86499702 * 9 SDWAFPRX BIT(1), /* ON, CONTENTS OF FLOATING 86509702 * POINT REGISTERS 86509802 * AT TIME OF MACHINE CHECK 86510502 * ARE UNPREDICTABLE */ 86510902 * 9 SDWATERR BIT(1), /* ON,TIMER ERROR - CAUSES 86511002 * ENTRY TO RECOVERY ROUTINES 86512802 * ONLY IF LOGOUT FAILED */ 86514802 * 7 SDWACPID CHAR(2), /* ID OF FAILING CPU CAUSING 86515902 * ACR */ 86517702 * 7 SDWARSR1 CHAR(1), /* ADDITIONAL STORAGE FRAME 86519502 * ERROR INDICATORS AS 86521302 * RETURNED FROM REAL STORAGE 86523102 * RECONFIGURATION */ 86524902 * 8 * BIT(6), /* RESERVED */ 86526702 * 8 SDWAMSER BIT(1), /* STORAGE ERROR ALREADY 86528502 * SET IN FRAME */ 86530302 * 8 SDWACHNG BIT(1), /* CHANGE INDICATOR WAS 86532102 * ON IN FRAME */ 86533902 * 7 SDWARSR2 CHAR(1), /* ADDITIONAL STORAGE 86535702 * ERROR INDICATORS. */ 86537502 * 8 SDWAOFLN BIT(1), /* FRAME OFFLINE OR 86539302 * SCHEDULED TO GO OFFLINE 86541102 * IF SDWAINTC IS ON */ 86542902 * 8 SDWAINTC BIT(1), /* INTERCEPT 86544702 * THE FRAME IS SCHEDULED 86546502 * TO GO OFFLINE 86548302 * OR 86550302 * THE FRAME HAS INCURRED 86550402 * A STORAGE ERROR 86550502 * OR IS V=R */ 86554802 * 8 SDWASPER BIT(1), /* STORAGE ERROR PERMANENT 86564002 * ON FRAME */ 86568302 * 8 SDWANUCL BIT(1), /* FRAME CONTAINS PERMANENT 86572602 * RESIDENT STORAGE,I.E. 86576902 * NUCLEUS. */ 86581202 * 8 SDWAFSQA BIT(1), /* FRAME IN SQA */ 86585502 * 8 SDWAFLSQ BIT(1), /* FRAME IN LSQA */ 86589802 * 8 SDWAPGFX BIT(1), /* FRAME IS PAGE FIXED */ 86594102 * 8 SDWAVEQR BIT(1), /* FRAME IS VIRTUAL=REAL 86598402 * OR SCHEDULED FOR VIRTUAL= 86602702 * REAL. IF SDWAINTC IS ON */ 86607002 * 7 * CHAR(2), /* RESERVED */ 86611302 * 7 SDWARFSA PTR(31), /* REAL STORAGE FAILING 86615602 * ADDRESS. ( VALID ONLY IF 86619902 * INDICATED BY SDWASRVL ) */ 86624202 * 7 SDWATIME CHAR(8), /* TIME STAMP OF ASSOCIATED 86628502 * MACHINE CHECK RECORD. */ 86632802 * 6 SDWAFLGS CHAR(4), /* INPUT FLAGS DESCRIBING 86637102 * REASONS AND CONDITIONS 86641402 * FOR ENTERING A RECOVERY 86645702 * EXIT ROUTINE */ 86650002 * 7 SDWAERRA CHAR(1), /* ERROR TYPE CAUSING ENTRY 87350002 * TO RECOVERY ROUTINE */ 87400002 * 8 SDWAMCHK BIT(1), /* ON,MACHINE CHECK */ 87450002 * 8 SDWAPCHK BIT(1), /* ON,PROGRAM CHECK */ 87500002 * 8 SDWARKEY BIT(1), /* ON,INDICATES CONSOLE 87550002 * RESTART KEY DEPRESSED */ 87600002 * 8 SDWASVCD BIT(1), /* ON,INDICATES TASK ISSUED 87650002 * SVC 13 */ 87700002 * 8 SDWAABTM BIT(1), /* ON,INDICATES SYSTEM FORCED 87750002 * SVC 13(ABTERM) */ 87800002 * 8 SDWASVCE BIT(1), /* ON,INDICATES AN SVC WAS 87802002 * ISSUED BY A LOCKED OR 87804002 * SRB ROUTINE */ 87806002 * 8 SDWATEXC BIT(1), /* ON,INDICATES AN 87808002 * UNRECOVERABLE TRANSLATION 87808402 * FAILURE */ 87808802 * 8 SDWAPGIO BIT(1), /* ON,INDICATES A PAGE 87809202 * I/O ERROR */ 87809602 * 7 SDWAERRB CHAR(1), /* ADDITIONAL ERROR ENTRY 87820002 * INFORMATION */ 87830002 * 8 * BIT(4), /* RESERVED */ 87832002 * 8 SDWATYP1 BIT(1), /* ON,TYPE1 SVC IN CONTROL AT 87840002 * TIME OF ERROR */ 87842002 * 8 SDWAENRB BIT(1), /* ON,ENABLED RB IN CONTROL 87844002 * AT TIME OF ERROR */ 87846002 * 8 SDWALDIS BIT(1), /* ON,A LOGICALLY OR PHYSICALLY 87848002 * DISABLED ROUTINE WAS IN 87848402 * CONTROL AT TIME OF ERROR. */ 87848802 * 8 SDWASRBM BIT(1), /* SYSTEM IN SRB MODE AT TIME 87849702 * OF ERROR */ 87849802 * 7 SDWAERRC CHAR(1), /* ADDITIONAL ERROR ENTRY 87849902 * INFORMATION */ 87866602 * 8 SDWASTAF BIT(1), /* ON,A PREVIOUS (E)STA EXIT 87952002 * OR FRR FAILED */ 87954002 * 8 SDWASTAI BIT(1), /* ON, A (E)STAI EXIT 87956002 * PREVIOUSLY RECEIVED 87958002 * CONTROL */ 87958402 * 8 SDWAIRB BIT(1), /* ON,AN IRB PRECEDED THE RB 87960002 * THAT IS ASSOCIATED WITH 87962002 * THIS EXIT */ 87970002 * 8 SDWAPERC BIT(1), /* ON,THIS RECOVERY ROUTINE 87980002 * IS BEING PERCOLATED TO */ 87990002 * 8 SDWAEAS BIT(1), /* ON INDICATES A LOWER LEVEL 87990402 * EXIT HAS RECOGNIZED AN 87990802 * ERROR AND PROVIDED SERVICE- 87991202 * ABILITY INFORMATION */ 87991602 * 8 * BIT(3), /* RESERVED. */ 87992002 * 7 SDWAERRD CHAR(1), /* ADDITIONAL ERROR ENTRY 88000002 * INFORMATION. */ 88010002 * 8 SDWACLUP BIT(1), /* ON,INDICATES RECOVERY 88020002 * ROUTINE ONLY TO CLEANUP 88030002 * AND NOT RETRY (IF ESTA 88040002 * EXIT AND 33E 88050002 * COMPLETION CODE THE DUMP 88090002 * IS TAKEN AFTER ENTRY TO 88140002 * THE RECOVERY ROUTINE,IF 88190002 * THE COMPLETION CODE IS OTHER 88240002 * THAN 33E AND IT IS AN 88250002 * ESTA EXIT THE 88260002 * DUMP IS TAKEN BEFORE 88290002 * ENTRY TO THE RECOVERY 88292002 * ROUTINE) */ 88294002 * 8 SDWANRBE BIT(1), /* ON,RB ASSOCIATED WITH THIS 88300002 * ESTA EXIT WAS NOT IN CONTROL 88350002 * AT TIME OF ERROR */ 88400002 * 8 SDWASTAE BIT(1), /* ON,THIS ESTA EXIT HAS 88600002 * BEEN ENTERED FOR A PREVIOUS 88650002 * ABEND. NEVER ON FOR FRRS. */ 88652002 * 8 SDWACTS BIT(1), /* ON,THIS TASK WAS NOT IN 88702002 * CONTROL AT TIME OF ERROR 88752002 * BUT A TASK WITHIN THE SAME 88802002 * JOBSTEP TREE REQUESTED A 88852002 * 'STEP' ABEND. ONLY 'ON' 88902002 * IF SDWACLUP IS 'ON'. */ 88952002 * 8 SDWAMABD BIT(1), /* ON,THIS TASK WAS NOT IN 89002002 * CONTROL AT TIME OF ERROR 89052002 * BUT AN ANCESTOR OF THIS 89102002 * TASK HAS ABENDED. ONLY 89152002 * 'ON' IF SDWACLUP IS 'ON' */ 89202002 * 8 SDWARPIV BIT(1), /* ON, THE REGISTERS AND PSW 89302002 * AT TIME OF ERROR ARE 89352002 * UNAVAILABLE */ 89362002 * 8 SDWAMCIV BIT(1), /* ON, MACHINE CHECK ERROR 89372002 * INFORMATION IS 89374002 * UNAVAILABLE. */ 89376002 * 8 SDWAERFL BIT(1), /* ON, ERRORID INFORMATION 89379041 * IN SDWA @G17EP5W*/ 89382041 * 6 SDWAFMID CHAR(2), /* ASID OF MEMORY IN WHICH 89392002 * ERROR OCCURRED 89394002 * =0, IF MEMORY IS CURRENT 89394402 * NOT=0, IF OTHER MEMORY 89394802 * IS CURRENT. 89395202 * FOR FRRS- 89395602 * IF THE VALUE IS NON ZERO 89395702 * THE FRR IS RECEIVING 89395902 * CONTROL IN THE MASTER 89396002 * SCHEDULER ADDRESS SPACE 89397702 * AND CANNOT ADDRESS THE 89399702 * PRIVATE AREA OF THE 89400102 * FAILING ADDRESS SPACE. 89400202 * FOR ESTA- 89400302 * IF THE VALUE IS NON ZERO 89402402 * ENTRY IS DUE TO CROSS 89404402 * MEMORY ABTERM. */ 89404802 * 6 SDWAIOFS CHAR(1), /* THIS IS THE CURRENT I/O 89405602 * STATUS.(THE I/O 89407702 * PROCESSING REQUESTED BY 89409802 * THE FIRST (E)STA EXIT 89411902 * IS THE ONLY REQUEST 89414002 * HONORED ) */ 89416102 * 8 SDWAIOQR BIT(1), /* ON,I/O FOR FAILING 89418202 * PROGRAM HAS BEEN QUIESCED 89420302 * AND IS RESTOREABLE */ 89422402 * 8 SDWAIOHT BIT(1), /* ON,I/O FOR FAILING 89424502 * PROGRAM IS HALTED AND IS 89426602 * NOT RESTOREABLE */ 89428602 * 8 SDWANOIO BIT(1), /* ON,FAILING PROGRAM HAS NO 89430602 * I/O OUTSTANDING */ 89432602 * 8 SDWANIOP BIT(1), /* ON,USER REQUESTED NO I/O 89433002 * PROCESSING */ 89433102 * 8 * BIT(4), /* RESERVED */ 89433202 * 6 SDWACPUI PTR(8), /* ERRORID CPUID @G17EP5W*/ 89435241 * 6 SDWARTYA PTR(31), /* ADDRESS OF RETRY ROUTINE */ 89444402 * 6 SDWARECA PTR(31), /* ADDRESS OF VARIABLE 89450002 * RECORDING AREA WITHIN SDWA*/ 89500002 * 6 SDWACPUA CHAR(4) BDY(WORD),/* ADDRESS OF CPU HOLDING 89883302 * RESOURCE WHICH CAUSES 89900002 * VALID SPIN ON CURRENT 89950002 * CPU-USED WITH RESTART KEY 90000002 * ERROR TYPE.IF THIS FIELD 90050002 * IS VALIDLY FILLED IN BY AN 90060002 * FRR THE FRRS MAINLINE 90070002 * PROGRAM WILL BE RESUMED AT 90080002 * THE NEXT SEQUENTIAL 90090002 * INSTRUCTION. NOT VALID FOR 90092002 * ESTAE EXITS. */ 90094002 * 7 * CHAR(2), /* RESERVED */ 90095002 * 7 SDWALCPU PTR(15) BDY(HWORD),/* LOGICAL ADDRESS OF CPU 90096002 * HOLDING RESOURCE */ 90097002 * 6 SDWAPARQ CHAR(4), /* FLAGS SET BY RECOVERY 90100002 * ROUTINE TO REQUEST FUR- 90150002 * THEIR PROCESSING ACTION */ 90200002 * 7 SDWARCDE CHAR(1), /* RETURN CODE FROM RECOVERY 90250002 * ROUTINE TO INDICATE RETRY 90300002 * OR TERMINATION ACTIONS : 90350002 * 0, CONTINUE WITH TERMINATION 90360002 * THIS INDICATION IMPLIES 90362002 * PERCOLATION 90364002 * 4, RETRY 90370002 * 16, PREVENT FURTHER (E)STAI 90380002 * PROCESSING */ 90390002 * 7 SDWAACF2 CHAR(1), /* FLAGS TO INDICATE ADDITIO- 90400002 * NAL PROCESSING REQUESTS */ 90450002 * 8 SDWARCRD BIT(1), /* ON,RECORDING REQUESTED */ 90500002 * 8 * BIT(1), /* RESERVED */ 90550002 * 8 SDWASPIN BIT(1), /* ON,PROGRAM INTERRUPTED 90600002 * VIA THE RESTART KEY WAS 90650002 * IN A VALID SPIN(SET BY 90700002 * THE SETRP MACRO WHEN CPU 90702002 * ADDRESS IS SPECIFIED ALONG 90702102 * WITH CPU ADDRESS IN SDWACPUA 90702202 * FIELD TO ALLOW RESTART 90702802 * OF ALTERNATE CPU) */ 90703202 * 8 * BIT(1), /* RESERVED */ 90753202 * 8 SDWAUPRG BIT(1), /* ON,UPDATED REGISTERS 90900002 * STARTING WITH SDWASR00 90950002 * ARE TO BE USED FOR RETRY */ 91000002 * 8 SDWAFREE BIT(1), /* ON,SDWA/RTCA TO BE FREED 91050002 * PRIOR TO RETRY 91052002 * ONLY VALID FOR ESTA EXITS */ 91054002 * 8 * BIT(2), /* RESERVED */ 91060002 * 7 SDWAACF3 CHAR(1), /* FLAGS INDICATING WHAT 91100002 * GLOBAL LOCKS ARE TO BE 91150002 * FREED (KEY 0 SUPERVISOR 91200002 * ONLY.) 91210002 * ONLY VALID FOR FRRS */ 91220002 * 8 * BIT(3), /* RESERVED */ 91220102 * 8 SDWADISP BIT(1), /* ON THE DISPATCHER LOCK */ 91250002 * 8 SDWAASMP BIT(1), /* ON, ASM CLASS LOCK@Z40WPXH*/ 91300041 * 8 SDWASALL BIT(1), /* ON, THE SALLOC LOCK */ 91350041 * 8 SDWAIPRG BIT(1), /* ON, THE IOSYNCH LOCK */ 91450002 * 8 SDWAICAT BIT(1), /* ON,THE IOSCAT LOCK */ 91450102 * 7 SDWAACF4 CHAR(1), /* ADDITIONAL LOCKS TO BE 91650002 * FREED */ 91650402 * 8 SDWAIUCB BIT(1), /* ON,THE IOSUCB LOCK */ 91650502 * 8 SDWAILCH BIT(1), /* ON, THE IOSLCH LOCK */ 91650602 * 8 SDWATNCB BIT(1), /* RESERVED LOCK @Z40WPXH*/ 91650941 * 8 SDWATDNB BIT(1), /* RESERVED LOCK @Z40WPXH*/ 91651441 * 8 SDWATADB BIT(1), /* RESERVED LOCK @Z40WPXH*/ 91651741 * 8 SDWAOPTM BIT(1), /* ON,THE SYSTEM RESOURCE 91652741 * MGR(SRM) LOCK */ 91658041 * 8 SDWACMS BIT(1), /* ON,THE CMS LOCK */ 91660002 * 8 SDWAFLLK BIT(1), /* ON,THE LOCAL LOCK */ 91670002 * 6 SDWALKWA CHAR(32) BDY(WORD), /* LOCK AREA @ZA05516*/ 91672041 * 7 SDWALKWS CHAR(32) BDY(WORD), /* LOCKWORDS REQUIRED TO FREE 91680002 * THE GLOBAL LOCKS 91682002 * ONLY USED FOR FRRS */ 91684002 * 8 SDWAICLW PTR(31), /* LOCKWORD FOR THE IOSCAT 91690002 * LOCK */ 91692002 * 8 SDWAIULW PTR(31), /* LOCKWORD FOR THE IOSUCB 91694002 * LOCK */ 91696002 * 8 SDWAILLW PTR(31), /* LOCKWORD FOR THE IOSLCH 91698002 * LOCK */ 91698402 * 8 SDWAIPLW PTR(31), /* LOCKWORD FOR THE IOSYNCH 91698802 * LOCK */ 91699202 * 8 SDWAAPLW PTR(31), /* LOCKWORD FOR THE ASM CLASS 91699441 * LOCK @Z40WPXH*/ 91699641 * 8 SDWATNLW PTR(31), /* LOCKWORD - RESERVED 91702641 * LOCK @Z40WPXH*/ 91705641 * 8 SDWATDLW PTR(31), /* LOCKWORD - RESERVED 91708641 LOCK @Z40WPXH*/ 91711641 * 8 SDWATALW PTR(31), /* LOCKWORD - RESERVED 91714641 * LOCK @Z40WPXH*/ 91717641 * 6 SDWAASID CHAR(2), /* ASID FOR LOGREC DEBUGGING 91720641 * @ZA05516*/ 91732641 * 6 SDWASEQ# CHAR(2), /* ERRORID SEQ NBR @G17EP5W*/ 91732841 * 6 SDWARECP CHAR(24), /* RECORDING PARAMETERS 91740041 * (MODULE ,CSECT,AND RECOVERY 91742041 * ROUTINE NAME-RESPECTIVELY)*/ 91744041 * 7 SDWAMODN CHAR(8), /* THE MODULE NAME 91748041 * INVOLVED IN THE ERROR 91750002 * (SUPPLIED BY THE RECOVERY 91800002 * ROUTINE) */ 91850002 * 7 SDWACSCT CHAR(8), /* THE CSECT NAME INVOLVED 91900002 * IN THE ERROR(SUPPLIED 91950002 * BY THE RECOVERY ROUTINE) */ 92000002 * 7 SDWAREXN CHAR(8), /* THE RECOVERY ROUTINE NAME 92050002 * HANDLING THE ERROR */ 92060002 * 6 SDWADPLA PTR(31), /* POINTER TO DUMP 92100002 * PARAMETER LIST RESIDING 92150002 * IN SDWA. */ 92200002 * 6 SDWASNPA CHAR(8), /* SNAP PARAMETER LIST FLAGS */ 92250002 * 7 SDWADUMP CHAR(4), /* DUMP CHARACTERISTICS */ 92300002 * 8 SDWADPID CHAR(1), /* ID OF DUMP REQUESTED */ 92350002 * 8 SDWADPFS CHAR(1), /* DUMP FLAGS */ 92400002 * 9 SDWADPT BIT(1), /* ALWAYS OFF,INDICATES SNAP 92450002 * DUMP REQUEST */ 92550002 * 9 SDWADLST BIT(1), /* ALWAYS ON, INDICATES OS/VS2 92650002 * REL. 2 DUMP PARAMETER LIST 92660002 * SUPPLIED. USED BY RTM TO 92700002 * INDICATE DUMP OPTIONS 92750002 * ARE AVAILABLE IN THE SDWA */ 92800002 * 9 SDWAENSN BIT(1), /* 1=ENHANCED DUMP OPTIONS 92810043 * @G33SPHW*/ 92820043 * 9 * BIT(3), /* RESERVED. */ 92830043 * 9 SDWASLST BIT(1), /* ON,STORAGE LIST SUPPLIED 93010002 * FOR DUMP */ 93020002 * 9 * BIT(1), /* RESERVED */ 93050002 * 8 * CHAR(2), /* RESERVED */ 93100002 * 7 SDWADDAT CHAR(4), /* SDATA/PDATA OPTIONS */ 94050002 * 8 SDWASDAT CHAR(2), /* SDATA OPTIONS */ 94070043 * 9 SDWASDA0 CHAR(1), /* SDATA OPTIONS FLAG ONE 94100043 * @G33SPHW*/ 94110043 * 10 SDWANUC BIT(1), /* DISPLAY NUCLEUS */ 94120043 * 10 SDWASQA BIT(1), /* DISPLAY SQA */ 94150043 * 10 SDWALSQA BIT(1), /* DISPLAY LSQA */ 94200043 * 10 SDWASWA BIT(1), /* DISPLAY SWA */ 94250043 * 10 SDWAGTF BIT(1), /* DISPLAY GTF INCORE TRACE 94300043 * TABLE */ 94400002 * 10 SDWACBS BIT(1), /* FORMAT AND DISPLAY CONTROL 94420043 * BLOCKS */ 94500002 * 10 SDWAQQS BIT(1), /* FORMAT AND DISPLAY QCBS/ 94520043 * QELS */ 94600002 * 10 SDWADM BIT(1), /* FORMAT DATA MGT CONTROL 94605043 * BLOCKS @G33SPHW*/ 94610043 * 9 SDWASDA1 CHAR(1), /* SDATA OPTIONS @G33SPHW*/ 94620043 * 10 SDWAIO BIT(1), /* FORMAT IOS CONTROL BLOCKS 94630043 * @G33SPHW*/ 94658043 * 10 SDWAERR BIT(1), /* FORMAT ERROR CONTROL 94666043 * BLOCKS @G33SPHW*/ 94674043 * 10 * BIT(6), /* RESERVED @G33SPHW*/ 94682043 * 8 SDWAPDAT CHAR(1), /* PDATA OPTIONS */ 94700002 * 9 SDWADSAS BIT(1), /* DISPLAY SAVE AREAS */ 94850002 * 9 SDWADSAH BIT(1), /* DISPLAY SAVE AREA HEADER */ 94900002 * 9 SDWADREG BIT(1), /* DISPLAY REGISTERS */ 94920002 * 9 SDWATLPA BIT(1), /* DISPLAY LPA MODULES OF 95000002 * TASK */ 95010002 * 9 SDWATJPA BIT(1), /* DISPLAY JPA MODULES OF 95012002 * TASK */ 95014002 * 9 SDWADPSW BIT(1), /* DISPLAY PSW */ 95020002 * 9 SDWAUSPL BIT(1), /* DISPLAY USER SUBPOOLS */ 95050002 * 9 * BIT(1), /* RESERVED */ 95100002 * 8 * CHAR(1), /* RESERVED */ 95150002 * 6 SDWADPSA CHAR(36) BDY(WORD), /* DUMP RANGES AREA */ 95152002 * 7 SDWADPSL CHAR(32) BDY(WORD), /* DUMP STORAGE LISTS(MAX 4 95160002 * RANGES AVAILABLE) */ 95170002 * 8 SDWAFRM1 PTR(31), /* BEGINNING ADDRESS FOR 95180002 * STORAGE RANGE 1 */ 95190002 * 8 SDWATO1 PTR(31), /* ENDING ADDRESS FOR STORAGE 95192002 * RANGE 1 */ 95194002 * 8 SDWAFRM2 PTR(31), /* BEGINNING ADDRESS FOR 95196002 * STORAGE RANGE 2 */ 95198002 * 8 SDWATO2 PTR(31), /* ENDING ADDRESS FOR STORAGE 95198402 * RANGE 2 */ 95198802 * 8 SDWAFRM3 PTR(31), /* BEGINNING ADDRESS FOR 95199202 * STORAGE RANGE 3 */ 95199602 * 8 SDWATO3 PTR(31), /* ENDING ADDRESS FOR STORAGE 95199702 * RANGE 3 */ 95199802 * 8 SDWAFRM4 PTR(31), /* BEGINNING ADDRESS FOR 95199902 * STORAGE RANGE 4 */ 95216602 * 8 SDWATO4 PTR(31), /* ENDING ADDRESS FOR STORAGE 95226602 * RANGE 4 */ 95228602 * 7 * PTR(31), /* RESERVED */ 95229002 * 6 SDWARCPL CHAR(28) BDY(WORD), /* RESERVED FOR RTM USE */ 95230602 * 6 SDWACOMP PTR(31), /* THIS WORD IS PROVIDED FOR 95240602 * COMMUNICATION OF ADDITIONAL 95242602 * RECOVERY DATA ON A PER 95243002 * COMPONENT BASIS (FOR 95243102 * OS/VS2 RELEASE 2 THIS 95243402 * FIELD IS ONLY USED BY 95243802 * DATA MANAGER). */ 95244202 * 6 SDWAERTM CHAR(4), /* ERRORID TIME STAMP@G17EP5W*/ 95245241 * 6 SDWARA CHAR(112), /* VARIABLE RECORDING AREA 95249041 * PREFIXED BY TWO BYTE 95250002 * LENGTH FIELD OF AREA 95300002 * AND A TWO BYTE FIELD WITH 95350002 * LENGTH OF USER SUPPLIED 95400002 * INFORMATION */ 95450002 * 7 SDWAVRAL CHAR(2), /* LENGTH OF VARIABLE RECORD- 95500002 * ING AREA */ 95550002 * 7 SDWADPVA CHAR(1), /* DEFINES DUMPING OF DATA IN 95560002 * VARIABLE AREA. */ 95570002 * 8 SDWAHEX BIT(1), /* DATA TO BE DUMPED BY EREP 95580002 * IN HEX. */ 95590002 * 8 SDWAEBC BIT(1), /* DATA TO BE DUMPED BY EREP 95592002 * EBCDIC. */ 95594002 * 8 * BIT(6), /* RESERVED */ 95596002 * 7 SDWAURAL CHAR(1), /* LENGTH OF USER SUPPLIED 95600002 * INFORMATION */ 95650002 * 7 SDWAVRA CHAR(108), /* VARIABLE RECORDING AREA */ 95710002 * 6 * CHAR(0) BDY(DWORD) SDWA9999 /*ROUND UP TO DOUBLE WORD */ 95720002 */* THESE CONSTANTS MAP RETURN CODES FROM AN EXIT IN FIELD */ 95760002 */* SDWARCDE */ 95770002 *DECLARE 95780002 * SDWACWT CONSTANT(0), /* CONTINUE WITH TERMINATION. 95790002 * THIS INDICATION IMPLIES 95792002 * PERCOLATION */ 95794002 * SDWARETY CONSTANT(4), /* RETRY USING RETRY ADDRESS 95796002 * IN SDWARTYA FIELD */ 95798002 * SDWAPSTI CONSTANT(16); /* PREVENT FURTHER (E)STAI 95798402 * PROCESSING */ 95798802 *%SDWALEN = 'LENGTH(SDWA)'; /* LENGTH OF SDWA */ 95800002 *%SDWAFLEN = 'LENGTH(SDWA)+272'; /* GETMAIN LEN FOR FRR SDWA */ 95850002