* %GOTO EPATPLS1; /* 00050002 MACRO 00060002 IRAEPAT &DSECT=YES 00070002 GBLC &IRAEPPV PREV RMEP BLOCK ADDRESS NAME 00080002 GBLC &IRAEPTM PREV SCHED RMEP ADDRESS NAME 00090002 GBLB &IRAEPCM IRARMEP COMMENTARY PRINT CONTROL 00130002 &IRAEPPV SETC '00000000' INIT TO NO PREVIOUS ASSEMBLED RMEP 00140002 &IRAEPTM SETC 'IRACTMQE' INIT TO SCHED RTNE QUE HEADER ADDR 00160002 &IRAEPCM SETB 1 BYPASS IRARMEP HEADER COMMENTARY 00180002 .* */ 00190002 *%EPATPLS1: ; 00200002 * /* */ 00250002 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00300040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00350040 * /* *************************************************************** */ 00400002 * /* */ 00450002 * /* MACRO NAME - IRAEPAT */ 00500002 * /* */ 00550002 * /* DESCRIPTIVE NAME - SYSTEM RESOURCES MANAGER ALGORITHM */ 00600002 * /* ENTRY POINT DESCRIPTOR TABLE. */ 00650002 * /* */ 00700002 * /* COPYRIGHT - NONE */ 00750002 * /* */ 00800002 * /* STATUS - OS/VS2 RELEASE 4, 09/23/75, LEVEL=1 */ 00850040 * /* */ 00900002 * /* FUNCTION - THE EPAT CONTAINS THE ENTRY POINT DESCRIPTORS OF */ 00950002 * /* ALL INDIVIDUALLY REQUESTED OR INDIVIDUALLY SCHEDULED */ 01000002 * /* SYSTEM RESOURCES MANAGER ALGORITHMS (ROUTINES WHOSE */ 01050002 * /* SCOPE OF APPLICABILITY IS SYSTEM-WIDE). THE IRACTLCL */ 01100002 * /* MACRO KEYS OFF THE EPAT DISPLACEMENTS TO GENERATE THE */ 01150002 * /* CALLING SEQUENCES WHEREBY ALGORITHMS ARE REQUESTED. */ 01200002 * /* */ 01250002 * /* METHOD OF ACCESS - THE EPAT IS ADDRESSED AS BEING AT A KNOWN */ 01300002 * /* DISPLACEMENT FROM THE SYSTEM RESOURCES MANAGER CONTROL */ 01320002 * /* TABLE, I.E., USING THE RMCTPTR REGISTER. THE IRACNSMP */ 01340002 * /* INCLUDE LIST SPECIFIES THE SYMBOLIC DISPLACMENT OF THE */ 01360002 * /* EPAT FROM THE RMCT. THE EPAT TABLE IS SCANNED VIA THE */ 01380002 * /* RMEP CHAIN POINTER IN THE -RMCTEPAT- FIELD. */ 01400002 * /* */ 01450002 * /* *************************************************************** */ 01500002 * %GOTO EPATPLS2; /* 01550002 AGO .EPATAL1 */ 01600002 * /* *************************************************************** */ 01650002 * /* */ 01700002 * /* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 01750002 * /* */ 01800002 * /* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 01850002 * /* */ 01900002 * /* USING ON EPAT GIVES ADDRESSABILITY TO ALL SYMBOLS. */ 01950002 * /* */ 02000002 * /* PLS - %EPATLEVL='USERLEVL' IF THE EPDT MAPPING IS TO BE */ 02050002 * /* CONCATENATED WITH A PREVIOUS DECLARATION, WITH THE */ 02100002 * /* EPAT BEING ASSIGNED THE INDICATED STRUCTURE LEVEL. */ 02150002 * /* - %EPAT9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED. */ 02200002 * /* */ 02250002 * /* TO ACCESS AS A STANDALONE STRUCTURE DCL EPATPTR PTR. */ 02300002 * /* */ 02350002 * /* CHANGE ACTIVITY = @ZM43084 */ 02400040 * /* @ZM43090,@ZA11855 */ 02420000 * /* */ 02450002 * /* A000000-999999 Y02133*/ 02500002 * /* */ 02550002 * /* *************************************************************** */ 02600002 * /* 02650002 .EPATAL1 ANOP 02700002 SPACE 1 02750002 AIF ('&DSECT' EQ 'NO').EPATAL2 02800002 EPAT DSECT 02850002 AGO .EPATAL3 02900002 .EPATAL2 ANOP 02950002 DS 0D 03000002 EPAT EQU * 03050002 .EPATAL3 ANOP 03100002 SPACE 1 03120002 IRARMEP DSECT=NO,EPN=CAP,NXT=000,RCR=YES,SCH=01000 03170040 IRARMEP DSECT=NO,EPN=RM1,NXT=RM2,SCH=01000 03200040 IRARMEP DSECT=NO,EPN=RM2,NXT=CAP,SCH=30000 03210040 IRARMEP DSECT=NO,EPN=SQA,NXT=RM1,RCR=YES 03260040 IRARMEP DSECT=NO,EPN=MS6,NXT=ASM,SCH=08000 03290040 IRARMEP DSECT=NO,EPN=PR5,NXT=MS6 03320040 IRARMEP DSECT=NO,EPN=MS2,NXT=PR5,RCR=YES 03350040 IRARMEP DSECT=NO,EPN=ASM,NXT=SQA,RCR=YES,SCH=10000 03380040 IRARMEP DSECT=NO,EPN=IL1,NXT=MS2,SCH=03000 @ZM43090 03410040 IRARMEP DSECT=NO,EPN=WM2,NXT=IL1,SCH=01000 @ZA11855 03460000 IRARMEP DSECT=NO,EPN=CL1,NXT=WM2,SCH=03000 @ZM43090 03510040 IRARMEP DSECT=NO,EPN=AP1,NXT=EQ1,SCH=02000 03750040 IRARMEP DSECT=NO,EPN=EQ1,NXT=CL1,SCH=05000 03800040 IRARMEP DSECT=NO,EPN=PR1,NXT=AP1,SCH=01000 03850040 &IRAEPPV SETC 'RMEPBPR1' 03900040 EPATEND DS 0D - END OF EPAT TABLE 04050002 EPATLEN EQU EPATEND-EPAT - LENGTH OF EPAT TABLE 04100002 EPATSCN EQU &IRAEPPV - BEGIN EPAT TABLE SCAN 04120002 EPATSCH EQU &IRAEPTM - BEGIN SCHED RTNE QUEUE 04130002 MEND 04150002 * */ 04200002 *%EPATPLS2: ; 04250002 * %EPATEPN = '16' ; /* SIZE OF BASE EPB BLOCK */ 04300002 * %EPATSCH = '32' ; /* SIZE OF SCHD EPB BLOCK */ 04350002 * %IF EPAT9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 04450002 * %THEN %EPAT9999 = ';'; /* NO, END DECLARE STATEMENT */ 04500002 * %IF EPATLEVL ^= '' /* IS STRUCTURE CONCATENATED */ 04550002 * %THEN %GOTO EPATPLS3; /* YES, OMIT DECLARE STATEMENT */ 04600002 * DCL 04650002 * 1 EPAT BASED(EPATPTR) BDY(DWORD), 04700002 * %GOTO EPATPLS4; /* SKIP USER-GIVEN LEVEL */ 04750002 *%EPATPLS3: EPATDUM = EPATLEVL||' EPAT'; /* PICK UP GIVEN LEVEL */ 04800002 * EPATDUM BDY(DWORD), 04850002 *%EPATPLS4: ; 04900002 * 10 RMEPBCAP CHAR(EPATSCH) BDY(DWORD), /* CTL PRT ANLZ RTNE */ 04920040 * 10 RMEPBRM1 CHAR(EPATSCH) BDY(DWORD), /* RES MONITORING RTNE */ 04950040 * 10 RMEPBRM2 CHAR(EPATSCH) BDY(DWORD), /* RM ADJUSTMENT RTNE */ 04970040 * 10 RMEPBSQA CHAR(EPATEPN) BDY(DWORD), /* SQA MSG PRNT RTNE */ 05050002 * 10 RMEPBMS6 CHAR(EPATSCH) BDY(DWORD), /* MSO WAIT CHK RTNE */ 05070002 * 10 RMEPBPR5 CHAR(EPATEPN) BDY(DWORD), /* PRA FORC STL RTNE */ 05100002 * 10 RMEPBMS2 CHAR(EPATEPN) BDY(DWORD), /* MSO ANALYSIS RTNE */ 05150002 * 10 RMEPBASM CHAR(EPATSCH) BDY(DWORD), /* ASM SHRT MON RTNE */ 05200002 * 10 RMEPBIL1 CHAR(EPATSCH) BDY(DWORD), /* IOL UTIL MON RTNE */ 05250002 * 10 RMEPBWM2 CHAR(EPATSCH) BDY(DWORD), /* WLM ANALYSIS RTNE */ 05300040 * 10 RMEPBCL1 CHAR(EPATSCH) BDY(DWORD), /* CPU UTIL MON RTNE */ 05450002 * 10 RMEPBAP1 CHAR(EPATSCH) BDY(DWORD), /* APG ANALYSIS RTNE */ 05500002 * 10 RMEPBEQ1 CHAR(EPATSCH) BDY(DWORD), /* ENQ STAT MON RTNE */ 05650040 * 10 RMEPBPR1 CHAR(EPATSCH) BDY(DWORD), /* PRA ANALYSIS RTNE */ 05700002 * 10 EPATEND CHAR(0) BDY(DWORD) /* END OF EPAT TABLE */ 05800002 * EPAT9999 05850002 * %EPATLEN = 'LENGTH(EPAT)'; /* SYMBOLIC FOR LENGTH OF EPAT */ 05900002