* %GOTO OUSBPLS1; /* 00050040 MACRO 00100040 IHAOUSB &DSECT=YES,&LABEL= */ 00150040 *%OUSBPLS1: ; 00200040 * /* */ 00250040 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00300040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00350040 * /* *************************************************************** */ 00450040 * /* */ 00500040 * /* MACRO NAME - IHAOUSB */ 00550040 * /* */ 00600040 * /* DESCRIPTIVE NAME - RESOURCES MANAGER USER SWAPPABLE BLOCK */ 00650040 * /* */ 00700040 * /* COPYRIGHT - NONE */ 00750040 * /* */ 00800040 * /* STATUS - OS/VS2 RELEASE 4, 09/19/75, LEVEL=1 */ 00850040 * /* */ 00900040 * /* FUNCTION - THE OUSB IS USED BY THE SYSTEM RESOURCES MANAGER */ 00950040 * /* TO SAVE INFORMATION FROM THE OUXB, SO THAT THE OUXB */ 01000040 * /* MAY BE FREED WHEN THE DESCRIBED ADDRESS SPACE IS */ 01050040 * /* SWAPPED OUT. THE OUSB RESIDES IN LSQA, AND IS SWAPPED */ 01100040 * /* OUT ALONG WITH THE ADDRESS SPACE. THE OUSB ALSO */ 01150040 * /* SERVES TO ACCUMULATE USER PAGING STATISTICS FOR THE */ 01200040 * /* SYSTEM RESOURCES MANAGER. */ 01250040 * /* */ 01300040 * /* METHOD OF ACCESS - THE OUSB FOR AN ADDRESS SPACE IS LOCATED */ 01350040 * /* VIA THE -ASXBOUSB- FIELD OF THE ADDRESS SPACE */ 01400040 * /* EXTENSION CONTROL BLOCK. */ 01450040 * /* */ 01500040 * /* *************************************************************** */ 01550040 * %GOTO OUSBPLS2; /* 01600040 AGO .OUSBAL1 */ 01650040 * /* *************************************************************** */ 01700040 * /* */ 01750040 * /* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 01800040 * /* */ 01850040 * /* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 01900040 * /* */ 01950040 * /* USING ON OUSB GIVES ADDRESSABILITY TO ALL SYMBOLS. */ 02000040 * /* */ 02050040 * /* PLS - %OUSBLEVL='USERLEVL' IF OUSB MAPPING IS TO BE */ 02100040 * /* CONCATENATED WITH A PREVIOUS DECLARATION, WITH THE */ 02150040 * /* OUSB BEING ASSIGNED THE INDICATED STRUCTURE LEVEL. */ 02200040 * /* - %OUSB9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED. */ 02250040 * /* */ 02300040 * /* TO ACCESS AS A STANDALONE STRUCTURE DCL OUSBPTR PTR. */ 02350040 * /* */ 02400040 * /* CHANGE ACTIVITY = */ 02450040 * /* */ 02500040 * /* A000000-999999 Y02133*/ 02550040 * /* */ 02600040 * /* *************************************************************** */ 02650040 * /* 02700040 .OUSBAL1 ANOP 02750040 SPACE 1 02800040 AIF ('&DSECT' EQ 'NO').OUSBAL2 02850040 OUSB DSECT 02900040 AGO .OUSBAL3 02950040 .OUSBAL2 ANOP 03000040 DS 0D 03050040 OUSB EQU * 03100040 .OUSBAL3 ANOP 03150040 SPACE 1 03200040 OUSBNAME DS C'OUSB' - BLOCK IDENTIFICATION 03250040 OUSBCAPI DS F - COMMON PAGE-IN ACCUMULATOR @Z30WIMG 03300040 OUSBCAPR DS F - COMMON RECLAIM ACCUMULATOR @Z30WIMG 03320040 OUSBSTCT DS F - PAGES STOLEN ACCUMULATOR @Z40BPCH 03330040 OUSBSPIN DS F - SWAPPING PAGE-IN ACCUMULATOR 03350040 OUSBSPOT DS F - SWAPPING PAGE-OUT ACCUMULATOR 03400040 OUSBSWCT DS F - SESSION SWAP COUNT ACCUMULATOR 03450040 OUSBPIN DS F - NON-VAM PAGE-IN ACCUMULATOR 03500040 OUSBPOUT DS F - NON-VAM PAGE-OUT ACCUMULATOR 03550040 OUSBPREC DS F - NON-VAM PAGE RECLAIM ACCUMULATOR 03600040 OUSBVAMI DS F - VAM PAGE-IN ACCUMULATOR 03650040 OUSBVAMO DS F - VAM PAGE-OUT ACCUMULATOR 03700040 OUSBVAMR DS F - VAM PAGE RECLAIM ACCUMULATOR 03750040 OUSBSAVE DS CL80 - SAVE AREA FOR OUXB FIELDS 03800040 OUSBR90 DS F - RESERVED @Z40BPCH 03810040 OUSBEND DS 0D - END OF OUSB 03850040 OUSBLEN EQU OUSBEND-OUSB - LENGTH OF OUSB 03900040 AIF ('&LABEL' EQ '').OUSBAL4 03910040 &LABEL EQU OUSB @Z40BPCH 03920040 .OUSBAL4 ANOP @Z40BPCH 03930040 MEND @Z40BPCH 03950040 * */ 04000040 *%OUSBPLS2: ; 04050040 * %IF OUSB9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 04100040 * %THEN %OUSB9999 = ';'; /* NO, END DECLARE STATEMENT */ 04150040 * %IF OUSBLEVL ^= '' /* IS STRUCTURE CONCATENATED */ 04200040 * %THEN %GOTO OUSBPLS3; /* YES, OMIT DECLARE STATEMENT */ 04250040 * DCL 04300040 * 1 OUSB BASED(OUSBPTR) BDY(DWORD), 04350040 * %GOTO OUSBPLS4; /* SKIP USER-GIVEN LEVEL */ 04400040 *%OUSBPLS3: OUSBDUM = OUSBLEVL||' OUSB'; /* PICK UP GIVEN LEVEL */ 04450040 * OUSBDUM BDY(DWORD), 04500040 *%OUSBPLS4: ; 04550040 * 10 OUSBNAME CHAR(04), /* BLOCK IDENTIFICATION - 'OUSB' */ 04600040 * 10 OUSBCAPI FIXED, /* COMMON PAGE-IN ACCUM @Z30WIMG*/ 04650040 * 10 OUSBCAPR FIXED, /* COMMON RECLAIM ACCUM @Z30WIMG*/ 04670040 * 10 OUSBSTCT FIXED, /* PAGES STOLEN ACCUM @Z40BPCH*/ 04680040 * 10 OUSBSPIN FIXED, /* SWAPPING PAGE-IN ACCUMULATOR */ 04700040 * 10 OUSBSPOT FIXED, /* SWAPPING PAGE-OUT ACCUMULATOR */ 04750040 * 10 OUSBSWCT FIXED, /* SESSION SWAP CNT ACCUMULATOR */ 04800040 * 10 OUSBPIN FIXED, /* SESSION PAGE-IN ACCUMULATOR */ 04850040 * 10 OUSBPOUT FIXED, /* SESSION PAGE-OUT ACCUMULATOR */ 04900040 * 10 OUSBPREC FIXED, /* SESSION RECLAIM ACCUMULATOR */ 04950040 * 10 OUSBVAMI FIXED, /* SESS VAM PAGE-IN ACCUMULATOR */ 05000040 * 10 OUSBVAMO FIXED, /* SESS VAM PAGE-OUT ACCUMULATOR */ 05050040 * 10 OUSBVAMR FIXED, /* SESS VAM RECLAIM ACCUMULATOR */ 05100040 * 10 OUSBSAVE CHAR(80) BDY(WORD), /* OUXB FIELD SAVEAREA */ 05150040 * 10 OUSBR90 FIXED, /* RESERVED @Z40BPCH*/ 05160040 * 10 OUSBEND CHAR(0) BDY(DWORD) /* END OF OUSB */ 05200040 * OUSB9999 05250040 * %OUSBLEN = 'LENGTH(OUSB)'; /* SYMBOLIC FOR LENGTH OF OUSB */ 05300040