* %GOTO RMEXPLS1; /* 00050002 MACRO 00100002 IRARMEX &DSECT=YES 00110002 GBLC &IRAEPPV PREV RMEP BLOCK ADDRESS NAME 00120002 GBLB &IRAEPCM IRARMEP COMMENTARY PRINT CONTROL 00130002 &IRAEPPV SETC '00000000' INIT TO NO PREVIOUS CHAINED RMEP 00140002 &IRAEPCM SETB 1 BYPASS IRARMEP HEADER COMMENTARY 00150002 .* */ 00160002 *%RMEXPLS1: ; 00200002 * /* */ 00250002 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00300040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00330040 * /* *************************************************************** */ 00400002 * /* */ 00450002 * /* MACRO NAME - IRARMEX */ 00500002 * /* MACSTAT Z-4 75007/Z40BPSS */ 00520040 * /* */ 00550002 * /* DESCRIPTIVE NAME - SYSTEM RESOURCES MANAGER EXTERNAL */ 00600002 * /* ENTRY POINT DESCRIPTOR TABLE. */ 00620002 * /* */ 00650002 * /* COPYRIGHT - NONE */ 00700002 * /* */ 00750002 * /* STATUS - OS/VS2 RELEASE 4, 07/30/75, LEVEL=1 */ 00800040 * /* */ 00850002 * /* FUNCTION - THE RMEX CONTAINS THE ENTRY POINT DESCRIPTORS OF */ 00900002 * /* ALL EXTERNALLY ENTERED BRANCH POINTS (ROUTINES WHICH */ 00950002 * /* DO NOT RETURN CONTROL) WITHIN THE SYSTEM RESOURCES */ 01000002 * /* MANAGER COMPONENT. THE IRACTLCL MACRO KEYS OFF THE */ 01050002 * /* RMEX DISPLACEMENTS TO ROUTE CONTROL TO THE REQUESTED */ 01100002 * /* BRANCH (I.E. EXTERNAL ENTRY) POINT. */ 01150002 * /* */ 01200002 * /* METHOD OF ACCESS - THE ADDRESS OF THE RMEX IS CONTAINED IN */ 01250002 * /* THE -RMCTRMEX- FIELD OF THE SYSTEM RESOURCES MANAGER */ 01300002 * /* CONTROL TABLE. */ 01350002 * /* */ 01400002 * /* *************************************************************** */ 01450002 * %GOTO RMEXPLS2; /* 01500002 AGO .RMEXAL1 */ 01550002 * /* *************************************************************** */ 01600002 * /* */ 01650002 * /* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 01700002 * /* */ 01750002 * /* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 01800002 * /* */ 02100002 * /* USING ON RMEX GIVES ADDRESSABILITY TO ALL SYMBOLS. */ 02150002 * /* */ 02200002 * /* PLS - %RMEXLEVL='USERLEVL' IF THE RMEX MAPPING IS TO BE */ 02250002 * /* CONCATENATED WITH A PREVIOUS DECLARATION, WITH THE */ 02300002 * /* RMEX BEING ASSIGNED THE INDICATED STRUCTURE LEVEL. */ 02350002 * /* - %RMEX9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED. */ 02400002 * /* */ 02450002 * /* TO ACCESS AS A STANDALONE STRUCTURE DCL RMEXPTR PTR. */ 02500002 * /* */ 02550002 * /* CHANGE ACTIVITY = */ 02600002 * /* */ 02650002 * /* A000000-999999 Y02133*/ 02700002 * /* */ 02750002 * /* *************************************************************** */ 02800002 * /* 02850002 .RMEXAL1 ANOP 02900002 SPACE 1 02950002 AIF ('&DSECT' EQ 'NO').RMEXAL2 03000002 RMEX DSECT 03050002 AGO .RMEXAL3 03100002 .RMEXAL2 ANOP 03150002 DS 0D 03200002 RMEX EQU * 03250002 .RMEXAL3 ANOP 03300002 SPACE 1 03350002 RMEXEVT IRARMEP DSECT=NO,EPN=EVT,NXT=EVT,ERR=XVT 03390002 RMEXCTL IRARMEP DSECT=NO,EPN=CTL,NXT=CTL,ERR=XTL 03430002 SPACE 1 03530002 RMEXI01 DC V(IRARMI01) - RTNE TO EXIT FROM SYSTM RSRCS MGR 03540002 RMEXCXX DC A(0) - RESERVED 03550002 RMEXCET DC V(IRARMCET) - SYSTM RSRCS MGR TIMEREXP PROCESS 03560002 RMEXI48 DC V(IRARMI48) - SYSTM RSRCS MGR SYSEVENT PROCESS 03570002 RMEXRR1 DC V(IRARMRR1) - RECOVERY RTNE IF NOT HOLD SRM LOCK 03600002 RMEXRR2 DC V(IRARMRR2) - RECOVERY RTNE IF HAVE GOT SRM LOCK 03640002 RMEXXPE DC V(IRARMXPE) - RECOVERY RTNE IF XMPOST ERROR 03660002 RMEXSRE DC V(IRARMSRE) - RECOVERY RTNE IF SRM SRB IS PURGED 03680002 RMEXEND DS 0D - END OF RMEX TABLE 03700002 RMEXLEN EQU RMEXEND-RMEX - LENGTH OF RMEX TABLE 03750002 MEND 03800002 * */ 03850002 *%RMEXPLS2: ; 03900002 * %IF RMEX9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 03950002 * %THEN %RMEX9999 = ';'; /* NO, END DECLARE STATEMENT */ 04000002 * %IF RMEXLEVL ^= '' /* IS STRUCTURE CONCATENATED */ 04050002 * %THEN %GOTO RMEXPLS3; /* YES, OMIT DECLARE STATEMENT */ 04100002 * DCL 04150002 * 1 RMEX BASED(RMEXPTR) BDY(DWORD), 04200002 * %GOTO RMEXPLS4; /* SKIP USER-GIVEN LEVEL */ 04250002 *%RMEXPLS3: RMEXDUM = RMEXLEVL||' RMEX'; /* PICK UP GIVEN LEVEL */ 04300002 * RMEXDUM BDY(DWORD), 04350002 *%RMEXPLS4: ; 04400002 * 10 RMEPBEVT CHAR(16) BDY(DWORD), /* PERFORM SYSEVENT PROCESS */ 04450002 * 12 RMEXEVT PTR(31), /* EVT RTNE ENTRY POINT ADDRESS */ 04470002 * 10 RMEPBCTL CHAR(16) BDY(DWORD), /* ROUTE CONTROL WITHIN SRM */ 04530002 * 12 RMEXCTL PTR(31), /* CTL RTNE ENTRY POINT ADDRESS */ 04550002 * 10 RMEXI01 PTR(31), /* NORM EXIT FROM SRM PROCESSING */ 04610002 * 10 RMEXCXX PTR(31), /* RESERVED */ 04620002 * 10 RMEXCET PTR(31), /* SRM TIMEREXP PROCESS ENTRY PT */ 04630002 * 10 RMEXI48 PTR(31), /* SRM SYSEVENT PROCESS ENTRY PT */ 04640002 * 10 RMEXRR1 PTR(31), /* RECOVERY RTNE IF W/O SRM LOCK */ 04650002 * 10 RMEXRR2 PTR(31), /* RECOVERY RTNE IF HAV SRM LOCK */ 04700002 * 10 RMEXXPE PTR(31), /* RECOVERY RTNE IF XM-POST FAIL */ 04710002 * 10 RMEXSRE PTR(31), /* RECOVERY RTNE IF SRM SRB PURG */ 04720002 * 10 RMEXEND CHAR(0) BDY(DWORD) /* END OF RMEX TABLE */ 04750002 * RMEX9999 04800002 * %RMEXLEN = 'LENGTH(RMEX)'; /* SYMBOLIC FOR LENGTH OF RMEX */ 04850002