* %GOTO EPSTPLS1; /* 00050002 MACRO 00100002 IRAEPST &DSECT=YES 00150002 GBLC &IRAEPPV PREV RMEP BLOCK ADDRESS NAME 00200002 GBLB &IRAEPCM IRARMEP COMMENTARY PRINT CONTROL 00250002 &IRAEPPV SETC '00000000' INIT TO NO PREVIOUS CHAINED RMEP 00300002 &IRAEPCM SETB 1 BYPASS IRARMEP HEADER COMMENTARY 00350002 .* */ 00400002 *%EPSTPLS1: ; 00450002 * /* */ 00500002 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00550040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00580040 * /* *************************************************************** */ 00650002 * /* */ 00700002 * /* MACRO NAME - IRAEPST */ 00750002 * /* */ 00800002 * /* DESCRIPTIVE NAME - SYSTEM RESOURCES MANAGER SCANNED */ 00850002 * /* ACTION ENTRY POINT DESCRIPTOR TABLE. */ 00900002 * /* */ 00950002 * /* COPYRIGHT - NONE */ 01000002 * /* */ 01050002 * /* STATUS - OS/VS2 RELEASE 4, 07/30/75, LEVEL=1 */ 01100040 * /* */ 01150002 * /* FUNCTION - THE EPST CONTAINS THE ENTRY POINT DESCRIPTORS OF */ 01200002 * /* ALL SYSTEM RESOURCES MANAGER ROUTINES TO WHICH CONTROL */ 01250002 * /* MAY BE ROUTED BY CONTROL ALGORITHM ANALYSIS PROCESSING. */ 01300002 * /* REQUESTS FOR SUCH ROUTINES ARE GENERATED INTERNALLY BY */ 01350002 * /* THE CONTROL ALGORITHM. */ 01400002 * /* */ 01450002 * /* METHOD OF ACCESS - THE EPST IS ADDRESSED AS BEING AT A KNOWN */ 01500002 * /* DISPLACEMENT FROM THE SYSTEM RESOURCES MANAGER CONTROL */ 01520002 * /* TABLE, I.E., USING THE RMCTPTR REGISTER. THE IRACNSMP */ 01540002 * /* INCLUDE LIST SPECIFIES THE SYMBOLIC DISPLACMENT OF THE */ 01560002 * /* EPST FROM THE RMCT. THE EPST TABLE IS SCANNED VIA THE */ 01580002 * /* RMEP CHAIN POINTER IN THE -RMCTEPST- FIELD. */ 01600002 * /* */ 01650002 * /* *************************************************************** */ 01700002 * %GOTO EPSTPLS2; /* 01750002 AGO .EPSTAL1 */ 01800002 * /* *************************************************************** */ 01850002 * /* */ 01900002 * /* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 01950002 * /* */ 02000002 * /* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 02050002 * /* */ 02100002 * /* USING ON EPST GIVES ADDRESSABILITY TO ALL SYMBOLS. */ 02150002 * /* */ 02200002 * /* PLS - %EPSTLEVL='USERLEVL' IF THE EPST MAPPING IS TO BE */ 02250002 * /* CONCATENATED WITH A PREVIOUS DECLARATION, WITH THE */ 02300002 * /* EPST BEING ASSIGNED THE INDICATED STRUCTURE LEVEL. */ 02350002 * /* - %EPST9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED. */ 02400002 * /* */ 02450002 * /* TO ACCESS AS A STANSALONE STRUCTURE DCL EPSTPTR PTR. */ 02500002 * /* */ 02550002 * /* CHANGE ACTIVITY = */ 02600002 * /* */ 02650002 * /* A000000-999999 Y02133*/ 02700002 * /* */ 02750002 * /* *************************************************************** */ 02800002 * /* 02850002 .EPSTAL1 ANOP 02900002 SPACE 1 02950002 AIF ('&DSECT' EQ 'NO').EPSTAL2 03000002 EPST DSECT 03050002 AGO .EPSTAL3 03100002 .EPSTAL2 ANOP 03150002 DS 0D 03200002 EPST EQU * 03250002 .EPSTAL3 ANOP 03300002 SPACE 1 03350002 IRARMEP DSECT=NO,EPN=WM3,NXT=000 03360002 IRARMEP DSECT=NO,EPN=IL3,NXT=000 03450002 IRARMEP DSECT=NO,EPN=CL3 03500002 IRAEPPA EQU &IRAEPPV - BEGIN PART EVAL SCAN 03550002 &IRAEPPV SETC '00000000' RESET CHAIN TO NO PREVIOUS RMEP 03570002 IRARMEP DSECT=NO,EPN=CSO 03600002 IRARMEP DSECT=NO,EPN=CSI 03650002 EPSTEND DS 0D - END OF EPST TABLE 03750002 EPSTLEN EQU EPSTEND-EPST - LENGTH OF EPST TABLE 03800002 EPSTSCN EQU &IRAEPPV - BEGIN EPST TABLE SCAN 03850002 MEND 03900002 * */ 03950002 *%EPSTPLS2: ; 04000002 * %IF EPST9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 04050002 * %THEN %EPST9999 = ';'; /* NO, END DECLARE STATEMENT */ 04100002 * %IF EPSTLEVL ^= '' /* IS STRUCTURE CONCATENATED */ 04150002 * %THEN %GOTO EPSTPLS3; /* YES, OMIT DECLARE STATEMENT */ 04200002 * DCL 04250002 * 1 EPST BASED(EPSTPTR) BDY(DWORD), 04300002 * %GOTO EPSTPLS4; /* SKIP USER-GIVEN LEVEL */ 04350002 *%EPSTPLS3: EPSTDUM = EPSTLEVL||' EPST'; /* PICK UP GIVEN LEVEL */ 04400002 * EPSTDUM BDY(DWORD), 04450002 *%EPSTPLS4: ; 04500002 * 10 RMEPBWM3 CHAR(16) BDY(DWORD), /* USER WORKLOD EVAL RTNE */ 04520002 * 12 EPSTWM3 PTR(31), /* ROUTINE ADDRESS @Z40BPCH*/ 04540040 * 10 RMEPBIL3 CHAR(16) BDY(DWORD), /* USER I/O LOD EVAL RTNE */ 04600002 * 12 EPSTIL3 PTR(31), /* ROUTINE ADDRESS @Z40BPCH*/ 04620040 * 10 RMEPBCL3 CHAR(16) BDY(DWORD), /* USER CPU LOD EVAL RTNE */ 04650002 * 12 EPSTCL3 PTR(31), /* ROUTINE ADDRESS @Z40BPCH*/ 04700040 * 10 RMEPBCSO CHAR(16) BDY(DWORD), /* USER SWAPOUT REQST RTN */ 04750002 * 12 EPSTCSO PTR(31), /* ROUTINE ADDRESS @Z40BPCH*/ 04770040 * 10 RMEPBCSI CHAR(16) BDY(DWORD), /* USER SWAP-IN REQST RTN */ 04800002 * 12 EPSTCSI PTR(31), /* ROUTINE ADDRESS @Z40BPCH*/ 04830040 * 10 EPSTEND CHAR(0) BDY(DWORD) /* END OF EPST TABLE */ 04900002 * EPST9999 04950002 * %EPSTLEN = 'LENGTH(EPST)'; /* SYMBOLIC FOR LENGTH OF EPST */ 05000002