* %GOTO RMCAPLS1; /* 00050002 MACRO 00100002 IRARMCA &DSECT=YES */ 00150002 *%RMCAPLS1: ; 00200002 * /* */ 00250002 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00300040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00350040 * /* *************************************************************** */ 00400002 * /* */ 00450002 * /* MACRO NAME - IRARMCA */ 00500002 * /* */ 00550002 * /* DESCRIPTIVE NAME - SYSTEM RESOURCES MANAGER CONTROL AREA */ 00600002 * /* */ 00650002 * /* COPYRIGHT - NONE */ 00700002 * /* */ 00750002 * /* STATUS - OS/VS2 RELEASE 4, 09/19/75, LEVEL=1 */ 00800040 * /* */ 00850002 * /* FUNCTION - THE RMCA PROVIDES THE STORAGE AREA CONTAINING */ 00900002 * /* SWAP ANALYSIS VARIABLES USED WITHIN THE SYSTEM RE- */ 00950002 * /* SOURCES MANAGER. AS A RESULT OF USING THE RMCA AS */ 01000002 * /* A WORK AREA, THE IRARMCTL AND IRARMWLM MODULES CAN */ 01050002 * /* BE MADE READ-ONLY. */ 01100002 * /* */ 01150002 * /* METHOD OF ACCESS - THE ADDRESS OF THE RMCA IS CONTAINED */ 01200002 * /* IN THE -RMCTRMCA- FIELD OF THE SYSTEM RESOURCES */ 01250002 * /* MANAGER CONTROL TABLE. */ 01300002 * /* */ 01350002 * /* *************************************************************** */ 01400002 * %GOTO RMCAPLS2; /* 01450002 AGO .RMCAAL1 */ 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 RMCA. */ 02000002 * /* */ 02050002 * /* USING ON RMCA GIVES ADDRESSABILITY TO ALL SYMBOLS. */ 02100002 * /* */ 02150002 * /* PLS - %RMCALEVL='USERLEVL' IF THE RMCA MAPPING IS TO BE */ 02200002 * /* CONCATENATED WITH A PREVIOUS DECLARATION, WITH THE */ 02250002 * /* RMCA BEING ASSIGNED THE INDICATED STRUCTURE LEVEL. */ 02300002 * /* - %RMCA9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED. */ 02350002 * /* */ 02400002 * /* TO ACCESS AS A STANDALONE STRUCTURE, DCL RMCAPTR PTR. */ 02450002 * /* */ 02500002 * /* CHANGE ACTIVITY = @ZM43085 */ 02550040 * /* @ZA15788 */ 02570040 * /* */ 02600002 * /* A000000-999999 Y02133*/ 02650002 * /* */ 02700002 * /* *************************************************************** */ 02750002 * /* 02800002 .RMCAAL1 ANOP 02850002 SPACE 1 02900002 AIF ('&DSECT' EQ 'NO').RMCAAL2 02950002 RMCA DSECT 03000002 AGO .RMCAAL3 03050002 .RMCAAL2 ANOP 03100002 DS 0D 03150002 RMCA EQU * 03200002 .RMCAAL3 ANOP 03250002 SPACE 1 03300002 RMCANAME DC C'RMCA' - BLOCK IDENTIFICATION 03350002 RMCAR04 DC H'0' - RESERVED 03400002 RMCAINUS DC H'0' - COUNT OF IN-CORE USERS 03650002 RMCARSV1 DC H'0' - RESERVED @ZM43085 03700040 RMCARSV2 DC H'0' - RESERVED @ZM43085 03750040 RMCATQS DC F'0' - SYSTEM QUIESCE TIME 03850002 RMCATRS DC F'0' - SYSTEM RESTART TIME 03900002 RMCATOI DC F'0' - TIME OF EXPECTED TIMER INTERRUPT 04000002 RMCARSV3 DC F'0' - RESERVED @ZM43085 04050040 RMCARSV4 DC F'0' - RESERVED @ZM43085 04100040 RMCARSV5 DC F'0' - RESERVED @ZM43085 04150040 RMCAFLGS DC 1B'00000000' - SAVEAREA AVAIL. FLAGS @ZA15788 04152040 RMCASAAF EQU BIT0 - SIXTH LVL SAVEAREA AVAIL @ZA15788 04154040 DC 3B'00000000' - RESERVED @ZA15788 04156040 RMCARSV7 DC F'0' - RESERVED @ZM43085 04250040 RMCARSV8 DC F'0' - RESERVED @ZM43085 04300040 RMCACHP DC X'800000FF' - CHAP LIST FOR SWAPOUT PRTY @YM05632 04400002 RMCACHU DC A(0) - USER TO BE CHAPPED ON SWAP @YM05632 04420002 RMCARSV9 DC F'0' - RESERVED @ZM43085 04450040 RMCAR10 DC F'0' - RESERVED @ZM43085 04490040 RMCAINV DC F'0' - ROUTINE INVOCATION WORK AREA 04570002 RMCAR11 DC H'0' - RESERVED @ZM43085 05150040 RMCAISV DC H'1' - ISV RECOMM. VALUE BOOST @Z40BPCH 05180040 RMCALGPG DC HL1'2' - DEF LOGON PERF GROUP NUMBER @Z40BPCH 05187040 RMCABCPG DC HL1'1' - DEF BATCH PERF GROUP NUMBER @Z40BPCH 05192040 RMCAR20 DC H'0' - RESERVED @Z40BPCH 05210040 RMCAMAS DC V(IEAMASCB) - ASCB ADDR FOR MASTER SCHEDULER 05460002 RMCAWKA DC 8F'0' - NONRESIDENT ROUTINE WORKAREA 05480040 RMCAR13 DC F'0' - RESERVED @ZM43085 05483040 RMCAR14 DC H'0' - RESERVED @ZM43085 05486040 RMCACIUS DC H'0' - COUNT OF USERS COMING IN @Z30WIMG 05495003 RMCACPW1 DC F'0' - CAP WORK AREA @Z40BPCH 05495240 RMCASRC EQU * - SWAP REASON COUNTS @Z40BPCH 05495540 RMCATOSC DC F'0' - TERMINAL OUTPUT SWAP COUNT @Z40BPCH 05496040 RMCATISC DC F'0' - TERMINAL INPUT SWAP COUNT @Z40BPCH 05497040 RMCALWSC DC F'0' - LONG WAIT SWAP COUNT @Z40BPCH 05497540 RMCAXSSC DC F'0' - AUX STOR SHORT SWAP COUNT @Z40BPCH 05498040 RMCARSSC DC F'0' - REAL STOR SHORT SWAP COUNT @Z40BPCH 05498540 RMCADWSC DC F'0' - DETECTED WAIT SWAP COUNT @Z40BPCH 05499040 RMCARQSC DC F'0' - REQSWAP SWAP COUNT @Z40BPCH 05499540 RMCANQSC DC F'0' - CAP ENQ EXCHANGE SWAP CNT @Z40BPCH 05506540 RMCAEXSC DC F'0' - CAP EXCHANGE BASED ON RECOMMENDATION 05510540 * VALUES SWAP COUNT @Z40BPCH 05520540 RMCAUSSC DC F'0' - CAP UNILATERAL SWAP OUT CNT @Z40BPCH 05524540 * 05525540 RMCAR90 DC F'0' - RESERVED @Z40BPCH 05526540 * 05529040 RMCAEND DS 0D - END OF RMCA 05543040 RMCALEN EQU RMCAEND-RMCA - LENGTH OF RMCA 05550002 MEND 05600002 * */ 05650002 *%RMCAPLS2: ; 05700002 * %IF RMCA9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 05750002 * %THEN %RMCA9999 = ';'; /* NO, END DECLARE STATEMENT */ 05800002 * %IF RMCALEVL ^= '' /* IS STRUCTURE CONCATENATED */ 05850002 * %THEN %GOTO RMCAPLS3; /* YES, OMIT DECLARE STATEMENT */ 05900002 * DCL 05950002 * 1 RMCA BASED(RMCAPTR) BDY(DWORD), 06000002 * %GOTO RMCAPLS4; /* SKIP USER-GIVEN LEVEL */ 06050002 *%RMCAPLS3: RMCADUM = RMCALEVL||' RMCA'; /* PICK UP GIVEN LEVEL */ 06100002 * RMCADUM BDY(DWORD), 06150002 *%RMCAPLS4: ; 06200002 * 10 RMCANAME CHAR(4), /* BLOCK IDENTIFICATION - 'RMCA' */ 06250002 * 10 RMCAR04 FIXED(15), /* RESERVED */ 06300002 * 10 RMCAINUS FIXED(15), /* COUNT OF IN-CORE USERS */ 06550002 * 10 RMCARSV1 FIXED(15), /* RESERVED @ZM43085*/ 06600040 * 10 RMCARSV2 FIXED(15), /* RESERVED @ZM43085*/06650040 * 10 RMCATQS FIXED(32) UNSIGNED, /* SYSTEM QUIESCE TIME */ 06750002 * 10 RMCATRS FIXED(32) UNSIGNED, /* SYSTEM RESTART TIME */ 06800002 * 10 RMCATOI FIXED(32) UNSIGNED, /* TIME OF EXPECTD INTERRUPT */ 06950002 * 10 RMCARSV3 FIXED(32) UNSIGNED, /* RESERVED @ZM43085*/ 07000040 * 10 RMCARSV4 FIXED(32) UNSIGNED, /* RESERVED @ZM43085*/ 07050040 * 10 RMCARSV5 FIXED, /* RESERVED @ZM43085*/ 07100040 * 10 RMCAFLGS FIXED(32) BDY(WORD),/*SAVEAREA AVAIL. FLAGS 07103040 * @ZA15788*/ 07106040 * 12 RMCASAAF BIT(1), /* SIXTH LVL SAVEAREA AVAIL. FLG 07110040 * @ZA15788*/ 07112040 * 12 RMCARSVF BIT(31), /* RESERVED @ZA15788*/ 07114040 * 10 RMCARSV7 FIXED(32) UNSIGNED, /* RESERVED @ZM43085*/ 07200040 * 10 RMCARSV8 FIXED(32) UNSIGNED, /* RESERVED @ZM43085*/ 07250040 * 10 RMCACHP CHAR(4) BDY(WORD), /* CHAP LIST FOR SWAP @YM05632*/ 07350002 * 10 RMCACHU PTR(31), /* USER CHAPPED FOR SWAP @YM05632*/ 07400002 * 10 RMCARSV9 FIXED(32) UNSIGNED, /* RESERVED @ZM43085*/ 07450040 * 10 RMCAR10 FIXED(32) UNSIGNED, /* RESERVED @ZM43085*/ 07500040 * 10 RMCAINV BIT(32) BDY(WORD), /* RTNE INVOCATION WORK AREA */ 07620002 * 10 RMCAR11 FIXED(15), /* RESERVED @ZM43085*/ 08150040 * 10 RMCAISV FIXED(16), /* ISV REC. VALUE BOOST @Z40BPCH*/ 08180040 * 10 RMCALGPG PTR(8), /* DEF LOGON PERF GRP # @Z40BPCH*/ 08187040 * 10 RMCABCPG PTR(8), /* DEF BATCH PERF GRP # @Z40BPCH*/ 08194040 * 10 RMCAR20 FIXED(15), /* RESERVED @Z40BPCH*/ 08210040 * 10 RMCAMAS PTR(31), /* ASCB ADDR FOR MASTER SCHEDULR */ 08410002 * 10 RMCAWKA CHAR(32) BDY(DWORD), /* NONRESIDENT RTN WORKAREA*/ 08430040 * 10 RMCAR13 FIXED, /* RESERVED @ZM43085*/ 08433040 * 10 RMCAR14 FIXED(15), /* RESERVED @ZM43085*/ 08436040 * 10 RMCACIUS FIXED(15), /* CT OF USERS COMING IN @Z30WIMG*/ 08445003 * 10 RMCACPW1 PTR(31), /* CAP WORK AREA @Z40BPCH*/ 08445140 * 10 RMCASRC, /* SWAP OUT REASON CNTS. @Z40BPCH*/ 08445340 * 12 RMCATOSC FIXED(32), /* TERMINAL OUTPUT SWAP COUNT 08445440 * @Z40BPCH*/ 08445740 * 12 RMCATISC FIXED(32), /* TERMINAL OUTPUT SWAP COUNT 08445940 * @Z40BPCH*/ 08446140 * 12 RMCALWSC FIXED(32), /* LONG WAIT SWAP COUNT 08446840 * @Z40BPCH*/ 08447040 * 12 RMCAXSSC FIXED(32), /* AUT STOR SHORTAGE SWAP COUNT 08447140 * @Z40BPCH*/ 08447340 * 12 RMCARSSC FIXED(32), /* REAL STOR SHORTAGE SWAP COUNT 08447540 * @Z40BPCH*/ 08447740 * 12 RMCADWSC FIXED(32), /* DETECTED WAIT SWAP COUNT 08447940 * @Z40BPCH*/ 08448140 * 12 RMCARQSC FIXED(32), /* REQSWAP SWAP COUNT @Z40BPCH*/ 08448940 * 12 RMCANQSC FIXED(32), /* CAP ENQ EXCHANGE SWAP COUNT 08449040 * @Z40BPCH*/ 08449440 * 12 RMCAEXSC FIXED(32), /* CAP EXCHANGE BASED ON RECOMM. 08449540 * VALUE SWAP COUNT @Z40BPCH*/ 08449740 * 12 RMCAUSSC FIXED(32), /* CAP UNILATERAL SWAP OUT COUNT 08449840 * @Z40BPCH*/ 08480040 * 10 RMCAR90 FIXED, /* RESERVED @Z40BPCH*/ 08483040 * 08486040 * 10 RMCAEND CHAR(0) BDY(DWORD) /* END OF RMCA */ 08490040 * RMCA9999 08500002 * %RMCALEN = 'LENGTH(RMCA)'; /* SYMBOLIC FOR LENGTH OF RMCA */ 08550002