* % GOTO PLSSCRA1 ; /* 00090002 MACRO 00090402 IHASCRA 00090802 **/ 00091202 * %PLSSCRA1:; 00091602 */********************************************************************/ 00091702 */* MACMEAN SCRA MEANS SUPERVISOR CONTROL RECOVERY AREA */ 00092002 */* MACCOMP Y-2 SCIC5/PZD81 */ 00094002 */* MACSTAT Y-2 731161 */ 00096002 */* MAPPING OF 6 WORD FRR PARAMETER AREA - POINTER IN SDWAPARM */ 00096402 */* BAL- DSECT ALWAYS PRODUCED - USING ON SCRA */ 00098002 */* PLS- SCRA BASED ON SDWAPARM */ 00100002 */********************************************************************/ 00106002 * % GOTO PLSSCRA2; /* 00146002 SCRA DSECT 00200002 DS 0D SUPERVISOR CONTROL RECOVERY AREA 00250002 SCRASCRA DS CL4 ACRONYM FOR SCRA 00300002 SCRARTNP DS A RTM RETURN POINT ADDRESS 00350002 SCRACSTK DS A CURRENT STACK POINTER 00400002 SCRAFLGS DS 0BL32 RECURSION AND ACTION FLAGS 00800002 SCRARECF DS 0BL8 RECURSION FLAGS 00850002 SCRAREC1 DS B FIRST LEVEL RECURSION 00900002 SCRAREC2 DS B SECOND LEVEL RECURSION 00950002 SCRARS02 DS BL6 RESERVED 01000002 SCRAACTF DS 0BL8 ACTION FLAGS 01050002 SCRAMTRM DS B MEMTERM INDICATOR 01100002 SCRAABTM DS B ABTERM INDICATOR 01150002 SCRARS03 DS BL6 RESERVED 01200002 SCRARS04 DS BL16 RESERVED 01250002 SCRAWORK DS F RECOVERY WORK AREA PTR 01300002 SCRASUPR DS F SUPERVISOR CONTROL WORD FROM PSA 01310002 SCRAEND DS 0D END OF SCRA 01350002 MEND 01360002 **/ 01400002 *% PLSSCRA2: ; 01450002 * DCL 1 SCRA BASED (SDWAPARM) /* SUP CNTRL RECOVERY AREA */ 01650002 * BDY(DWORD), 01660002 * 2 SCRASCRA CHAR(4) /* ACRONYM FOR SCRA */ 01700002 * BDY(WORD), 01750002 * 2 SCRARTNP PTR(31), /* RTM RETURN POINT ADDRESS */ 01800002 * 2 SCRACSTK PTR(31), /* CURRENT STACK POINTER */ 01850002 * 2 SCRAFLGS BIT(32), /* RECURSION AND ACTION FLAGS */ 02300002 * 3 SCRARECF BIT(8), /* RECURSION FLAGS */ 02350002 * 4 SCRAREC1 BIT(1), /* FIRST LEVEL RECURSION */ 02400002 * 4 SCRAREC2 BIT(1), /* SECOND LEVEL RECURSION */ 02450002 * 4 SCRARS02 BIT(6), /* RESERVED */ 02500002 * 3 SCRAACTF BIT(8), /* ACTION FLAGS */ 02550002 * 4 SCRAMTRM BIT(1), /* MEMTERM INIDCATOR */ 02600002 * 4 SCRAABTM BIT(1), /* ABTERM INDICATOR */ 02650002 * 4 SCRARS03 BIT(6), /* RESERVED */ 02700002 * 3 SCRARS04 BIT(16), /* RESERVED */ 02750002 * 2 SCRAWORK FIXED(31), /* RECOVERY WORK AREA PTR */ 02800002 * 2 SCRASUPR FIXED(31), /* SUPERVISOR CONTROL WORD FROM PSA*/ 02810002 * 2 SCRAEND CHAR(0) /* END OF SCRA */ 02850002 * BDY(DWORD); 02900002