* %GOTO WMSTPLS1; /* 00050002 MACRO 00100002 IRAWMST &DSECT=YES */ 00150002 *%WMSTPLS1: ; 00200002 * /* */ 00250002 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00300040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00330040 * /* *************************************************************** */ 00400002 * /* */ 00450002 * /* MACRO NAME - IRAWMST */ 00500002 * /* */ 00550002 * /* DESCRIPTIVE NAME - WORKLOAD MANAGER SPECIFICATION TABLE */ 00600002 * /* */ 00650002 * /* COPYRIGHT - NONE */ 00700002 * /* */ 00750002 * /* STATUS - OS/VS2 RELEASE 4, 09/17/75, LEVEL=1 */ 00800040 * /* */ 00850002 * /* FUNCTION - THE WMST COMBINES IN A SINGLE TABLE THE INFORMA- */ 00900002 * /* TION REQUIRED BY THE VARIOUS ROUTINES WHICH REFERENCE */ 00950002 * /* THE INSTALLATION PERFORMANCE SPECIFICATION. THE WMST */ 01000002 * /* RESIDES IN SQA, AND IS DYNAMICALLY CONSTRUCTED DURING */ 01050002 * /* SYSTEM INITIALIZATION, AND DURING SET IPS PROCESSING. */ 01100002 * /* THE IPS USED BY THE SYSTEM RESOURCES MANAGER MAY BE */ 01150002 * /* CHANGED BY SIMPLY SUBSTITUTING THE ADDRESS OF THE NEW */ 01200002 * /* WMST INTO -RMCTWMST-. */ 01250002 * /* */ 01300002 * /* METHOD OF ACCESS - THE ADDRESS OF THE WMST IS CONTAINED IN */ 01350002 * /* THE -RMCTWMST- FIELD OF THE SYSTEM RESOURCES MANAGER */ 01400002 * /* CONTROL TABLE. */ 01450002 * /* */ 01500002 * /* *************************************************************** */ 01550002 * %GOTO WMSTPLS2; /* 01600002 AGO .WMSTAL1 */ 01650002 * /* *************************************************************** */ 01700002 * /* */ 01750002 * /* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 01800002 * /* */ 01850002 * /* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 01900002 * /* */ 01950002 * /* USING ON WMST GIVES ADDRESSABILITY TO ALL SYMBOLS. */ 02000002 * /* */ 02050002 * /* PLS - %WMSTLEVL='USERLEVL' IF THE WMST MAPPING IS TO BE */ 02100002 * /* CONCATENATED WITH A PREVIOUS DECLARATION, WITH THE */ 02150002 * /* WMST BEING ASSIGNED THE INDICATED STRUCTURE LEVEL. */ 02200002 * /* - %WMST9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED. */ 02250002 * /* */ 02300002 * /* TO ACCESS AS A STANDALONE STRUCTURE DCL WMSTPTR PTR. */ 02350002 * /* */ 02400002 * /* CHANGE ACTIVITY =@ZM43084 */ 02450040 * /* */ 02500002 * /* A000000-999999 Y02133*/ 02550002 * /* */ 02600002 * /* *************************************************************** */ 02650002 * /* 02700002 .WMSTAL1 ANOP 02750002 SPACE 1 02800002 AIF ('&DSECT' EQ 'NO').WMSTAL2 02850002 WMST DSECT 02900002 AGO .WMSTAL3 02950002 .WMSTAL2 ANOP 03000002 DS 0D 03050002 WMST EQU * 03100002 .WMSTAL3 ANOP 03150002 SPACE 1 03200002 WMSTNAME DS C'WMST' - TABLE IDENTIFICATION 03250002 WMSTID DS CL2 - PERF. SPECIFICATION IDENTIFIER 03300002 WMSTWLLO DS H - LOWEST WORKLOAD LEVEL SPECIFIED 03350002 WMSTPGVT DS A - PERF GROUP VECTOR TABLE ADDRESS 03400002 WMSTPGVS DS F - PERF GROUP VECTOR TABLE SIZE 03450002 WMSTPGDT DS A - FIRST PERF GROUP DESCRIPTOR ADDRESS 03500002 WMSTPGDS DS F - TOTAL PERF GROUP DESCRIPTOR SIZE 03550002 WMSTPOVT DS A - PERF OBJECTIVE VECTOR TABLE ADDRESS 03600002 WMSTPOVS DS F - PERF OBJECTIVE VECTOR TABLE SIZE 03650002 WMSTPODT DS A - 1ST PERF OBJECTIVE DESCRIPT ADDRESS 03700002 WMSTPODS DS F - TOT PERF OBJECTIVE DESCRIPT SIZE 03750002 WMSTDMDT DS A - FIRST DOMAIN DESCRIPTR ADDR @Z40BPCH 03760040 WMSTDMDS DS F - TOT DOMAIN DESCRIPTOR SIZE @Z40BPCH 03770040 WMSTDMVT DS A - DOMAIN VECTOR TABLE ADDR @Z40BPCH 03780040 WMSTDMVS DS F - DOMAIN VECTOR TABLE SIZE @Z40BPCH 03790040 WMSTDMDE DS A - DMN TABLE LAST ENTRY ADDR @Z40BPCH 03795040 WMSTWLHI DS H - HIGHEST WORKLOAD LEVEL SPEC @Z40BPCH 03800040 WMSTPGHI DS H - HIGHEST PERF GROUP NUMBER 03850002 WMSTPGPC DS H - TOTAL COUNT OF PERF GROUP PERIODS 03900002 WMSTDMNC DS H - TOTAL DOMAIN COUNT @Z40BPCH 03920040 WMSTCPU DS F - CPU SERVICE COEFFICIENT 03950002 WMSTIOC DS F - IOC SERVICE COEFFICIENT 04000002 WMSTMSO DS F - MSO SERVICE COEFFICIENT 04050002 WMSTREAL DS CL1 REAL TIME INDICATOR @ZM43084 04100040 WMSTRSVD DS CL3 RESERVED @ZM43084 04110040 WMSTSET DS A - SET IPS PROCESSOR ROUTINE ADDRESS 04150002 WMSTSTCB DS A - SET IPS PROCESSOR TASK ADDRESS 04200002 WMSTNWST DS A - SET IPS PROCESSOR NXT WMST ADDRESS 04250002 WMSTSECB DS F - ECB FOR SET IPS PROCESSOR 04300002 WMSTIPC DS CL4 - CPU SERVICE COEFICIENT @Z40BPCH 04320040 WMSTIPI DS CL4 - I/O SERVICE COEFFICIENT @Z40BPCH 04330040 WMSTIPM DS CL4 - MSO SERVICE COEFFICIENT @Z40BPCH 04340040 WMSTEND DS 0D - END OF WMST 04350002 WMSTLEN EQU WMSTEND-WMST - LENGTH OF WMST 04400002 MEND 04450002 * */ 04500002 *%WMSTPLS2: ; 04550002 * %IF WMST9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 04600002 * %THEN %WMST9999 = ';'; /* NO, END DECLARE STATEMENT */ 04650002 * %IF WMSTLEVL ^= '' /* IS STRUCTURE CONCATENATED */ 04700002 * %THEN %GOTO WMSTPLS3; /* YES, OMIT DECLARE STATEMENT */ 04750002 * DCL 04800002 * 1 WMST BASED(WMSTPTR) BDY(DWORD), 04850002 * %GOTO WMSTPLS4; /* SKIP USER-GIVEN LEVEL */ 04900002 *%WMSTPLS3: WMSTDUM = WMSTLEVL||' WMST'; /* PICK UP GIVEN LEVEL */ 04950002 * WMSTDUM BDY(DWORD), 05000002 *%WMSTPLS4: ; 05050002 * 10 WMSTNAME CHAR(4), /* TABLE IDENTIFICATION - 'WMST' */ 05100002 * 10 WMSTID CHAR(2) BDY(WORD), /* PERF SPECIFICATION ID */ 05150002 * 10 WMSTWLLO FIXED(15), /* LOWEST WORKLOAD LEVEL SPEC'D */ 05200002 * 10 WMSTPGVT PTR(31), /* PERF GRP VECTOR TABLE ADDR */ 05250002 * 10 WMSTPGVS FIXED, /* PERF GRP VECTOR TABLE SIZE */ 05300002 * 10 WMSTPGDT PTR(31), /* 1ST PERF GRP DESCRIPTOR ADDR */ 05350002 * 10 WMSTPGDS FIXED, /* TOT PERF GRP DESCRIPTOR SIZE */ 05400002 * 10 WMSTPOVT PTR(31), /* PERF OBJ VECTOR TABLE ADDR */ 05450002 * 10 WMSTPOVS FIXED, /* PERF OBJ VECTOR TABLE SIZE */ 05500002 * 10 WMSTPODT PTR(31), /* 1ST PERF OBJ DESCRIPTOR ADDR */ 05550002 * 10 WMSTPODS FIXED, /* TOT PERF OBJ DESCRIPTOR SIZE */ 05600002 * 10 WMSTDMDT PTR(31), /* FIRST DMN DESC ADDR @Z40BPCH*/ 05610040 * 10 WMSTDMDS FIXED(31), /* TOT DOMAIN DESC SIZE @Z40BPCH*/ 05620040 * 10 WMSTDMVT PTR(31), /* DMN VECTOR TABLE ADDR @Z40BPCH*/ 05630040 * 10 WMSTDMVS FIXED(31), /* DMN VECTOR TABLE SIZE @Z40BPCH*/ 05640040 * 10 WMSTDMDE PTR(31), /* DMN TAB LAST NTRY ADR @Z40BPCH*/ 05645040 * 10 WMSTWLHI FIXED(15), /* HIGHEST WORKLD LEV SP @Z40BPCH*/ 05650040 * 10 WMSTPGHI FIXED(15), /* HIGH PERF GROUP NUMBER */ 05700002 * 10 WMSTPGPC FIXED(15), /* TOTL PERF GROUP PERIOD COUNT */ 05750002 * 10 WMSTDMNC FIXED(15), /* TOT DOMAIN COUNT @Z40BPCH*/ 05770040 * 10 WMSTCPU FIXED, /* CPU SERVICE COEFFICIENT */ 05800002 * 10 WMSTIOC FIXED, /* IOC SERVICE COEFFICIENT */ 05850002 * 10 WMSTMSO FIXED, /* MSO SERVICE COEFFICIENT */ 05900002 * 10 WMSTREAL FIXED(8), /* REAL TIME INDICATOR @ZM43084*/ 05950040 * 10 WMSTRSVD FIXED(24), /* RESERVED @ZM43084*/ 05960040 * 10 WMSTSET PTR(31), /* SET PROCS ROUTINE ADDR */ 06000002 * 10 WMSTSTCB PTR(31), /* SET PROCS TASK ADDRESS */ 06050002 * 10 WMSTNWST PTR(31), /* SET PROCS NXT WMST ADR */ 06100002 * 10 WMSTSECB CHAR(4) BDY(WORD), /* SET PROCS ECB */ 06150002 * 10 WMSTIPC CHAR(4) BDY(WORD), /* CPU SERVICE COEF. @Z40BPCH*/ 06170040 * 10 WMSTIPI CHAR(4) BDY(WORD), /* I/O SERVICE COEF. @Z40BPCH*/ 06180040 * 10 WMSTIPM CHAR(4) BDY(WORD), /* MSO SERVICE COEF. @Z40BPCH*/ 06190040 * 10 WMSTEND CHAR(0) BDY(DWORD) /* END OF WMST */ 06200002 * WMST9999 06250002 * %WMSTLEN = 'LENGTH(WMST)'; /* SYMBOLIC FOR LENGTH OF WMST */ 06300002