* %GOTO RMCTPLS1; /* 00050002 MACRO 00100002 IRARMCT &DSECT=YES 00150002 IEZBITS */ 00200002 *%RMCTPLS1: ; 00250002 * /* */ 00300002 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00350040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00380040 * /* *************************************************************** */ 00450002 * /* */ 00500002 * /* MACRO NAME - IRARMCT */ 00550002 * /* */ 00600002 * /* DESCRIPTIVE NAME - SYSTEM RESOURCES MANAGER CONTROL TABLE */ 00650002 * /* */ 00700002 * /* COPYRIGHT - NONE */ 00750002 * /* */ 00800002 * /* STATUS - OS/VS2 RELEASE 4, 10/28/75, LEVEL=1 */ 00850040 * /* */ 00900002 * /* FUNCTION - THE RMCT SERVES AS THE ORIGIN TO LOCATE SYSTEM */ 00950002 * /* RESOURCES MANAGER TABLES AND ENTRY POINTS. THE RMCT */ 01000002 * /* LOCATES THE SCHEDULING / ROUTING INFORMATION USED TO */ 01050002 * /* INVOKE THE REQUIRED PROCESSING FOR THE VARIOUS SYSTEM */ 01100002 * /* RESOURCES MANAGER FUNCTIONS. */ 01150002 * /* */ 01200002 * /* METHOD OF ACCESS - THE ADDRESS OF THE RMCT IS CONTAINED IN */ 01250002 * /* THE -CVTOPCTP- FIELD OF THE CVT. */ 01300002 * /* */ 01310002 * /* BY CONVENTION WITHIN THE SYSTEM RESOURCES MANAGER */ 01320002 * /* ROUTINES, REGISTER 2 IS ALWAYS RESERVED TO CONTAIN */ 01330002 * /* THE ADDRESS OF THE RMCT. */ 01340002 * /* */ 01350002 * /* *************************************************************** */ 01400002 * %GOTO RMCTPLS2; /* 01450002 AGO .RMCTAL1 */ 01500002 * /* *************************************************************** */ 01550002 * /* */ 01600002 * /* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 01650002 * /* */ 01700002 * /* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 01750002 * /* */ 01800002 * /* NOTE - THE BAL FORM OF THE MACRO IS CODED WITH */ 01850002 * /* 'DC' INSTRUCTIONS, SO THAT THE MACRO MAY BE USED */ 01900002 * /* TO ASSEMBLE THE INITIAL FIELD VALUES FOR THE */ 01950002 * /* IRARMCNS MODULE, WHICH CONTAINS THE RMCT. */ 02000002 * /* */ 02050002 * /* USING ON RMCT GIVES ADDRESSABILITY TO ALL SYMBOLS. */ 02100002 * /* */ 02150002 * /* PLS - %RMCTLEVL='USERLEVL' IF THE RMCT MAPPING IS TO BE */ 02200002 * /* CONCATENATED WITH A PREVIOUS DECLARATION, WITH THE */ 02250002 * /* RMCT BEING ASSIGNED THE INDICATED STRUCTURE LEVEL. */ 02300002 * /* - %RMCT9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED. */ 02350002 * /* */ 02400002 * /* NOTE - INASMUCH AS THE RMCT TABLE APPEARS AT THE */ 02450002 * /* VERY BEGINNING OF THE -IRARMCNS- MODULE, ONLY A */ 02500002 * /* STRUCTURE LEVEL OF '1' (ONE) SHOULD BE USED FOR */ 02550002 * /* THE RMCT. */ 02600002 * /* */ 02650002 * /* TO ACCESS THE RMCT AS A DECLARED STRUCTURE, */ 02700002 * /* DCL RMCTPTR PTR. */ 02750002 * /* */ 02800002 * /* CHANGE ACTIVITY = @ZM43085 */ 02850040 * /* @ZA10831 */ 02870003 * /* */ 02900002 * /* A000000-999999 Y02133*/ 02950002 * /* */ 03000002 * /* *************************************************************** */ 03050002 * /* 03100002 .RMCTAL1 ANOP 03150002 SPACE 1 03200002 AIF ('&DSECT' EQ 'NO').RMCTAL2 03250002 RMCT DSECT 03300002 AGO .RMCTAL3 03350002 .RMCTAL2 ANOP 03400002 DS 0D 03450002 RMCT EQU * 03500002 .RMCTAL3 ANOP 03550002 SPACE 1 03600002 RMCTNAME DC C'RMCT' - BLOCK IDENTIFICATION 03650002 RMCTCCT DC A(CCT) - CPU MANAGEMENT CONTROL TABLE 03750002 RMCTICT DC A(ICT) - I/O MANAGEMENT CONTROL TABLE 03800002 RMCTMCT DC A(MCT) - STORAGE MANAGEMENT CONTROL TABLE 03820002 RMCTRMPT DC A(RMPT) - CTL ALGORITHM PARAMETER TABLE 03850002 RMCTRMCA DC A(RMCA) - CTL ALGORITHM CONTROL AREA 03900002 RMCTWMST DC A(0) - ADDR OF WLM SPECIFICATION TABLE 03950002 RMCTRLCT DC A(0) - ADDR OF LOGICAL CHANNEL MGMT TABLE 04000002 RMCTRMSA DC A(0) - ADDR OF RESOURCES MANAGER SAVE AREA 04050002 RMCTRMPD DC A(0) - ADDR OF RESOURCES MANAGER PERF DATA 04150002 RMCTRMEX DC A(RMEX) - ROUTINE EXITING VECTOR TABLE 04250002 RMCTRMSB DC A(RMSB) - SUBROUTINE CALLING VECTOR TABLE 04300002 RMCTEPPA DC A(IRAEPPA) - PRTL ANALYSIS ENTRY TABLE 04350002 RMCTEPDT DC A(EPDTSCN) - USER ACTION ENTRY TABLE 04450002 RMCTEPAT DC A(EPATSCN) - ALGORITHM ENTRY TABLE 04500002 RMCTEPBG DC A(EPAT) - ADDR OF ALG ENTRY PT TABLE @ZA10831 04550003 RMCTADJC DC F'0' - ADJUSTMENT FACTOR FOR CPU RATE 04600002 RMCTITT DC V(IRASECHT) - INTFC EVENT CHARACTERISTICS TABLE 04610002 RMCTEPET DC V(IRAPRCSR) - EVENT ROUTING VECTOR TABLE 04620002 RMCTFLTM DC A(IRAFLTM) - TIME OF DAY ADJUST VECTOR TABLE 04630002 RMCTEPPR DC A(IRAEPPR) - PROCESS RATE DEPENDENT ENTRY TABLE 04650002 RMCTWAST DC A(0) - ADDR OF WAR SPECIFICATION TABLE 04670002 RMCTWAMT DC A(0) - ADDR OF WAR MEASUREMENT TABLE 04700002 RMCTTMQE DC A(IRACTMQE) - SCHEDULED RTNE QUEUE HEADER ADDR 05000002 RMCTAQCT DC F'0' - ACTION QUEUE MEMBER COUNT 05050002 RMCTAQHD DC A(IRAOUCB) - ACTION QUEUE FORWARD POINTER 05100002 RMCTWTQE DC A(IRAWTQE) - WAIT - QUEUE HEADER BLOCK ADDRESS 05150002 RMCTOTQE DC A(IRAOTQE) - OUT - QUEUE HEADER BLOCK ADDRESS 05170002 RMCTINQE DC A(IRAINQE) - IN - QUEUE HEADER BLOCK ADDRESS 05190002 RMCTR10 DC F'0' - RESERVED @Z40BPCH 05210040 RMCTTBS DC F'0' - STARTING TIME BASE FOR TIME OF DAY 05250002 RMCTTOD DC F'0' - TIME OF DAY - SYST RSRC MGR INVOKE 05300002 RMCTTOC DC D'0' - TIME OF CENTURY - 64BIT BINARY NMB 05350002 RMCTALA DC 4B'00000000' - ALGORITHM REQUEST ACCUMULATOR FIELD 05400002 RMCTALR DC 4B'00000000' - IMMEDIATE ALGORITHM REQUEST FIELD 05450002 RMCTRQSV DC A(RQSV) - ADDR OF REQ SRV DATA AREA @Z40BPCH 05600040 RMCTFLGS DC 1B'00000000' - PROCESSING CONTROL FLAGS 05650002 RMCTMFA EQU BIT0 - MEASUREMENT FACILITY ACTIVE 05700002 RMCTCPS1 EQU BIT1 CAP SWITCH @Z40BPSS 05730040 RMCTINIT EQU BIT3 - SRM INITIALIZATION WAS PERFORMED 05850002 RMCTRSV1 EQU BIT4 - RESERVED @ZM43085 05900040 RMCTSTW EQU BIT5 - SET HAS STOPPED WAR COLLECTION 05950002 RMCTRSV2 EQU BIT6 - RESERVED @ZM43085 05952040 DC 1B'00000000' - OVERRIDE CONDITION FLAGS 05960002 RMCTMFS EQU BIT1 - MF1 ACTIVE,SET IPS RCVD @Z40BPCH 05980040 DC 2B'00000000' - RESERVED 06000002 RMCTTELM DC V(IEATSELM) - RESOURCES MANAGER TIMING ELEMENT 06050002 RMCTCPID DC C'RM1',X'03' - RESOURCES MANAGER CELL POOL ID 06100002 RMCTTOCI DC D'0' - CLOCK READ AREA - 64BIT BINARY NMB 06150002 RMCTOUCB DC A(IRAOUCB) - PREASSEMBLED MODEL OUCB 06250002 RMCTOUXB DC A(IRAOUXB) - INTERPOSED DUMMY OUXB 06300002 RMCTSRBT DC A(IRASRBT) - RESOURCES MANAGER SRB TABLE 06350002 RMCTDMDT DC A(0) - ADDR OF DOMAIN TABLE @Z40BPCH 06360040 RMCTDMDE DC A(0) - ADDR OF LAST DMN TAB ENTRY @Z40BPCH 06365040 RMCTDMNC DC H'0' - NUMBER OF DOMAINS @Z40BPCH 06370040 RMCTR50 DC H'0' - RESERVED @Z40BPCH 06390040 RMCTEND DS 0D - END OF RMCT 06450002 RMCTLEN EQU RMCTEND-RMCT - LENGTH OF RMCT 06500002 MEND 06550002 * */ 06600002 *%RMCTPLS2: ; 06650002 * %IF RMCT9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 06700002 * %THEN %RMCT9999 = ';'; /* NO, END DECLARE STATEMENT */ 06750002 * %IF RMCTLEVL ^= '' /* IS STRUCTURE CONCATENATED */ 06800002 * %THEN %GOTO RMCTPLS3; /* YES, OMIT DECLARE STATEMENT */ 06850002 * DCL 06900002 * 1 RMCT BASED(RMCTPTR) BDY(DWORD), 06950002 * %GOTO RMCTPLS4; /* SKIP USER-GIVEN LEVEL */ 07000002 *%RMCTPLS3: RMCTDUM = RMCTLEVL||' RMCT'; /* PICK UP GIVEN LEVEL */ 07050002 * RMCTDUM BDY(DWORD), 07100002 *%RMCTPLS4: ; 07150002 * 10 RMCTNAME CHAR(4), /* BLOCK IDENTIFICATION - 'RMCT' */ 07200002 * 10 RMCTCCT PTR(31), /* CPU MGMT CONTROL TABLE */ 07300002 * 10 RMCTICT PTR(31), /* I/O MGMT CONTROL TABLE */ 07350002 * 10 RMCTMCT PTR(31), /* STORAGE MGMT CONTROL TABLE */ 07370002 * 10 RMCTRMPT PTR(31), /* CTL ALGORITHM PARAMETER TBL */ 07400002 * 10 RMCTRMCA PTR(31), /* CTL ALGORITHM CONTROL AREA */ 07450002 * 10 RMCTWMST PTR(31), /* WLM SPECIFICATION TABLE */ 07500002 * 10 RMCTRLCT PTR(31), /* LOGICAL CHANNEL MGMT TABLE */ 07550002 * 10 RMCTRMSA PTR(31), /* RESOURCES MANAGER SAVE AREA */ 07600002 * 10 RMCTRMPD PTR(31), /* RESOURCES MANAGER PERF DATA */ 07700002 * 10 RMCTRMEX PTR(31), /* ROUTINE EXITING VECTOR TABLE */ 07800002 * 10 RMCTRMSB PTR(31), /* SUBRTNE CALLING VECTOR TABLE */ 07850002 * 10 RMCTEPPA PTR(31), /* PRTL ANALYSIS ENTRY TABLE */ 07900002 * 10 RMCTEPDT PTR(31), /* USER ACTION ENTRY TABLE */ 08000002 * 10 RMCTEPAT PTR(31), /* ALGORITHM ENTRY TABLE */ 08050002 * 10 RMCTEPBG PTR(31), /* BEGIN ALG ENTRY PT TABLE @ZA10831*/ 08100003 * 10 RMCTADJC FIXED, /* CPU RATE ADJUSTMENT */ 08150002 * 10 RMCTITT PTR(31), /* EVENT CHARACTERISTICS TABLE */ 08160002 * 10 RMCTEPET PTR(31), /* EVENT ROUTING VECTOR TABLE */ 08170002 * 10 RMCTFLTM PTR(31), /* TIME OF DAY DEPENDENT TABLE */ 08180002 * 10 RMCTEPPR PTR(31), /* PROCESS RATE DEPENDENT TABLE */ 08200002 * 10 RMCTWAST PTR(31), /* WAR SPECIFICATION TABLE */ 08220002 * 10 RMCTWAMT PTR(31), /* WAR MEASUREMENT TABLE */ 08250002 * 10 RMCTTMQE PTR(31), /* SCHED RTNE QUEUE HEAD ADDR */ 08550002 * 10 RMCTAQCT FIXED BDY(DWORD), /* ACTION QUEUE MEMBER COUNT */ 08600002 * 10 RMCTAQHD PTR(31), /* ACTION QUEUE FORWARD POINTER */ 08650002 * 10 RMCTWTQE PTR(31), /* WAIT - QUEUE HEADER ADDRESS */ 08700002 * 10 RMCTOTQE PTR(31), /* OUT - QUEUE HEADER ADDRESS */ 08720002 * 10 RMCTINQE PTR(31), /* IN - QUEUE HEADER ADDRESS */ 08740002 * 10 RMCTR10 FIXED, /* RESERVED @Z40BPCH*/ 08760040 * 10 RMCTTBS FIXED(32) UNSIGNED, /* SRM TIME OF DAY BASE */ 08800002 * 10 RMCTTOD FIXED(32) UNSIGNED, /* CURRENT TIME OF DAY */ 08850002 * 10 RMCTTOC BIT(64) BDY(DWORD), /* CURR TIME OF CENTURY */ 08900002 * 10 RMCTALA BIT(32) BDY(WORD), /* ALG REQUEST ACCUMULATOR */ 08950002 * 10 RMCTALR BIT(32) BDY(WORD), /* IMMED ALG REQUEST ACCUMUL */ 09000002 * 10 RMCTRQSV PTR(31), /* REQ SERVICE WORK AREA @Z40BPCH*/ 09150040 * 10 RMCTFLGS BIT(32) BDY(WORD), /* PROCESSING CONTROL FLAGS */ 09200002 * 12 RMCTMFA BIT(1), /* MEASUREMENT FACILITY ACTIVE */ 09250002 * 12 RMCTCPS1 BIT(1), /* CAP SWITCH @Z40BPSS*/ 09300040 * 12 RMCTF03 BIT(1), /* RESERVED @Z40BPSS*/ 09330040 * 12 RMCTINIT BIT(1), /* SRM INITIALIZATION DONE */ 09400002 * 12 RMCTRSV1 BIT(1), /* RESERVED @ZM43085*/ 09450040 * 12 RMCTSTW BIT(1), /* SET STOPPED WAR COLLECTION */ 09500002 * 12 RMCTRSV2 BIT(1), /* RESERVED @ZM43085*/ 09510040 * 12 RMCTF06 BIT(1), /* RESERVED @Z40BPCH*/ 09520040 * 12 RMCTF07 BIT(1), /* RESERVED @Z40BPCH*/ 09560040 * 12 RMCTMFS BIT(1), /* MF1 ACT.,SET IPS RCVD @Z40BPCH*/ 09565040 * 12 RMCTF09 BIT(22), /* RESERVED @Z40BPCH*/ 09575040 * 10 RMCTTELM PTR(31), /* RSRC MANAGER TIMING ELEMENT */ 09600002 * 10 RMCTCPID CHAR(4) BDY(WORD), /* RSRC MANAGER CELL POOL ID */ 09650002 * 10 RMCTTOCI BIT(64) BDY(DWORD), /* TOD CLOCK READ AREA */ 09700002 * 10 RMCTOUCB PTR(31), /* PREASSEMBLED MODEL OUCB */ 09800002 * 10 RMCTOUXB PTR(31), /* INTERPOSED DUMMY OUXB */ 09850002 * 10 RMCTSRBT PTR(31), /* PREBUILT SRB TABLE */ 09900002 * 10 RMCTDMDT PTR(31), /* ADDR OF DOMAIN TABLE @Z40BPCH*/ 09910040 * 10 RMCTDMDE PTR(31), /* ADDR OF LAST DMDT ENT @Z40BPCH*/ 09913040 * 10 RMCTDMNC FIXED(15), /* NUMBER OF DOMAINS @Z40BPCH*/ 09920040 * 10 RMCTR50 FIXED(15), /* RESERVED @Z40BPCH*/ 09930040 * 10 RMCTEND CHAR(0) BDY(DWORD) /* END OF RMCT */ 10000002 * RMCT9999 10050002 * %RMCTLEN = 'LENGTH(RMCT)'; /* SYMBOLIC FOR LENGTH OF RMCT */ 10100002