* %GOTO OUXBPLS1; /* 00050040 MACRO 00100040 IHAOUXB &DSECT=YES,&LABEL= */ 00150040 *%OUXBPLS1: ; 00200040 * /* */ 00250040 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00300040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00330040 * /* *************************************************************** */ 00400040 * /* */ 00450040 * /* MACRO NAME - IHAOUXB */ 00500040 * /* */ 00550040 * /* DESCRIPTIVE NAME - RESOURCES MANAGER USER EXTENSION BLOCK */ 00600040 * /* */ 00650040 * /* COPYRIGHT - NONE */ 00700040 * /* */ 00750040 * /* STATUS - OS/VS2 RELEASE 4, 07/30/75, LEVEL=1 */ 00800040 * /* */ 00850040 * /* FUNCTION - THE OUXB CONTAINS SUCH SYSTEM RESOURCES MANAGER */ 00900040 * /* DATA ABOUT AN ADDRESS SPACE AS IS NOT REQUIRED BY THE */ 00950040 * /* SYSTEM RESOURCES MANAGER WHILE THAT ADDRESS SPACE IS */ 01000040 * /* SWAPPED OUT. THE STORAGE FOR THE OUXB IS FREED DURING */ 01050040 * /* THE SWAPPED-OUT PERIOD. THE OUXB RESIDES IN SQA, SO */ 01100040 * /* IT MAY BE REFERENCED WITHOUT HAVING ADDRESSABILITY TO */ 01150040 * /* THE DESCRIBED ADDRESS SPACE. */ 01200040 * /* */ 01250040 * /* METHOD OF ACCESS - THE OUXB FOR AN ADDRESS SPACE IS LOCATED */ 01300040 * /* VIA THE -ASCBOUXB- FIELD OF THE ADDRESS SPACE CONTROL */ 01350040 * /* BLOCK. */ 01400040 * /* */ 01450040 * /* *************************************************************** */ 01500040 * %GOTO OUXBPLS2; /* 01550040 AGO .OUXBAL1 */ 01600040 * /* *************************************************************** */ 01650040 * /* */ 01700040 * /* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 01750040 * /* */ 01800040 * /* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 01850040 * /* - LABEL='USERNAME' IF USERNAME EQU OUXB TO BE GEN'D. */ 01900040 * /* */ 01950040 * /* NOTE - THE BAL FORM OF THE MACRO IS CODED WITH */ 02000040 * /* 'DC' INSTRUCTIONS, SO THAT THE MACRO MAY BE USED */ 02050040 * /* TO ASSEMBLE THE INITIAL FIELD VALUES FOR A CSECT */ 02100040 * /* CONTAINING A MODEL OUXB. */ 02150040 * /* */ 02200040 * /* USING ON OUXB GIVES ADDRESSABILITY TO ALL SYMBOLS. */ 02250040 * /* */ 02300040 * /* PLS - %OUXBLEVL='USERLEVL' IF THE OUXB MAPPING IS TO BE */ 02350040 * /* CONCATENATED WITH A PREVIOUS DECLARATION, WITH THE */ 02400040 * /* OUXB BEING ASSIGNED THE INDICATED STRUCTURE LEVEL. */ 02450040 * /* - %OUXB9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED. */ 02500040 * /* */ 02550040 * /* TO ACCESS AS A STANDALONE STRUCTURE DCL OUXBPTR PTR. */ 02600040 * /* */ 02650040 * /* CHANGE ACTIVITY = @ZM43085,@ZA10808,@ZA16887,@ZA20975 */ 02670040 * /* @ZA33468 */ 02750040 * /* A000000-999999 Y02133*/ 02800040 * /* */ 02850040 * /* *************************************************************** */ 02900040 * /* 02950040 .OUXBAL1 ANOP 03000040 SPACE 1 03050040 AIF ('&DSECT' EQ 'NO').OUXBAL2 03100040 OUXB DSECT 03150040 AGO .OUXBAL3 03200040 .OUXBAL2 ANOP 03250040 DS 0D 03300040 OUXB EQU * 03350040 .OUXBAL3 ANOP 03400040 SPACE 1 03450040 OUXBNAME DC C'OUXB' - BLOCK IDENTIFICATION 03500040 OUXBPET DC F'0' - PRA BASE CPU MEASUREMENT 03550040 OUXBMET DC F'0' - MSO BASE CPU MEASUREMENT 03600040 OUXBRSW DC A(0) - ADDR OF ECB PASSED BY REQSWAP 03610040 OUXBPIN DC F'0' - INTERVAL PAGE-IN ACCUMULATOR 03650040 OUXBPOUT DC F'0' - INTERVAL PAGE-OUT ACCUMULATOR 03700040 OUXBPREC DC F'0' - INTERVAL RECLAIM ACCUMULATOR 03750040 OUXBVAMI DC F'0' - INTERVAL VAM PAGE-IN ACCUMULATOR 03800040 OUXBVAMO DC F'0' - INTERVAL VAM PAGE-OUT ACCUMULATOR 03850040 OUXBVAMR DC F'0' - INTERVAL VAM RECLAIM ACCUMULATOR 03900040 OUXBCAPI DC F'0' - INTERVAL COMMON AREA PAGINS @Z30WIMG 03950040 OUXBCAPR DC F'0' - INTERVAL COMMON AREA RCLAIM @Z30WIMG 03960040 OUXBSTCT DC F'0' - PAGES STOLEN ACCUMULATOR @Z40BPCH 03970040 OUXBIOS DC H'0' - WLM BASE I/O MEASUREMENT 04000040 OUXBSTC DC H'0' - INTERVAL STEAL CALL COUNT 04030040 OUXBIOSM DC F'0' - SMF BASE EXCP COUNT @ZA10808 04040040 OUXBNQT DC F'0' - ENQ RESIDENCY START TIME 04150040 OUXBTRC DC F'0' - SESSION TRANSACTION COUNT 04200040 OUXBJBS DC F'0' - SESSION SERVICE ACCUMULATOR 04250040 OUXBJBT DC F'0' - SESSION TIME ACCUMULATOR 04300040 OUXBTRS DC F'0' - TRANSACTION SERVICE ACCUMULATOR 04350040 OUXBTRT DC F'0' - TRANSACTION TIME ACCUMULATOR 04400040 OUXBJBR DC F'0' - SESSION RESIDENCY ACCUMULATOR 04450040 OUXBTRR DC F'0' - TRANSACTION RESIDENCY ACCUMULATOR 04500040 OUXBAET DC F'0' - APG BASE CPU MEASUREMENT 04506040 OUXBCPS DC D'0' - WLM CPU MEASRMT - 64BIT NMB @Z30WIMG 04520040 OUXBMSS DC D'0' - WLM MSO BASE SERVICE VALUE @Z40BPCH 04550040 OUXBITD DC F'0' - IOL BASE START TIME 04600040 OUXBSTD DC F'0' - AUX BASE START TIME 04750040 OUXBPRS DC F'0' - PERF GRP PERIOD STARTING SERVICE 04800040 OUXBWCT DC H'0' - APG BASE SHORT WAIT COUNT 04810040 OUXBRSV1 DC H'0' - RESERVED @ZA10808 04820040 OUXBILS DC F'0' - IOL BASE MEASUREMENT @ZA10808 04850040 OUXBVSC DC H'0' - AUX BASE VAM SLOT COUNT 04950040 OUXBUIC DC H'0' - HIGHEST UNREF FRAME COUNT @Z40BPCH 04970040 OUXBNVC DC H'0' - AUX BASE NONVAM SLOT COUNT 05000040 OUXBFIXC DC H'0' - BASE USER FIXED FRAME COUNT @Z40BPCH 05010040 OUXBTSW DC A(0) - TRANSWAP ECB ADDRESS @ZA16887 05025040 OUXBEND DS 0D - END OF OUXB 05050040 OUXBLEN EQU OUXBEND-OUXB - LENGTH OF OUXB 05100040 AIF ('&LABEL' EQ '').OUXBAL4 05150040 &LABEL EQU OUXB 05200040 .OUXBAL4 ANOP 05250040 MEND 05300040 * */ 05350040 *%OUXBPLS2: ; 05400040 * %IF OUXB9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 05450040 * %THEN %OUXB9999 = ';'; /* NO, END DECLARE STATEMENT */ 05500040 * %IF OUXBLEVL ^= '' /* IS STRUCTURE CONCATENATED */ 05550040 * %THEN %GOTO OUXBPLS3; /* YES, OMIT DECLARE STATEMENT */ 05600040 * DCL 05650040 * 1 OUXB BASED(OUXBPTR) BDY(DWORD), 05700040 * %GOTO OUXBPLS4; /* SKIP USER-GIVEN LEVEL */ 05750040 *%OUXBPLS3: OUXBDUM = OUXBLEVL||' OUXB'; /* PICK UP GIVEN LEVEL */ 05800040 * OUXBDUM BDY(DWORD), 05850040 *%OUXBPLS4: ; 05900040 * 10 OUXBNAME CHAR(4), /* BLOCK IDENTIFICATION - 'OUXB' */ 05950040 * 10 OUXBPET FIXED UNSIGNED, /* PRA BASE CPU MEASUREMENT */ 06000040 * 10 OUXBMET FIXED UNSIGNED, /* MSO BASE CPU MEASUREMENT */ 06050040 * 10 OUXBRSW PTR(31), /* REQSWAP ECB ADDRESS OR, IF HIGH 06060040 * ORDER BIT IS ON, ADDRESS OF A 06070040 * LIST. @ZA20975*/ 06080040 * 10 OUXBPIN FIXED, /* INTERVAL PAGE-IN ACCUMULATOR */ 06100040 * 10 OUXBPOUT FIXED, /* INTERVAL PAGE-OUT ACCUMULATOR */ 06150040 * 10 OUXBPREC FIXED, /* INTERVAL RECLAIM ACCUMULATOR */ 06200040 * 10 OUXBVAMI FIXED, /* NTVL VAM PAGE-IN ACCUMULATOR */ 06250040 * 10 OUXBVAMO FIXED, /* NTVL VAM PAGE-OUT ACCUMULATOR */ 06300040 * 10 OUXBVAMR FIXED, /* NTVL VAM RECLAIM ACCUMULATOR */ 06350040 * 10 OUXBCAPI FIXED, /* COMMON PAGE-IN ACCUM @Z30WIMG*/ 06400040 * 10 OUXBCAPR FIXED, /* COMMON RECLAIM ACCUM @Z30WIMG*/ 06410040 * 10 OUXBSTCT FIXED, /* PAGES STOLEN ACCUM @Z40BPCH*/ 06420040 * 10 OUXBIOS FIXED(15), /* WLM BASE I/O MEASUREMENT */ 06450040 * 10 OUXBSTC FIXED(15), /* INTERVAL STEAL CALL COUNT */ 06480040 * 10 OUXBIOSM FIXED(32), /* SMF BASE EXCP COUNT @ZA10808*/ 06490040 * 10 OUXBNQT FIXED UNSIGNED, /* ENQ RESIDENCY START TIME */ 06600040 * 10 OUXBTRC FIXED, /* SESSION TRANSACTION COUNT */ 06650040 * 10 OUXBJBS FIXED, /* SESSION SERVIC ACCUMULATOR */ 06700040 * 10 OUXBJBT FIXED, /* SESSION TIME ACCUMULATOR */ 06750040 * 10 OUXBTRS FIXED, /* TRANSACTION SRVC ACCUMULATOR */ 06800040 * 10 OUXBTRT FIXED, /* TRANSACTION TIME ACCUMULATOR */ 06850040 * 10 OUXBJBR FIXED, /* SESSION RESIDENT ACCUMULATOR */ 06900040 * 10 OUXBTRR FIXED, /* TRANSACT RESIDNT ACCUMULATOR */ 06950040 * 10 OUXBAET FIXED UNSIGNED, /* APG BASE CPU MEASUREMENT */ 06956040 * 10 OUXBCPS BIT(64) BDY(DWORD), /* WLM BASE CPU MSRM @Z30WIMG*/ 06970040 * 10 OUXBMSS BIT(64) BDY(DWORD), /* WLM BASE MSO SERVICE VALUE 07000040 * @Z40BPCB*/ 07020040 * 10 OUXBITD FIXED UNSIGNED, /* IOL BASE START TIME */ 07100040 * 10 OUXBSTD FIXED UNSIGNED, /* AUX BASE START TIME */ 07200040 * 10 OUXBPRS FIXED, /* PG PERIOD STARTING SERVICE */ 07250040 * 10 OUXBWCT FIXED(15), /* APG BASE SHORT WAIT COUNT */ 07260040 * 10 OUXBRSV1 FIXED(15), /* RESERVED @ZA10808*/ 07270040 * 10 OUXBILS FIXED(32), /* IOL BASE I/O MEASUREMENT @ZA10808*/ 07300040 * 10 OUXBVSC FIXED(16), /* AUX BASE VAM SLOT COUNT @ZA33468*/ 07400040 * 10 OUXBUIC FIXED(15), /*HIGHEST UNREF FRAME COUNT @Z40BPCH*/ 07410040 * 10 OUXBNVC FIXED(16), /* AUX BASE NONVAM SLOT COUNT 07420040 * @ZA33468*/ 07430040 * 10 OUXBFIXC FIXED(15), /* BASE USER FIXED FRAME COUNT 07458040 * @Z40BPCH*/ 07482040 * 10 OUXBTSW PTR(31), /* TRANSWAP ECB ADDRESS OR, IF HIGH 07486040 * ORDER BIT IS ON, ADDRESS OF A 07536040 * LIST. (@ZA16887) @ZA20975*/ 07586040 * 10 OUXBEND CHAR(0) BDY(DWORD) /* END OF OUXB */ 07636040 * OUXB9999 07686040 * %OUXBLEN = 'LENGTH(OUXB)'; /* SYMBOLIC FOR LENGTH OF OUXB */ 07736040