* %GOTO RMSBPLS1; /* 00050002 MACRO 00100002 IRARMSB &DSECT=YES */ 00150002 *%RMSBPLS1: ; 00200002 * /* */ 00250002 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00300040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00330040 * /* *************************************************************** */ 00400002 * /* */ 00450002 * /* MACRO NAME - IRARMSB */ 00500002 * /* */ 00550002 * /* DESCRIPTIVE NAME - RESOURCES MANAGER SUBROUTINE VECTOR TABLE */ 00600002 * /* */ 00650002 * /* COPYRIGHT - NONE */ 00700002 * /* */ 00750002 * /* STATUS - OS/VS2 RELEASE 4, 07/30/75, LEVEL=1 */ 00800040 * /* */ 00850002 * /* FUNCTION - THE RMSB CONTAINS THE ENTRY POINT ADDRESSES OF */ 00900002 * /* ALL EXTERNALLY ENTERED SUBROUTINES (ROUTINES WHICH */ 00950002 * /* RETURN CONTROL TO THE INVOKER) WITHIN THE SYSTEM */ 01000002 * /* RESOURCES MANAGER COMPONENT. THE IRACTLCL MACRO */ 01050002 * /* KEYS OFF THE RMSB DISPLACEMENTS TO ROUTE CONTROL */ 01100002 * /* TO THE REQUESTED SUBROUTINE. */ 01150002 * /* */ 01200002 * /* METHOD OF ACCESS - THE ADDRESS OF THE RMSB IS CONTAINED IN */ 01250002 * /* THE -RMCTRMSB- FIELD OF THE SYSTEM RESOURCES MANAGER */ 01300002 * /* CONTROL TABLE. */ 01350002 * /* */ 01400002 * /* *************************************************************** */ 01450002 * %GOTO RMSBPLS2; /* 01500002 AGO .RMSBAL1 */ 01550002 * /* *************************************************************** */ 01600002 * /* */ 01650002 * /* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 01700002 * /* */ 01750002 * /* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 01800002 * /* */ 01850002 * /* NOTE - THE BAL FORM OF THE MACRO IS CODED WITH */ 01900002 * /* 'DC' INSTRUCTIONS, SO THAT THE MACRO MAY BE USED */ 01950002 * /* TO ASSEMBLE THE INITIAL FIELD VALUES INTO THE */ 02000002 * /* IRARMCNS MODULE, WHICH CONTAINS THE RMSB TABLE. */ 02050002 * /* */ 02100002 * /* USING ON RMSB GIVES ADDRESSABILITY TO ALL SYMBOLS. */ 02150002 * /* */ 02200002 * /* PLS - %RMSBLEVL='USERLEVL' IF THE RMSB MAPPING IS TO BE */ 02250002 * /* CONCATENATED WITH A PREVIOUS DECLARATION, WITH THE */ 02300002 * /* RMSB BEING ASSIGNED THE INDICATED STRUCTURE LEVEL. */ 02350002 * /* - %RMSB9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED. */ 02400002 * /* */ 02450002 * /* TO ACCESS AS A STANDALONE STRUCTURE DCL RMSBPTR PTR. */ 02500002 * /* */ 02550002 * /* CHANGE ACTIVITY = @ZA15018 */ 02600000 * /* */ 02650002 * /* A000000-999999 Y02133*/ 02700002 * /* */ 02750002 * /* *************************************************************** */ 02800002 * /* 02850002 .RMSBAL1 ANOP 02900002 SPACE 1 02950002 AIF ('&DSECT' EQ 'NO').RMSBAL2 03000002 RMSB DSECT 03050002 AGO .RMSBAL3 03100002 .RMSBAL2 ANOP 03150002 DS 0D 03200002 RMSB EQU * 03250002 .RMSBAL3 ANOP 03300002 SPACE 1 03350002 RMSBI02 DC V(IRARMI02) - RTNE TO INVOKE ASCBCHAP SERVICE 03400002 RMSBI03 DC V(IRARMI03) - RTNE TO INVOKE REAL FRAME STEAL 03450002 RMSBI04 DC V(IRARMI04) - RTNE TO INVOKE STORAGE GET/FREE 03500002 RMSBI05 DC V(IRARMI05) - RTNE TO INVOKE TIME INTERVL SET 03550002 RMSBI06 DC V(IRARMI06) - RTNE TO INVOKE QUIESCE FOR SWAPOUT 03600002 RMSBI07 DC V(IRARMI07) - RTNE TO INVOKE SCHEDULE OF SWAP-IN 03650002 RMSBR24 DC A(0) - RESERVED 03700002 RMSBI09 DC V(IRARMI09) - RTNE TO INVOKE RECORD TO OPERATOR 03750002 RMSBI10 DC V(IRARMI10) - RTNE TO INVOKE ABNORML TERMINATION 03760002 RMSBCRL DC V(IRARMCRL) - RTNE TO RECEIVE SYS ALGRTHM REQ 03770002 RMSBCRN DC V(IRARMCRN) - RTNE TO RECEIVE USER ACTION REQ 03800002 RMSBCRY DC V(IRARMCRY) - RTNE TO RECEIVE USER ANLYZE REQ 03850002 RMSBWM5 DC V(IRARMWM5) - RTNE TO CHCK USER PERIOD CHANGES 03950002 RMSBWM1 DC V(IRARMWM1) - RTNE TO CALC USER SERVICE AMOUNT 04100002 RMSBWM4 DC V(IRARMWM4) - RTNE TO CALC USER NORMALIZD LEVL 04120002 RMSBWMK DC V(IRARMWMK) - RTNE TO DETERMINE ANALYZ APPLICABL 04130002 RMSBWMN DC V(IRARMWMN) - RTNE TO START A NEW USER TRANSACTN 04150002 RMSBWMO DC V(IRARMWMO) - RTNE TO STOP CURRNT USER TRANSACTN 04250002 RMSBWMQ DC V(IRARMWMQ) - RTNE TO PROCESS QUIESCE CMPLT EVT 04270002 RMSBWMR DC V(IRARMWMR) - RTNE TO PROCESS RESTORE CMPLT EVT 04300002 RMSBWMY DC V(IRARMWMY) - RTNE TO PROCESS SYSTM TIME ADJUST 04450002 RMSBTRC DC V(IRARMTRC) - ADDR OF ADDR TO TRACE 04470000 * SRM INVOKES @ZA15018 04480000 RMSBWR4 DC V(IRARMNOP) - ADDR OF RTNE TO CALC ACTIVTY MEASR 04500002 RMSBWR6 DC V(IRARMNOP) - ADDR OF RTNE TO RECALC ACTIV RATE 04570002 RMSBSET DC V(IRARMNOP) - ADDR OF RTNE TO PROCESS NEWIPS EVT 04650002 RMSBNOP DC V(IRARMNOP) - RTNE TO RETURN TO INVOKER 04670002 RMSBRA6 DC A(0) - RESERVED 04750002 RMSBCL0 DC V(IRARMCL0) - RTNE TO ADJ CPU UTIL WHEN SWAP USR 04800002 RMSBIL0 DC V(IRARMIL0) - RTNE TO COMPUTE USER I/O PROFILE 04850002 RMSBRA9 DC F'0' - RESERVED @Z40BPCH 04870040 RMSBEND DS 0D - END OF RMSB TABLE 04900002 RMSBLEN EQU RMSBEND-RMSB - LENGTH OF RMSB TABLE 04950002 MEND 05000002 * */ 05050002 *%RMSBPLS2: ; 05100002 * %IF RMSB9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 05150002 * %THEN %RMSB9999 = ';'; /* NO, END DECLARE STATEMENT */ 05200002 * %IF RMSBLEVL ^= '' /* IS STRUCTURE CONCATENATED */ 05250002 * %THEN %GOTO RMSBPLS3; /* YES, OMIT DECLARE STATEMENT */ 05300002 * DCL 05350002 * 1 RMSB BASED(RMSBPTR) BDY(DWORD), 05400002 * %GOTO RMSBPLS4; /* SKIP USER-GIVEN LEVEL */ 05450002 *%RMSBPLS3: RMSBDUM = RMSBLEVL||' RMSB'; /* PICK UP GIVEN LEVEL */ 05500002 * RMSBDUM BDY(DWORD), 05550002 *%RMSBPLS4: ; 05600002 * 10 RMSBI02 PTR(31), /* INVOKE ASCBCHAP SERVICE RTNE */ 05650002 * 10 RMSBI03 PTR(31), /* INVOKE REAL FRAME STEAL RTNE */ 05700002 * 10 RMSBI04 PTR(31), /* INVOKE STORAGE GET/FREE RTNE */ 05750002 * 10 RMSBI05 PTR(31), /* INVOKE TIME INTERVL SET RTNE */ 05800002 * 10 RMSBI06 PTR(31), /* INVOKE QUIESCE FOR SWAPOUT */ 05850002 * 10 RMSBI07 PTR(31), /* INVOKE SCHEDULE OF SWAP-IN */ 05900002 * 10 RMSBR24 PTR(31), /* RESERVED */ 05950002 * 10 RMSBI09 PTR(31), /* INVOKE RECORD TO OPERATOR */ 06000002 * 10 RMSBI10 PTR(31), /* INVOKE ABNORMAL TERMINATION */ 06010002 * 10 RMSBCRL PTR(31), /* RECEIVE SYS ALGRTHM REQUEST */ 06020002 * 10 RMSBCRN PTR(31), /* RECEIVE USER ACTION REQUEST */ 06050002 * 10 RMSBCRY PTR(31), /* RECEIVE USER ANLYZE REQUEST */ 06100002 * 10 RMSBWM5 PTR(31), /* CHECK USER FOR PERIOD CHANGE */ 06200002 * 10 RMSBWM1 PTR(31), /* CALCULAT USER SERVICE AMOUNT */ 06350002 * 10 RMSBWM4 PTR(31), /* CALCULAT USER NORMALIZD LEVL */ 06370002 * 10 RMSBWMK PTR(31), /* DETERMINE ANLZ APPLICABILITY */ 06380002 * 10 RMSBWMN PTR(31), /* START A NEW USER TRANSACTION */ 06400002 * 10 RMSBWMO PTR(31), /* STOP CURRNT USER TRANSACTION */ 06500002 * 10 RMSBWMQ PTR(31), /* PROCESS QUIESCE CMPLT EVENT */ 06520002 * 10 RMSBWMR PTR(31), /* PROCESS RESTORE CMPLT EVENT */ 06550002 * 10 RMSBWMY PTR(31), /* PROCESS SYSTEM TIME ADJUST */ 06700002 * 10 RMSBTRC PTR(31), /* ADDR OF ADDR TO TRACE SRM INVOKES 06720000 * @ZA15018*/ 06730000 * 10 RMSBWR4 PTR(31), /* CALCULATE ACTIVITY MEASRMNT */ 06750002 * 10 RMSBWR6 PTR(31), /* RECALCULATE ACTIVITY RATE */ 06820002 * 10 RMSBSET PTR(31), /* PROCESS NEWIPS SYSEVENT RTN */ 06900002 * 10 RMSBNOP PTR(31), /* RETURN TO INVOKING ROUTINE */ 06920002 * 10 RMSBRA6 PTR(31), /* RESERVED */ 07000002 * 10 RMSBCL0 PTR(31), /* ADJ CPU UTIL WHEN SWAP USER */ 07050002 * 10 RMSBIL0 PTR(31), /* COMPUTE USER I/O PROFILE */ 07100002 * 10 RMSBRA9 PTR(31), /* RESERVED @Z40BPCH*/ 07120040 * 10 RMSBEND CHAR(0) BDY(DWORD) /* END OF RMSB TABLE */ 07150002 * RMSB9999 07200002 * %RMSBLEN = 'LENGTH(RMSB)'; /* SYMBOLIC FOR LENGTH OF RMSB */ 07250002