* %GOTO RRPAPLS1; /* 00050002 MACRO 00100002 IRARRPA &DSECT=YES 00150002 IEZBITS */ 00200002 *%RRPAPLS1: ; 00250002 * /* */ 00300002 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00350040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00380040 * /* *************************************************************** */ 00450002 * /* */ 00500002 * /* MACRO NAME - IRARRPA */ 00550002 * /* */ 00600002 * /* DESCRIPTIVE NAME - SYSTEM RESOURCES MANAGER RECOVERY ROUTINE */ 00650002 * /* PARAMETER AREA */ 00700002 * /* */ 00750002 * /* COPYRIGHT - NONE */ 00800002 * /* */ 00850002 * /* STATUS - OS/VS2 RELEASE 4, 10/28/75, LEVEL=1 */ 00900040 * /* */ 00950002 * /* FUNCTION - THE RRPA IDENTIFIES THE INVOCATION THAT RESULTED */ 01000002 * /* IN SYSTEM RESOURCES MANAGER PROCESSING, AND SPECIFIES */ 01050002 * /* THE INTERNAL ROUTINE CURRENTLY IN CONTROL. THE RRPA */ 01100002 * /* PRESERVES STATUS FOR EXIT FROM THE SYSTEM RESOURCES */ 01150002 * /* MANAGER. */ 01200002 * /* */ 01250002 * /* METHOD OF ACCESS - BY CONVENTION WITHIN SYSTEM RESOURCES */ 01300002 * /* MANAGER ROUTINES, REGISTER 3 IS RESERVED TO CONTAIN */ 01350002 * /* THE ADDRESS OF THE APPLICABLE RRPA. */ 01400002 * /* */ 01450002 * /* *************************************************************** */ 01500002 * %GOTO RRPAPLS2; /* 01550002 AGO .RRPAAL1 */ 01600002 * /* *************************************************************** */ 01650002 * /* */ 01700002 * /* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 01750002 * /* */ 01800002 * /* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 01850002 * /* */ 01900002 * /* USING ON RRPA GIVES ADDRESSABILITY TO ALL SYMBOLS. */ 01950002 * /* */ 02000002 * /* PLS - %RRPALEVL='USERLEVL' IF THE RRPA MAPPING IS TO BE */ 02050002 * /* CONCATENATED WITH A PREVIOUS DECLARATION, WITH THE */ 02100002 * /* RRPA BEING ASSIGNED THE INDICATED STRUCTURE LEVEL. */ 02150002 * /* - %RRPA9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED. */ 02200002 * /* */ 02250002 * /* NOTE - INASMUCH AS THE RRPA AREA IS POINTED TO */ 02300002 * /* DIRECTLY BY A REGISTER, ONLY A STRUCTURE LEVEL OF */ 02350002 * /* '1' (ONE) SHOULD BE USED FOR THE RRPA. */ 02400002 * /* */ 02450002 * /* TO ACCESS AS A STANDALONE STRUCTURE, DCL RRPAPTR PTR. */ 02500002 * /* */ 02550002 * /* CHANGE ACTIVITY = @ZA29015 */ 02600000 * /* */ 02650002 * /* A000000-999999 Y02133*/ 02700002 * /* */ 02750002 * /* *************************************************************** */ 02800002 * /* 02850002 .RRPAAL1 ANOP 02900002 SPACE 1 02950002 AIF ('&DSECT' EQ 'NO').RRPAAL2 03000002 RRPA DSECT 03050002 AGO .RRPAAL3 03100002 .RRPAAL2 ANOP 03150002 DS 0D 03200002 RRPA EQU * 03250002 .RRPAAL3 ANOP 03300002 SPACE 1 03350002 RRPAINC DS 0F - EQUIVALENT OF REG 0 AT ENTRY 03400002 RRPAASD DS H - ASID FOR ORIGINAL ENTRY 03450002 RRPAVPGN DS 0X - VERIFY PGN FOR JOB SELECT @Z40BPCH 03500000 RRPAFLG0 DS B - FLAG BYTE FOR MEMDEL @ZA29015 03510000 RRPANSWI EQU BIT0 - =1 FOR MEMDEL TYPE=NOSWIN @ZA29015 03520000 RRPACOD DS C - ORIGINAL ENTRY SYSEVENT CODE 03550002 RRPAINP DS 0A - INPUT PARAMETER ADDRESS 03600002 RRPAVLU DS F - EQUIVALENT OF REG 1 AT EXIT 03650002 RRPAFLG DS 0BL2 - ROUTINE STATUS FLAGS 03700002 DS B - ENTRY STATUS 03750002 RRPADSB EQU BIT0 - DISABLED BRANCH ENTRY 03800002 RRPAENB EQU BIT1 - ENABLED BRANCH ENTRY 03850002 RRPASVC EQU BIT2 - SVC CALL ENTRY 03900002 RRPADSP EQU BIT3 - DISPATCHING REQUIRED 03950002 RRPAOPT EQU BIT6 - SRM LOCK CURRENTLY HELD 03970002 DS B - CURRENT STATUS 04050002 RRPAWAR EQU BIT1 - WORKLOAD ACTIVITY RTNE CURR 04150002 RRPAIPS EQU BIT2 - IPS PROCESSING RTNE CURR 04200002 RRPACTL EQU BIT4 - IRARMCTL WILL PROCESS 2ND FAILURE 04250002 RRPARTI EQU BIT5 - RECOVERY TERMINATION INDICATOR 04260002 RRPARFI EQU BIT6 - RECOVERY FAILURE INDICATOR 04280002 RRPARCI EQU BIT7 - RECURSION INDICATOR 04310002 RRPAKEY DS C - ORIGINAL ENTRY PROTECT KEY 04350002 RRPARTC DS C - RETURN CODE FOR FINAL EXIT 04400002 RRPATOD DS F - TIME OF DAY AT ENTRY 04450002 RRPAINS DS 0F - BRANCH ENTRY SAVE AREA ADDRESS 04500002 RRPARTN DS F - SVC ENTRY RETURN POINT ADDRESS 04520002 RRPAEPA DS A - RMEP ADDRESS OF RTNE IN CONTROL 04550002 RRPAEND DS 0D - END OF RRPA 04600002 RRPALEN EQU RRPAEND-RRPA - LENGTH OF RRPA 04650002 MEND 04700002 * */ 04750002 *%RRPAPLS2: ; 04800002 * %IF RRPA9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 04850002 * %THEN %RRPA9999 = ';'; /* NO, END DECLARE STATEMENT */ 04900002 * %IF RRPALEVL ^= '' /* IS STRUCTURE CONCATENATED */ 04950002 * %THEN %GOTO RRPAPLS3; /* YES, OMIT DECLARE STATEMENT */ 05000002 * DCL 05050002 * 1 RRPA BASED(RRPAPTR) BDY(DWORD), 05100002 * %GOTO RRPAPLS4; /* SKIP USER-GIVEN LEVEL */ 05150002 *%RRPAPLS3: RRPADUM = RRPALEVL||' RRPA'; /* PICK UP GIVEN LEVEL */ 05200002 * RRPADUM BDY(DWORD), 05250002 *%RRPAPLS4: ; 05300002 * 10 RRPAINC CHAR(4) BDY(WORD), /* REGISTER 0 AT ENTRY */ 05350002 * 12 RRPAASD BIT(16) BDY(WORD), /* ASID FOR ORIGINAL ENTRY */ 05400002 * 12 RRPAVPGN PTR(8), /* VERIFY PGN FOR JOB SELECT 05450040 * @Z40BPCH*/ 05460040 * 14 RRPAFLG0 BIT(8), /* FLAG BYTE FOR MEMDEL @ZA29015*/ 05468000 * 16 RRPANSWI BIT(1), /* =1 FOR MEMDEL TYPE=NOSWIN 05476000 * @ZA29015*/ 05484000 * 16 * BIT(7), /* RESERVED @ZA29015*/ 05492000 * 12 RRPACOD PTR(08), /* ORIGINAL ENTRY SYSEVENT CODE */ 05500002 * 10 RRPAINP PTR(31), /* INPUT PARAMETER ADDRS */ 05550002 * 12 RRPAVLU CHAR(4) BDY(WORD), /* INPUT PARAMETER VALUE */ 05600002 * 10 RRPAFLG BIT(16) BDY(WORD), /* ROUTINE STATUS FLAGS */ 05650002 * 12 RRPADSB BIT(1), /* ORIGINAL ENTRY DISABLED BR */ 05700002 * 12 RRPAENB BIT(1), /* ORIGINAL ENTRY ENABLED BR */ 05750002 * 12 RRPASVC BIT(1), /* ORIGINAL ENTRY VIA SVC */ 05800002 * 12 RRPADSP BIT(1), /* DISPATCHING REQUIRED */ 05850002 * 12 RRPAF04 BIT(1), /* RESERVED */ 05870002 * 12 RRPAF05 BIT(1), /* RESERVED @Z40BPCH */ 05890040 * 12 RRPAOPT BIT(1), /* SRM LOCK CURRENTLY HELD */ 05910002 * 12 RRPAF07 BIT(2), /* RESERVED */ 05950002 * 12 RRPAWAR BIT(1), /* WORKLOD ACTIVITY RTNE CURRENT */ 06050002 * 12 RRPAIPS BIT(1), /* IPS PROCESS ROUTINE CURRENT */ 06100002 * 12 RRPAF11 BIT(1), /* RESERVED */ 06150002 * 12 RRPACTL BIT(1), /* INVOKE IRARMCTL FOR 2ND FAIL */ 06200002 * 12 RRPARTI BIT(1), /* RECOVERY TERMINATE INDICATOR */ 06250002 * 12 RRPARFI BIT(1), /* RECOVERY FAILURE INDICATOR */ 06260002 * 12 RRPARCI BIT(1), /* RECURSION INDICATOR */ 06270002 * 10 RRPAKEY CHAR(1), /* ORIGINAL ENTRY PROTECT KEY */ 06300002 * 10 RRPARTC PTR(08), /* RETURN CODE FOR FINAL EXIT */ 06350002 * 10 RRPATOD FIXED(32) UNSIGNED, /* TIME OF DAY AT ENTRY */ 06400002 * 10 RRPAINS PTR(31), /* BRANCH ENTRY SAVE AREA ADDR */ 06430002 * 12 RRPARTN PTR(31), /* SVC ENTRY RETURN POINT ADDR */ 06460002 * 10 RRPAEPA PTR(31), /* RMEP ADDR OF RTNE IN CONTROL */ 06500002 * 10 RRPAEND CHAR(0) BDY(DWORD) /* END OF RRPA */ 06550002 * RRPA9999 06600002 * %RRPALEN = 'LENGTH(RRPA)'; /* SYMBOLIC FOR LENGTH OF RRRPA */ 06650002