*%/* */ 00050002 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00100040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00130040 * /* *************************************************************** */ 00200002 * /* */ 00250002 * /* MACRO NAME - IRAEPNMP */ 00300002 * /* */ 00350002 * /* DESCRIPTIVE NAME - SYSTEM RESOURCES MANAGER ENTRY POINT */ 00400002 * /* NAME MAPPING MACRO */ 00450002 * /* */ 00500002 * /* STATUS - OS/VS2 RELEASE 4, 07/30/75, LEVEL=1 */ 00550040 * /* */ 00600002 * /* FUNCTION - THE IRAEPNMP MACRO DEFINES, IN MACHINE-READABLE */ 00650002 * /* FORM, THE CHARACTERISTICS OF EACH INVOCABLE ROUTINE */ 00700002 * /* WITHIN THE SYSTEM RESOURCES MANAGER COMPONENT. */ 00750002 * /* */ 00800002 * /* NOTES - THE IRAEPNMP MACRO PROVIDES THE INFORMATION NEEDED */ 00850002 * /* TO CONSTRUCT CALLING SEQUENCES, ENTRY CODE, AND EXIT */ 00900002 * /* CODE FOR EACH INDIVIDUAL SYSTEM RESOURCES MANAGER */ 00950002 * /* ROUTINE. THUS, ANY ROUTINES ADDED TO THE SYSTEM */ 01000002 * /* RESOURCES MANAGER COMPONENT SHOULD HAVE THEIR */ 01050002 * /* CHARACTERISTICS ENTERED INTO THE IRAEPNMP MACRO. */ 01100002 * /* */ 01150002 * /* INVOCATION PARAMETERS AND/OR KEYWORDS - SEE ASSEM/PLS MACRO */ 01200002 * /* HEADER STATEMENTS AND ADJACENT GLOBAL DECLARATIONS. */ 01250002 * /* */ 01300002 * /* CHANGE ACTIVITY = */ 01350002 * /* */ 01400002 * /* A000000-999999 Y02133*/ 01450002 * /* */ 01500002 * /* *************************************************************** */ 01550002 * /* 01600002 MACRO 01650002 IRAEPNMP &EPN=, ROUTINE (ENTRY POINT) IDENTIFIER *01700002 &ERR= ROUTINE RECOVRY POINT IDENTIFIER 01720002 GBLC &IRAEPAD ROUTINE ENTRY POINT ADDRESS NAME 01750002 GBLC &IRAEPER ROUTINE RECOVERY POINT ADDR NAME 01800002 GBLC &IRAEPFL ROUTINE INVOCATION FLAG MASK 01850002 AGO .EPNMP02 @Z40BPCH 01900040 * */ 01950002 * /* *************************************************************** */ 02000002 * /* */ 02050002 * /* ROUTINES WHICH PERFORM ALGORITHMIC PROCESSING FOR THE SYSTEM */ 02100002 * /* RESOURCES MANAGER. THEY ARE INVOKED BY THE CNTRL ALGORITHM */ 02150002 * /* ON THE BASIS OF REQUEST BITS IN THE RMCTALA-RMCTALR FLDS OF */ 02200002 * /* THE SYSTEM RESOURCES MANAGER CONTROL TABLE. THE IRAEPNMP */ 02250002 * /* MACRO DEFINES THE BIT FLAG ASSOCIATED WITH EACH ROUTINE. */ 02300002 * /* */ 02350002 * /* *************************************************************** */ 02400002 * /* 02450002 .EPNMP02 AIF ('&EPN' NE 'IL1').EPNMP04 02650002 &IRAEPFL SETC '40000000' ROUTINE INVOCATION FLAG MASK 02700002 AGO .EPNMPOK 02750002 .EPNMP04 AIF ('&EPN' NE 'CL1').EPNMP06 02800002 &IRAEPFL SETC '20000000' ROUTINE INVOCATION FLAG MASK 02850002 AGO .EPNMPOK 02900002 .EPNMP06 AIF ('&EPN' NE 'SQA').EPNMP08 02950002 &IRAEPFL SETC '10000000' ROUTINE INVOCATION FLAG MASK 03000002 AGO .EPNMPOK 03050002 .EPNMP08 AIF ('&EPN' NE 'CAN').EPNMP10 03100002 &IRAEPFL SETC '08000000' ROUTINE INVOCATION FLAG MASK 03150002 AGO .EPNMPOK 03200002 .EPNMP10 AIF ('&EPN' NE 'A05').EPNMP12 03250002 &IRAEPFL SETC '04000000' ROUTINE INVOCATION FLAG MASK 03300002 AGO .EPNMP96 03350002 .EPNMP12 AIF ('&EPN' NE 'AP1').EPNMP14 03400002 &IRAEPFL SETC '02000000' ROUTINE INVOCATION FLAG MASK 03450002 AGO .EPNMPOK 03500002 .EPNMP14 AIF ('&EPN' NE 'PR1').EPNMP16 03550002 &IRAEPFL SETC '01000000' ROUTINE INVOCATION FLAG MASK 03600002 AGO .EPNMPOK 03650002 .EPNMP16 AIF ('&EPN' NE 'EQ1').EPNMP18 03700002 &IRAEPFL SETC '00800000' ROUTINE INVOCATION FLAG MASK 03750002 AGO .EPNMPOK 03800002 .EPNMP18 AIF ('&EPN' NE 'A09').EPNMP20 03850002 &IRAEPFL SETC '00400000' ROUTINE INVOCATION FLAG MASK 03900002 AGO .EPNMP96 03950002 .EPNMP20 AIF ('&EPN' NE 'A10').EPNMP22 04000002 &IRAEPFL SETC '00200000' ROUTINE INVOCATION FLAG MASK 04050002 AGO .EPNMP96 04100002 .EPNMP22 AIF ('&EPN' NE 'ASM').EPNMP24 04150002 &IRAEPFL SETC '00100000' ROUTINE INVOCATION FLAG MASK 04200002 AGO .EPNMPOK 04250002 .EPNMP24 AIF ('&EPN' NE 'MS6').EPNMP26 04300002 &IRAEPFL SETC '00080000' ROUTINE INVOCATION FLAG MASK 04350002 AGO .EPNMPOK 04400002 .EPNMP26 AIF ('&EPN' NE 'PR5').EPNMP28 04450002 &IRAEPFL SETC '00040000' ROUTINE INVOCATION FLAG MASK 04500002 AGO .EPNMPOK 04550002 .EPNMP28 AIF ('&EPN' NE 'A14').EPNMP32 @Z40BPCH 04600040 &IRAEPFL SETC '00020000' ROUTINE INVOCATION FLAG MASK 04650002 AGO .EPNMP96 04700002 .EPNMP32 AIF ('&EPN' NE 'MS2').EPNMP34 04900002 &IRAEPFL SETC '00008000' ROUTINE INVOCATION FLAG MASK 04950002 AGO .EPNMPOK 05000002 .EPNMP34 AIF ('&EPN' NE 'RM1').EPNMP36 @Z40BPCH 05050040 &IRAEPFL SETC '00004000' ROUTINE INVOCATION FLAG MASK 05100002 AGO .EPNMPOK 05150002 .EPNMP36 AIF ('&EPN' NE 'RM2').EPNMP38 @Z40BPCH 05200040 &IRAEPFL SETC '00002000' ROUTINE INVOCATION FLAG MASK 05250002 AGO .EPNMPOK 05300002 .EPNMP38 AIF ('&EPN' NE 'WM2').EPNMP40 05350002 &IRAEPFL SETC '00001000' ROUTINE INVOCATION FLAG MASK 05400002 AGO .EPNMPOK 05450002 .EPNMP40 AIF ('&EPN' NE 'CAP').EPNMP42 05500002 &IRAEPFL SETC '00000800' ROUTINE INVOCATION FLAG MASK 05550002 AGO .EPNMPOK 05600002 .EPNMP42 AIF ('&EPN' NE 'A21').EPNMP44 05650002 &IRAEPFL SETC '00000400' ROUTINE INVOCATION FLAG MASK 05700002 AGO .EPNMP96 05750002 .EPNMP44 AIF ('&EPN' NE 'A22').EPNMP50 @Z40BPCH 05800040 &IRAEPFL SETC '00000200' ROUTINE INVOCATION FLAG MASK 05850002 AGO .EPNMP96 05900002 * */ 06100002 * /* *************************************************************** */ 06150002 * /* */ 06200002 * /* ROUTINES WHICH PERFORM ANALYSIS PROCESSING FOR THE SYSTEM */ 06250002 * /* RESOURCES MANAGER. THEY ARE INVOKED BY THE CTRL ALGORITHM */ 06300002 * /* ON THE BASIS OF STATUS BITS IN THE RMCTALU FIELD OF THE */ 06350002 * /* SYSTEM RESOURCES MANAGER CONTROL TABLE. THE IRAEPNMP MACRO */ 06400002 * /* DEFINES THE BIT FLAG ASSOCIATED WITH EACH ROUTINE. */ 06450002 * /* */ 06500002 * /* *************************************************************** */ 06550002 * /* 06600002 .EPNMP50 AIF ('&EPN' NE 'IL3').EPNMP52 06800002 &IRAEPFL SETC '00004000' ROUTINE INVOCATION FLAG MASK 06850002 AGO .EPNMPOK 06900002 .EPNMP52 AIF ('&EPN' NE 'CL3').EPNMP54 06950002 &IRAEPFL SETC '00002000' ROUTINE INVOCATION FLAG MASK 07000002 AGO .EPNMPOK 07050002 .EPNMP54 AIF ('&EPN' NE 'WM3').EPNMP64 07100002 &IRAEPFL SETC '00001000' ROUTINE INVOCATION FLAG MASK 07150002 AGO .EPNMPOK 07200002 * */ 07850002 * /* *************************************************************** */ 07900002 * /* */ 07950002 * /* ROUTINES WHICH PERFORM USER-LEVEL DEFERRED ACTION PROCESSING */ 08000002 * /* FOR THE SYSTEM RESOURCES MANAGER. THEY ARE INVOKED BY THE */ 08050002 * /* CNTRL ALGORITHM ON THE BASIS OF REQUEST BITS IN THE OUCBACN */ 08100002 * /* FIELD OF THE SYSTEM RESOURCES MANAGER USER CONTROL BLOCK. */ 08150002 * /* THE IRAEPNMP MACRO DEFINES THE BIT FLAG ASSOCIATED WITH */ 08200002 * /* EACH ROUTINE. */ 08250002 * /* */ 08300002 * /* *************************************************************** */ 08350002 * /* 08400002 .EPNMP64 AIF ('&EPN' NE 'DEL').EPNMP66 08450002 &IRAEPFL SETC '80000001' ROUTINE INVOCATION FLAG MASK 08500002 AGO .EPNMPOK 08550002 .EPNMP66 AIF ('&EPN' NE 'UXB').EPNMP68 08600002 &IRAEPFL SETC '40000001' ROUTINE INVOCATION FLAG MASK 08650002 AGO .EPNMPOK 08700002 .EPNMP68 AIF ('&EPN' NE 'IL4').EPNMP70 08750002 &IRAEPFL SETC '20000001' ROUTINE INVOCATION FLAG MASK 08800002 AGO .EPNMPOK 08850002 .EPNMP70 AIF ('&EPN' NE 'IPS').EPNMP72 08900002 &IRAEPFL SETC '10000001' ROUTINE INVOCATION FLAG MASK 08950002 AGO .EPNMPOK 09000002 .EPNMP72 AIF ('&EPN' NE 'D04').EPNMP74 09050002 &IRAEPFL SETC '08000001' ROUTINE INVOCATION FLAG MASK 09100002 AGO .EPNMP96 09150002 .EPNMP74 AIF ('&EPN' NE 'D05').EPNMP76 09200002 &IRAEPFL SETC '04000001' ROUTINE INVOCATION FLAG MASK 09250002 AGO .EPNMP96 09300002 .EPNMP76 AIF ('&EPN' NE 'D06').EPNMP78 09350002 &IRAEPFL SETC '02000001' ROUTINE INVOCATION FLAG MASK 09400002 AGO .EPNMP96 09450002 .EPNMP78 AIF ('&EPN' NE 'HIT').EPNMP80 09500002 &IRAEPFL SETC '01000001' ROUTINE INVOCATION FLAG MASK 09550002 AGO .EPNMPOK 09600002 .EPNMP80 AIF ('&EPN' NE 'RPS').EPNMP82 09650002 &IRAEPFL SETC '00800001' ROUTINE INVOCATION FLAG MASK 09700002 AGO .EPNMPOK 09750002 .EPNMP82 AIF ('&EPN' NE 'WM5').EPNMP84 09800040 &IRAEPFL SETC '00400001' ROUTINE INVOCATION FLAG MASK 09850002 AGO .EPNMPOK 09900002 .EPNMP84 AIF ('&EPN' NE 'D10').EPNMP88 @Z40BPCH 09950040 &IRAEPFL SETC '00200001' ROUTINE INVOCATION FLAG MASK 10000002 AGO .EPNMP96 10050002 * */ 10130002 * /* *************************************************************** */ 10140002 * /* */ 10150002 * /* ROUTINES WHICH PERFORM USER-LEVEL TIME-DEPENDENT ACTION */ 10160002 * /* PROCESSING FOR THE SYSTEM RESOURCES MANAGER. THEY ARE */ 10170002 * /* INVOKED BY THE CTRL ALGORITHM ON THE BASIS OF REQUEST */ 10180002 * /* BITS IN THE OUCBACN FIELD OF THE SYSTEM RESOURCES MNGR */ 10190002 * /* USER CONTROL BLOCK. THE IRAEPNMP MACRO DEFINES THE BIT */ 10200002 * /* FLAG ASSOCIATED WITH EACH ROUTINE. */ 10210002 * /* */ 10220002 * /* *************************************************************** */ 10230002 * /* 10240002 .EPNMP88 AIF ('&EPN' NE 'CSO').EPNMP90 10250002 &IRAEPFL SETC '00080001' ROUTINE INVOCATION FLAG MASK 10300002 AGO .EPNMPOK 10350002 .EPNMP90 AIF ('&EPN' NE 'CSI').EPNMP92 10400002 &IRAEPFL SETC '00040001' ROUTINE INVOCATION FLAG MASK 10450002 AGO .EPNMPOK 10500002 .EPNMP92 AIF ('&EPN' NE 'CSR').EPNMP94 10550002 &IRAEPFL SETC '00020001' ROUTINE INVOCATION FLAG MASK 10600002 AGO .EPNMPOK 10650002 .EPNMP94 AIF ('&EPN' NE 'D15').EPNMR02 10700002 &IRAEPFL SETC '00010001' ROUTINE INVOCATION FLAG MASK 10750002 AGO .EPNMP96 10800002 * */ 10850002 * /* *************************************************************** */ 10900002 * /* */ 10950002 * /* ROUTINES WHICH PERFORM THE ROUTING OF CONTROL WITHIN THE */ 11000002 * /* SYSTEM RESOURCES MANAGER. THEY ARE ENTERED BY A DIRECT */ 11050002 * /* BRANCH, AND PERFORM THEIR OWN REGISTER SETUP FUNCTIONS. */ 11100002 * /* THE IRARMEP MACRO DEFINES THE NAME OF THE RETRY POINT TO */ 11150002 * /* BE GIVEN CONTROL IF THAT ROUTINE EXPERIENCES AN ERROR. */ 11200002 * /* */ 11250002 * /* *************************************************************** */ 11300002 * /* 11350002 .EPNMR02 ANOP 11400002 &IRAEPFL SETC '00000000' INVOCATION FLAG NOT USED 11410002 AIF ('&EPN' EQ 'EVT').EPNMPOK 11420002 AIF ('&EPN' EQ 'CTL').EPNMPOK 11460002 AIF ('&EPN' EQ 'CAS').EPNMPOK 11500002 AGO .EPNMR04 11540002 .* INVALID REQUEST DEFAULT NAMING CONVENTIONS 11580002 .EPNMR04 ANOP 11610002 &IRAEPAD SETC 'IRARMNOP' DUMMY INDICATES EPN NOT FOUND 11640002 &IRAEPER SETC 'IRARMNOP' DUMMY INDICATES EPN NOT FOUND 11670002 AGO .EPNMP96 11700002 .* SUBROUTINE ENTRY POINT NAMING CONVENTIONS 12050002 .EPNMPOK ANOP 12100002 &IRAEPAD SETC 'IRARM&EPN' ROUTINE ENTRY POINT ADDRESS NAME 12150002 &IRAEPER SETC '&IRAEPAD' ROUTINE RECOVERY POINT ADDR NAME 12200002 AIF ('&ERR' EQ '').EPNMP96 12210002 &IRAEPER SETC 'IRARM&ERR' ROUTINE RECOVERY POINT ADDR NAME 12220002 .EPNMP96 ANOP 12250002 MEND 12300002 * */ 12350002 *IRAEPNMP: MACRO KEYS(EPN); /* GIVEN ENTRY POINT NAME IDENT */ 12400002 * DCL IRAEPNML CHAR EXT; /* ROUTINE ENTRY POINT LOCATOR */ 12450002 * DCL IRAEPNMS CHAR EXT; /* ROUTINE SAVE AREA IDENTIFIER */ 12500002 * /* *************************************************************** */ 12550002 * /* */ 12600002 * /* SUBROUTINES TO WHICH A REQUEST FOR SYSTEM RESOURCES MANAGER */ 12650002 * /* ALGORITHMIC PROCESSING IS DIRECTED. THEY ARE LINKED-TO */ 12700002 * /* DIRECTLY BY THE INVOKING ROUTINE. THE INVOCATION OF THE */ 12750002 * /* REQUESTED ALGORITHM IS DEFERRED, TO BE SUBSEQUENTLY ACTED */ 12800002 * /* UPON BY THE SYSTEM RESOURCES MANAGER CONTROL ALGORITHM. */ 12850002 * /* */ 12900002 * /* - ENTRY POINT ADDRESSES ARE IN THE RMSB TABLE. */ 12950002 * /* - ROUTINES USE THE 1ST LEVEL CPU SAVE AREA TO STORE */ 13000002 * /* THE REQUESTOR'S REGISTERS. */ 13050002 * /* - SAVE AREA USAGE IS SERIALIZED BY DISABLEMENT, OR */ 13100002 * /* BY THE NON-PREEMPTABILITY OF AN SRB. */ 13150002 * /* */ 13200002 * /* *************************************************************** */ 13250002 * IRAEPNML = 'IRARMCPU' ; /* FLAG CPU-LEVEL REQUEST RUTNE */ 13300002 * IRAEPNMS = 'IRAEPL01' ; /* RTNE USES LEVEL 1 REG SAVEAR */ 13350002 * IF EPN(1) = 'CRL' THEN /* RECEIVE SYS ALGRTHM REQUEST */ 13400002 * GOTO EPNMPOK; 13450002 * /* *************************************************************** */ 13500002 * /* */ 13550002 * /* SUBROUTINES TO WHICH A REQUEST FOR SERIALIZED USER-LEVEL */ 13600002 * /* SYSTEM RESOURCES MANAGER PROCESSING IS DIRECTED. THEY ARE */ 13650002 * /* LINKED-TO DIRECTLY BY THE INVOKING ROUTINE. DEPENDING ON */ 13700002 * /* SYSTEM RESOURCES MANAGER STATUS, THE REQUESTED PROCESSING */ 13750002 * /* ACTION MAY BE INVOKED IMMEDIATELY, OR THE REQUEST FOR SUCH */ 13800002 * /* PROCESSING ACTION MAY BE DEFERRED UNTIL ANY CONCURRENT */ 13850002 * /* PROCESSING HAS BEEN COMPLETED. */ 13900002 * /* */ 13950002 * /* - ENTRY POINT ADDRESSES ARE IN THE RMSB TABLE. */ 14000002 * /* - ROUTINES USE THE 2ND LEVEL CPU SAVE AREA TO STORE */ 14050002 * /* THE REQUESTOR'S REGISTERS. */ 14100002 * /* - SAVE AREA USAGE IS SERIALIZED BY DISABLEMENT, OR */ 14150002 * /* BY THE NON-PREEMPTABILITY OF AN SRB. */ 14200002 * /* */ 14250002 * /* *************************************************************** */ 14300002 * IRAEPNMS = 'IRAEPL02' ; /* RTNE USES LEVEL 2 REG SAVEAR */ 14350002 * IF EPN(1) = 'CRN' THEN /* RECEIVE USER ACTION REQUEST */ 14400002 * GOTO EPNMPOK; 14450002 * /* *************************************************************** */ 14500002 * /* */ 14550002 * /* SUBROUTINES WHICH PERFORM INTERNAL SERVICES FOR OTHER SYSTEM */ 14600002 * /* RESOURCES MANAGER ROUTINES WHICH DO NOT HOLD THE SRM LOCK. */ 14650040 * /* THEY ARE LINKED-TO DIRECTLY BY THE INVOKING ROUTINE. */ 14700002 * /* */ 14750002 * /* - ENTRY POINT ADDRESSES ARE IN THE RMSB TABLE. */ 14800002 * /* - ROUTINES USE THE 3RD LEVEL CPU SAVE AREA TO STORE */ 14850002 * /* THE INVOKER'S REGISTERS. */ 14900002 * /* - SAVE AREA USAGE IS SERIALIZED BY DISABLEMENT, OR */ 14950002 * /* BY THE NON-PREEMPTABILITY OF AN SRB. */ 15000002 * /* */ 15050002 * /* *************************************************************** */ 15100002 * IRAEPNMS = 'IRAEPL03' ; /* RTNE USES LEVEL 3 REG SAVEAR */ 15110002 * IF EPN(1) = 'I10' THEN /* ABEND THE SRM INVOCATION */ 15120002 * GOTO EPNMPOK; 15130002 * IF EPN(1) = 'CRY' THEN /* RECEIVE USER ANALYZ REQUEST */ 15160002 * GOTO EPNMPOK; 15170002 * IF EPN(1) = 'WM1' THEN /* CALCULAT USER SERVICE AMT */ 15200002 * GOTO EPNMPOK; 15210002 * IF EPN(1) = 'WM4' THEN /* CALCULAT USER NORMALIZD LVL */ 15220002 * GOTO EPNMPOK; 15230002 * IF EPN(1) = 'WM5' THEN /* UPDATE PERF GROUP PERIOD */ 15236002 * GOTO EPNMPOK; 15242002 * /* *************************************************************** */ 15254002 * /* */ 15256002 * /* SUBROUTINES WHICH PERFORM EXTERNAL SERVICES FOR THE SYSTEM */ 15258002 * /* RESOURCES MANAGER. THEY ARE LINKED-TO DIRECTLY AS PART OF */ 15260002 * /* THE INVOCATION SEQUENCE FOR NON-RESIDENT SYSTEM RESOURCES */ 15262002 * /* MANAGER SERVICE ROUTINES. */ 15264002 * /* */ 15266002 * /* - ENTRY POINT ADDRESSES ARE DYNAMICALLY INSERTED INTO */ 15268002 * /* THE RMSB TABLE. */ 15270002 * /* - ROUTINES USE THE 5TH LEVEL SRM SAVE AREA TO STORE */ 15272040 * /* THE LINKING ROUTINE REGISTERS. */ 15274002 * /* - SAVE AREA USAGE IS SERIALIZED BY THE SRM LOCK. */ 15276040 * /* */ 15278002 * /* *************************************************************** */ 15280002 * IRAEPNML = 'RMSB'||EPN(1) ; /* REQUESTED SUBROUTINE POINTER */ 15282002 * IRAEPNMS = 'IRAEPL05' ; /* RTNE USES LEVEL 5 REG SAVEAR */ 15284002 * IF EPN(1) = 'SET' THEN /* PROCESS NEWIPS SYSEVENT RTN */ 15332002 * GOTO EPNMPOK; 15340002 * IF EPN(1) = 'NOP' THEN /* RETURN TO INVOKING ROUTINE */ 15350002 * GOTO EPNMPOK; 15370002 * /* *************************************************************** */ 15400002 * /* */ 15410002 * /* SUBROUTINES WHICH PERFORM EXTERNAL SERVICES FOR OTHER SYSTEM */ 15420002 * /* RESOURCES MANAGER ROUTINES. THEY ARE LINKED-TO DIRECTLY BY */ 15450002 * /* THE INVOKING ROUTINE. */ 15500002 * /* */ 15550002 * /* - ENTRY POINT ADDRESSES ARE IN THE RMSB TABLE. */ 15600002 * /* - ROUTINES USE THE 4TH LEVEL SRM SAVE AREA TO STORE */ 15650040 * /* THE INVOKER'S REGISTERS. */ 15700002 * /* - SAVE AREA USAGE IS SERIALIZED BY THE SRM LOCK. */ 15750040 * /* */ 15800002 * /* *************************************************************** */ 15850002 * IRAEPNMS = 'IRAEPL04' ; /* RTNE USES LEVEL 4 REG SAVEAR */ 15950002 * IF EPN(1) = 'I02' THEN /* INVOKE ASCBCHAP SERVICE */ 16000002 * GOTO EPNMPOK; 16050002 * IF EPN(1) = 'I03' THEN /* INVOKE REAL FRAME STEAL */ 16100002 * GOTO EPNMPOK; 16150002 * IF EPN(1) = 'I04' THEN /* INVOKE STORAGE GET/FREE */ 16200002 * GOTO EPNMPOK; 16250002 * IF EPN(1) = 'I05' THEN /* INVOKE TIME INTERVL SET */ 16300002 * GOTO EPNMPOK; 16350002 * IF EPN(1) = 'I06' THEN /* INVOKE QUIESCE FOR SWAPOUT */ 16400002 * GOTO EPNMPOK; 16450002 * IF EPN(1) = 'I07' THEN /* INVOKE SCHEDULE OF SWAP-IN */ 16500002 * GOTO EPNMPOK; 16550002 * IF EPN(1) = 'I08' THEN /* INVOKE SCHEDULE OF SRM SRB */ 16600002 * GOTO EPNMPOK; 16650002 * IF EPN(1) = 'I09' THEN /* INVOKE RECORD TO OPERATOR */ 16700002 * GOTO EPNMPOK; 16750002 * IF EPN(1) = 'WR4' THEN /* CALCULAT ACTIVITY MEASRMNT */ 16760002 * GOTO EPNMPOK; 16770002 * IF EPN(1) = 'WR6' THEN /* RECALCULAT ACTIVITY RATE */ 16780002 * GOTO EPNMPOK; 16790002 * /* *************************************************************** */ 16800002 * /* */ 16850002 * /* SUBROUTINES WHICH PERFORM INTERNAL SERVICES FOR OTHER SYSTEM */ 16900002 * /* RESOURCES MANAGER ROUTINES HOLDING THE SRM LOCK. THEY ARE */ 16950040 * /* LINKED-TO DIRECTLY BY THE INVOKING ROUTINE. */ 17000002 * /* */ 17050002 * /* - ENTRY POINT ADDRESSES ARE IN THE RMSB TABLE. */ 17100002 * /* - ROUTINES USE THE 3RD LEVEL SRM SAVE AREA TO STORE */ 17150040 * /* THE INVOKER'S REGISTERS. */ 17200002 * /* - SAVE AREA USAGE IS SERIALIZED BY THE SRM LOCK. */ 17250040 * /* */ 17300002 * /* *************************************************************** */ 17350002 * IRAEPNMS = 'IRAEPL03' ; /* RTNE USES LEVEL 3 REG SAVEAR */ 17400002 * IF EPN(1) = 'WMK' THEN /* RESUME PREV USER TRANSACTN */ 17450002 * GOTO EPNMPOK; 17500002 * IF EPN(1) = 'WMO' THEN /* STOP CURRNT USER TRANSACTN */ 17550002 * GOTO EPNMPOK; 17600002 * IF EPN(1) = 'WMQ' THEN /* PROCESS QUIESCE CMPLT EVENT */ 18050002 * GOTO EPNMPOK; 18100002 * IF EPN(1) = 'WMY' THEN /* PROCESS SYSTEM TIME ADJUST */ 18250002 * GOTO EPNMPOK; 18300002 * IF EPN(1) = 'AP0' THEN /* COMPUTE USER DSPCH PRIORITY */ 18750002 * GOTO EPNMPOK; 18800002 * IF EPN(1) = 'CL0' THEN /* ADJ CPU UTIL WHEN SWAP USER */ 18850002 * GOTO EPNMPOK; 18900002 * IF EPN(1) = 'IL0' THEN /* COMPUTE USER I/O PROFILE */ 18950002 * GOTO EPNMPOK; 19000002 * /* *************************************************************** */ 19050002 * /* */ 19053002 * /* SUBROUTINES WHICH PERFORM WORKLOAD MANAGER TRANSACTION */ 19056002 * /* RELATED ACTIONS FOR OTHER SYSTEM RESOURCES MNGR ROUTNS */ 19059002 * /* HOLDING THE SRM LOCK. THEY ARE LINKED-TO DIRECTLY BY */ 19062040 * /* THE INVOKING ROUTINE. */ 19065002 * /* */ 19068002 * /* - ENTRY POINT ADDRESSES ARE IN THE RMSB TABLE. */ 19071002 * /* - ROUTINES USE THE 1ST LEVEL SRM SAVE AREA TO STORE */ 19074040 * /* THE INVOKER'S REGISTERS. */ 19077002 * /* - SAVE AREA USAGE IS SERIALIZED BY THE SRM LOCK. */ 19080040 * /* */ 19083002 * /* *************************************************************** */ 19086002 * IRAEPNMS = 'IRAEPL01' ; /* RTNE USES LEVEL 1 REG SAVEAR */ 19089002 * IF EPN(1) = 'WMN' THEN /* START A NEW USER TRANSACTN */ 19100002 * GOTO EPNMPOK; 19108002 * IF EPN(1) = 'WMR' THEN /* PROCESS RESTORE CMPLT EVENT */ 19118002 * GOTO EPNMPOK; 19128002 * /* *************************************************************** */ 19150002 * /* */ 19200002 * /* SYSTEM RESOURCES MANAGER SYSTEM-LEVEL ALGORITHMIC PROCESSING */ 19250002 * /* ROUTINES. THEY ARE EXECUTED AS THE RESULT OF BEING INDIVI- */ 19300002 * /* DUALLY REQUESTED AND/OR BEING SCHEDULED ON A PERIODIC BASIS, */ 19350002 * /* BUT ARE ALWAYS INVOKED BY A CONTROL ROUTINE AS OPPOSED TO */ 19400002 * /* DIRECTLY BY THE REQUESTOR. */ 19450002 * /* */ 19500002 * /* - ENTRY POINT BLOCKS ARE IN THE EPAT TABLE. */ 19550002 * /* - ROUTINES USE THE 1ST LEVEL LOCKED SAVE AREA TO STORE */ 19600002 * /* THE INVOKING (CONTROL) ROUTINE REGISTERS. */ 19650002 * /* - SAVE AREA USAGE IS SERIALIZED BY THE CONTROL ROUTINE */ 19700002 * /* DOING THE INVOKING. */ 19750002 * /* */ 19800002 * /* *************************************************************** */ 19850002 * IRAEPNML = 'RMSBCRL' ; /* RTNE TO RECEIVE ALGRTH REQST */ 19900002 * IRAEPNMS = 'IRAEPL01' ; /* RTNE USES LEVEL 1 REG SAVEAR */ 19950002 * IF EPN(1) = 'MS2' THEN /* MSO ANALYSIS ALGORITHM */ 20100002 * GOTO EPNMPOK; 20150002 * IF EPN(1) = 'MS6' THEN /* MSO WAIT CHK ALGORITHM */ 20160002 * GOTO EPNMPOK; 20170002 * IF EPN(1) = 'EQ1' THEN /* ENQ MONITORG ALGORITHM */ 20200002 * GOTO EPNMPOK; 20250002 * IF EPN(1) = 'IL1' THEN /* IOL UTIL MON ALGORITHM */ 20300002 * GOTO EPNMPOK; 20350002 * IF EPN(1) = 'RM1' THEN /* RES MONITORING RTNE @Z40BPCH*/ 20400040 * GOTO EPNMPOK; 20450002 * IF EPN(1) = 'RM2' THEN /* RES MONITOR ADJ RTNE @Z40BPCH*/ 20500040 * GOTO EPNMPOK; 20550002 * IF EPN(1) = 'CL1' THEN /* CPU ANALYSIS ALGORITHM */ 20600040 * GOTO EPNMPOK; 20650002 * IF EPN(1) = 'SQA' THEN /* SQA MSG PRNT ALGORITHM */ 20700002 * GOTO EPNMPOK; 20750002 * IF EPN(1) = 'WM2' THEN /* WLM ANALYSIS ALGORITHM */ 20800002 * GOTO EPNMPOK; 20850002 * IF EPN(1) = 'ASM' THEN /* ASM SHRT MON ALGORITHM */ 20900002 * GOTO EPNMPOK; 20950002 * IF EPN(1) = 'CAN' THEN /* CTL FUL ANAL ALGORITHM */ 21000002 * GOTO EPNMPOK; 21050002 * IF EPN(1) = 'CAP' THEN /* CTL PRT ANAL ALGORITHM */ 21200002 * GOTO EPNMPOK; 21250002 * IF EPN(1) = 'AP1' THEN /* APG ANALYSIS ALGORITHM */ 21400002 * GOTO EPNMPOK; 21450002 * IF EPN(1) = 'PR1' THEN /* PRA ANALYSIS ALGORITHM */ 21500002 * GOTO EPNMPOK; 21550002 * IF EPN(1) = 'PR5' THEN /* PRA FORC STL ALGORITHM */ 21700002 * GOTO EPNMPOK; 21750002 * /* *************************************************************** */ 21800002 * /* */ 21850002 * /* SYSTEM RESOURCES MANAGER USER-LEVEL SERIALIZED PROCESSING */ 21900002 * /* ACTION ROUTINES. THEY ARE EXECUTED AS THE RESULT OF AN */ 21950002 * /* INDIVIDUAL REQUEST, BUT ARE ALWAYS INVOKED VIA A CONTROL */ 22000002 * /* ROUTINE, AS OPPOSED TO DIRECTLY BY THE REQUESTOR. */ 22050002 * /* */ 22100002 * /* - ENTRY POINT BLOCKS ARE IN THE EPDT TABLE. */ 22150002 * /* - ROUTINES USE THE 2ND LEVEL SRM SAVE AREA TO STORE */ 22200040 * /* THE INVOKING (CONTROL) ROUTINE REGISTERS. */ 22250002 * /* - SAVE AREA USAGE IS SERIALIZED BY THE CONTROL ROUTINE */ 22300002 * /* DOING THE INVOKING. */ 22350002 * /* */ 22400002 * /* *************************************************************** */ 22450002 * IRAEPNML = 'RMSBCRN' ; /* RTNE TO RECEIVE ACTION REQST */ 22500002 * IRAEPNMS = 'IRAEPL02' ; /* RTNE USES LEVEL 2 REG SAVEAR */ 22550002 * IF EPN(1) = 'DEL' THEN /* OUCB DELETE ACTION RUTNE */ 22600002 * GOTO EPNMPOK; 22650002 * IF EPN(1) = 'UXB' THEN /* OUXB DELETE ACTION RUTNE */ 22700002 * GOTO EPNMPOK; 22750002 * IF EPN(1) = 'IL4' THEN /* IMCB DELETE ACTION RUTNE */ 22800002 * GOTO EPNMPOK; 22850002 * IF EPN(1) = 'IPS' THEN /* IPS DELETE NOTIFY ACTION */ 22900002 * GOTO EPNMPOK; 22950002 * IF EPN(1) = 'HIT' THEN /* USER READY PROCES ACTION */ 23000002 * GOTO EPNMPOK; 23050002 * IF EPN(1) = 'RPS' THEN /* USER STATE CHANGE ACTION */ 23100002 * GOTO EPNMPOK; 23150002 * /* *************************************************************** */ 23400002 * /* */ 23450002 * /* SYSTEM RESOURCES MANAGER TIME-DEPENDENT ACTION SUBROUTINES. */ 23500002 * /* THEY ARE EXECUTED AS A RESULT OF HAVING BEEN SPECIFIED FOR */ 23530002 * /* A PARTICULAR TIME, BUT ARE ALWAYS INVOKED BY A CONTROL RTNE */ 23560002 * /* AS OPPOSED TO DIRECTLY BY THE REQUESTOR. */ 23590002 * /* */ 23650002 * /* - ENTRY POINT BLOCKS ARE IN THE EPST TABLE. */ 23700002 * /* - ROUTINES USE THE 3RD LEVEL SRM SAVE AREA TO STORE */ 23750040 * /* THE INVOKING (CONTROL) ROUTINE REGISTERS. */ 23800002 * /* - SAVE AREA USAGE IS SERIALIZED BY THE CONTROL ROUTINE */ 23850002 * /* DOING THE INVOKING. */ 23900002 * /* */ 23950002 * /* *************************************************************** */ 24000002 * IRAEPNML = 'RMSBCRY' ; /* RTNE TO RECEIVE ANALYZ REQST */ 24050002 * IRAEPNMS = 'IRAEPL03' ; /* RTNE USES LEVEL 3 REG SAVEAR */ 24100002 * IF EPN(1) = 'CSO' THEN /* PROCESS USER SWAPOUT DEMAND */ 24150002 * GOTO EPNMPOK; 24200002 * IF EPN(1) = 'CSI' THEN /* PROCESS USER SWAP-IN DEMAND */ 24250002 * GOTO EPNMPOK; 24300002 * /* *************************************************************** */ 24450002 * /* */ 24460002 * /* SYSTEM RESOURCES MANAGER ANALYSIS SUBROUTINES. THEY ARE */ 24470002 * /* SELECTIVELY INVOKED BY THE CONTROL ALGORITHM AS PART OF */ 24480002 * /* PERIODIC ANALYSIS PROCESSING. */ 24490002 * /* */ 24500002 * /* - ENTRY POINT BLOCKS ARE IN THE EPST TABLE. */ 24510002 * /* - ROUTINES USE THE 3RD LEVEL SRM SAVE AREA TO STORE */ 24520040 * /* THE INVOKING (CONTROL) ROUTINE REGISTERS. */ 24530002 * /* - SAVE AREA USAGE IS SERIALIZED BY DISABLEMENT, OR */ 24540002 * /* BY THE NON-PREEMPTABILITY OF AN SRB. */ 24550002 * /* */ 24560002 * /* *************************************************************** */ 24570002 * IRAEPNML = 'EPST'||EPN(1) ; /* REQUESTED SUBROUTINE POINTER */ 24610040 * IF EPN(1) = 'IL3' THEN /* USER I/O LOD EVAL ACTION */ 24690002 * GOTO EPNMPOK; 24710002 * IF EPN(1) = 'CL3' THEN /* USER CPU LOD EVAL ACTION */ 24730002 * GOTO EPNMPOK; 24750002 * IF EPN(1) = 'WM3' THEN /* USER WORKLOD EVAL ACTION */ 24770002 * GOTO EPNMPOK; 24790002 * /* *************************************************************** */ 24850002 * /* */ 24900002 * /* SYSTEM RESOURCES MANAGER MAJOR CONTROL ROUTINES. THEY ARE */ 24950002 * /* EXPLICITLY LINKED-TO BY SUPERVISOR COMPONENTS/MODULES. */ 25000002 * /* */ 25050002 * /* - ENTRY POINT BLOCKS ARE IN THE RMEX TABLE. */ 25100002 * /* - ROUTINES DO NOT SAVE REGISTERS OF INVOKER, OR ELSE */ 25150002 * /* USE SAVE AREA PROVIDED BY INVOKER. */ 25200002 * /* */ 25250002 * /* *************************************************************** */ 25300002 * IRAEPNML = 'RMEX'||EPN(1) ; /* REQUESTED CTL ROUTNE POINTER */ 25350002 * IRAEPNMS = ''; /* RTNE USES UNDEFIN REG SAVEAR */ 25400002 * IF EPN(1) = 'EVT' THEN /* PROCESS INPUT SYSEVENT */ 25410002 * GOTO EPNMPOK; 25420002 * IF EPN(1) = 'I01' THEN /* EXIT FROM SRM PROCESSING */ 25450002 * GOTO EPNMPOK; 25500002 * IF EPN(1) = 'CTL' THEN /* ROUTE CONTROL WITHIN SRM */ 25650002 * GOTO EPNMPOK; 25700002 * IF EPN(1) = 'CET' THEN /* TIMEREXP SRM CNTRL ENTRY */ 25750002 * GOTO EPNMPOK; 25800002 * IF EPN(1) = 'CAS' THEN /* EXIT FROM FULL ANALYSIS */ 25850002 * GOTO EPNMPOK; 25900002 * /* *************************************************************** */ 26050002 * /* */ 26100002 * /* THE REQUESTED ENTRY POINT NAME HAS NOT BEEN FOUND. PASS */ 26150002 * /* DUMMY CHARACTERISTICS BACK TO THE IRAEPNMP MACRO INVOKER. */ 26200002 * /* */ 26250002 * /* *************************************************************** */ 26300002 * IRAEPNML = 'IRARMNOP' ; /* DMMY INDICATES EPN NOT FOUND */ 26350002 * IRAEPNMS = ''; /* DMMY DOES NOT USE REG SAVEAR */ 26400002 *EPNMPOK: ; /* IRAEPNMP NORMAL EXIT POINT */ 26450002 *% END; 26500002