* %GOTO RQSVPLS1; /* 00050040 MACRO 00100040 IRARQSRV &DSECT=YES */ 00150040 *%RQSVPLS1: ; 00200040 * /* */ 00250040 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00300040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00330040 * /* *************************************************************** */ 00400040 * /* */ 00450040 * /* MACRO NAME - IRARQSRV */ 00500040 * /* */ 00550040 * /* DESCRIPTIVE NAME - REQUEST SERVICE STORAGE AREA */ 00600040 * /* */ 00650040 * /* COPYRIGHT - NONE */ 00700040 * /* */ 00750040 * /* STATUS - OS/VS2 RELEASE 4, 04/07/76, LEVEL=2 */ 00770040 * /* */ 00850040 * /* FUNCTION - THE RQSV PROVIDES A STORAGE AREA TO TEMPORARILY */ 00900040 * /* SAVE INFORMATION GATHERED BY SYSEVENT 49 SO THAT IT CAN */ 00920040 * /* LATER STORE IT INTO SMF AREA UNDER A DIFFERENT KEY. */ 00950040 * /* */ 01050040 * /* METHOD OF ACCESS - THE ADDRESS OF THE RQSV IS CONTAINED IN */ 01350040 * /* THE -RMCTRQSV- FIELD OF THE SYSTEM RESOURCES MANAGER */ 01400040 * /* CONTROL TABLE. */ 01450040 * /* */ 01500040 * /* *************************************************************** */ 01550040 * %GOTO RQSVPLS2; /* 01600040 AGO .RQSVAL1 */ 01650040 * /* *************************************************************** */ 01700040 * /* */ 01750040 * /* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 01800040 * /* */ 01850040 * /* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 01900040 * /* */ 01950040 * /* USING ON RQSV GIVES ADDRESSABILITY TO ALL SYMBOLS. */ 02000040 * /* */ 02050040 * /* PLS - %RQSVLEVL='USERLEVL' IF THE RQSV MAPPING IS TO BE */ 02100040 * /* CONCATENATED WITH A PREVIOUS DECLARATION, WITH THE */ 02150040 * /* RQSV BEING ASSIGNED THE INDICATED STRUCTURE LEVEL. */ 02200040 * /* - %RQSV9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED. */ 02250040 * /* */ 02300040 * /* TO ACCESS AS A STANDALONE STRUCTURE DCL RQSVPTR PTR. */ 02350040 * /* */ 02400040 * /* CHANGE ACTIVITY = */ 02450040 * /* */ 02500040 * /* A000000-999999 @Z40BPEB*/ 02550040 * /* */ 02600040 * /* *************************************************************** */ 02650040 * /* 02700040 .RQSVAL1 ANOP 02750040 SPACE 1 02800040 AIF ('&DSECT' EQ 'NO').RQSVAL2 02850040 RQSV DSECT 02900040 AGO .RQSVAL3 02950040 .RQSVAL2 ANOP 03000040 DS 0D 03050040 RQSV EQU * 03100040 .RQSVAL3 ANOP 03150040 SPACE 1 03200040 RQSVDATA DS 0F STORAGE FOR EVENT 49 @ZM43092 03220040 ORG RQSVDATA @ZM43092 03250040 RQSVSRV DS F - TRANSACTION SERVICE 03300040 RQSVTIM DS F - TRANSACTION ACTIVE TIME 03350040 RQSVPGSC DS F - PGN AND TRANSACTION COUNT 03370040 RQSVSRT DS F - SESSION RESIDENCY TIME 03450040 RQSVRSV DS F - RESERVED FOR FUTURE 03500040 RQSVEND DS 0D - END OF RQSV 03550040 RQSVLEN EQU RQSVEND-RQSV - LENGTH OF RQSV 04400040 MEND 04450040 * */ 04500040 *%RQSVPLS2: ; 04550040 * %IF RQSV9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 04600040 * %THEN %RQSV9999 = ';'; /* NO, END DECLARE STATEMENT */ 04650040 * %IF RQSVLEVL ^= '' /* IS STRUCTURE CONCATENATED */ 04700040 * %THEN %GOTO RQSVPLS3; /* YES, OMIT DECLARE STATEMENT */ 04750040 * DCL 04800040 * 1 RQSV BASED(RQSVPTR) BDY(WORD), 04850040 * %GOTO RQSVPLS4; /* SKIP USER-GIVEN LEVEL */ 04900040 *%RQSVPLS3: RQSVDUM = RQSVLEVL||' RQSV'; /* PICK UP GIVEN LEVEL */ 04950040 * RQSVDUM BDY(WORD), 05000040 *%RQSVPLS4: ; 05050040 * 5 RQSVDATA CHAR(16) BDY(WORD), /* SMF DATA AREA @ZM43092*/ 05060040 * 10 RQSVSRV FIXED(31), /* TOTAL TRANSACTION SERVICE */ 05070040 * 10 RQSVTIM FIXED(31), /* TRANSACTION ACTIVE TIME */ 05100040 * 10 RQSVPGSC CHAR(4) BDY(WORD), /* PGN AND TRANSACTION COUNT */ 05150040 * 15 RQSVPGN FIXED(15), /* PEFORMANCE GROUP NUMBER */ 05200040 * 15 RQSVTRC FIXED(15), /* TRANSACTION COUNT */ 05250040 * 10 RQSVSRT FIXED(31), /* SESSION RESIDENCY TIME */ 05280040 * 5 RQSVRSV FIXED(31), /* RESERVED */ 05350040 * 5 RQSVEND CHAR(0) /* END OF STORAGE AREA */ 05400040 * RQSV9999 05500040 * %RQSVLEN = 'LENGTH(RQSV)'; /* SYMBOLIC FOR LENGTH OF RQSV */ 05550040