* %GOTO WPGDPLS1; /* 00050002 MACRO 00100002 IRAWPGDT &DSECT=YES 00150002 IEZBITS */ 00200002 *%WPGDPLS1: ; 00250002 * /* */ 00300002 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00350040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00380040 * /* *************************************************************** */ 00450002 * /* */ 00500002 * /* MACRO NAME - IRAWPGDT */ 00550002 * /* */ 00600002 * /* DESCRIPTIVE NAME - PERFORMANCE GROUP TABLE DESCRIPTION */ 00650002 * /* */ 00700002 * /* COPYRIGHT - NONE */ 00750002 * /* */ 00800002 * /* STATUS - OS/VS2 RELEASE 4, 07/30/75, LEVEL=1 */ 00820040 * /* */ 00900002 * /* FUNCTION - THE WPGD PROVIDES THE DESCRIPTION OF HOW SERVICE */ 00950002 * /* OBJECTIVES ARE ASSOCIATED TO GIVEN USER TRANSACTIONS */ 01000002 * /* AT VARIOUS PERIODS OF THEIR EXISTENCE. IT ALSO KEEPS */ 01050002 * /* A HISTORY OF THE RATE OF UTILIZATION OF RESOURCES BY */ 01100002 * /* THE TRANSACTIONS. */ 01150002 * /* */ 01200002 * /* THE WPGP'S, WHICH ARE LISTED SEQUENTIALLY IN THE WPGD, */ 01250002 * /* DEFINE PERIODS OF PROCESSING OR OF TIME, AND INDICATE */ 01300002 * /* THE PERFORMANCE OBJECTIVES (I.E. - THE SERVICE RATES), */ 01350002 * /* AND THE RESIDENCY INTERVALS, TO BE APPLIED. */ 01400002 * /* */ 01450002 * /* METHOD OF ACCESS - THE ADDRESS OF THE WPGD FOR A PARTICULAR */ 01500002 * /* SYSTEM USER IS OBTAINED BY ADDING THE OFFSET IN THE */ 01550002 * /* -OUCBWMG- FIELD OF THE SYSTEM RESOURCES MANAGER USER */ 01600002 * /* CONTROL BLOCK TO THE ADDRESS IN THE -WMSTPGDT- FIELD */ 01650002 * /* OF THE WORKLOAD MANAGER SPECIFICATION TABLE. */ 01700002 * /* */ 01750002 * /* THE ADDRESS OF THE CURRENT WPGP IS OBTAINED BY ADDING */ 01800002 * /* THE OFFSET IN THE -OUCBPGP- FIELD TO THE ADDRESS OF */ 01850002 * /* THE WPGD. THE ADDRESS OF A PARTICULAR WPGL VALUE IS */ 01900002 * /* ALSO OBTAINED BY ADDING ITS INDICATED OFFSET TO THE */ 01950002 * /* ADDRESS OF THE WPGD. */ 02000002 * /* */ 02050002 * /* *************************************************************** */ 02100002 * %GOTO WPGDPLS2; /* 02150002 AGO .WPGDAL1 */ 02200002 * /* *************************************************************** */ 02250002 * /* */ 02300002 * /* CONSTRUCTION METHOD - THE ADDRESS OF THE 1ST WPGD IS PLACED */ 02350002 * /* IN THE -WMSTPGDT- FIELD OF THE WORKLOAD MANAGER SPECI- */ 02400002 * /* FICATION TABLE. THE OFFSET TO THE WPGD FOR A GIVEN */ 02450002 * /* PERFORMANCE GROUP NUMBER IS PLACED IN THE -WPGVTENT- */ 02500002 * /* FIELD OF THE CORRESPONDING (NUMBERED) ENTRY IN THE */ 02550002 * /* WORKLOAD MANAGER PERFORMANCE GROUP VECTOR TABLE. */ 02600002 * /* */ 02650002 * /* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 02700002 * /* */ 02750002 * /* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 02800002 * /* */ 02850002 * /* USING ON WPGD GIVES ADDRESSABILITY TO WPGD SYMBOLS. */ 02900002 * /* USING ON WPGP GIVES ADDRESSABILITY TO WPGP SYMBOLS. */ 02950002 * /* USING ON WPGL GIVES ADDRESSABILITY TO WPGL SYMBOLS. */ 02970002 * /* */ 03000002 * /* PLS - %WPGDLEVL='USERLEVL' IF THE WPGD MAPPING IS TO BE */ 03050002 * /* CONCATENATED WITH A PREVIOUS DECLARATION, WITH THE */ 03100002 * /* WPGD BEING ASSIGNED THE INDICATED STRUCTURE LEVEL. */ 03150002 * /* - %WPGD9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED. */ 03200002 * /* */ 03250002 * /* TO ACCESS AS A SET OF STANDALONE STRUCTURES, */ 03300002 * /* DECLARE WPGDPTR PTR FOR THE WPGD, */ 03350002 * /* WPGPPTR PTR FOR THE WPGP, */ 03400002 * /* WPGLPTR PTR FOR THE WPGL. */ 03450002 * /* */ 03500002 * /* CHANGE ACTIVITY = */ 03550002 * /* */ 03600002 * /* A000000-999999 Y02133*/ 03650002 * /* */ 03700002 * /* *************************************************************** */ 03750002 * /* 03800002 .WPGDAL1 ANOP 03850002 SPACE 1 03900002 AIF ('&DSECT' EQ 'NO').WPGDAL2 03950002 WPGD DSECT 04000002 AGO .WPGDAL3 04050002 .WPGDAL2 ANOP 04100002 DS 0F 04150002 WPGD EQU * 04200002 .WPGDAL3 ANOP 04250002 SPACE 1 04300002 WPGDPGN DS AL1 - PERFORMANCE GROUP NUMBER 04350002 WPGDSIZ DS AL1 - PERFORMANCE GROUP DESCRIPTOR SIZE-1 04400002 WPGDR02 DS CL1 - RESERVED 04450002 WPGDDFL DS CL1 - PERFORMANCE GROUP DESCRIPTIVE FLAGS 04460002 WPGDVLD EQU BIT0 - VALID PERFORMANCE GROUP IN NEW IPS 04470002 WPGDATM DS F - AVG TIME TO ABSORB ISV SERVICE AMT 04500002 WPGDISV DS F - PERFM GRP INTERVAL SERVICE VALUE 04550002 WPGDPGP DS 0F - 1ST PERIOD ENTRY FOR PERFM GROUP 04600002 WPGDOBJN DS AL1 - PG PERIOD PERFORMANCE OBJECTIVE NO. 04650002 WPGDDMN DS AL1 - PG PERIOD DOMAIN NO. @Z40BPCH 04660040 DS CL2 - RESERVED @Z40BPCH 04670040 WPGDAPGV DS CL1 - APG VALUE IF SPECIFIED @Z40BPCH 04673040 WPGDINDS DS CL1 - PG PERIOD DESCRIPTIVE INDICATORS 04700002 WPGDFIN EQU BIT0 - FINAL PERFORMANCE GROUP PERIOD 04750002 WPGDUNT EQU BIT1 - PG PERIOD DURATION IS IN REAL TIME 04800002 WPGDAPG EQU BIT2 - APG VALUE SPECIFIED @Z40BPCH 04820040 WPGDRTB EQU BIT7 - PG PERIOD RESPONSE/THROUGHPUT BIAS 04850002 WPGDISVP DS AL1 - PGP INTERVAL SERVICE VALUE OFFSET 04900002 WPGDDURP DS AL1 - PGP DURATION VALUE OFFSET IN WPGD 04950002 WPGDPGL DS 0F - START OF POSSIBLE WPGD EXTENSION 05000002 WPGDEND DS 0F - END OF WPGD 05050002 WPGDLEN EQU WPGDEND-WPGD - LENGTH OF WPGD 05100002 AIF ('&DSECT' EQ 'NO').WPGDAL4 05150002 SPACE 1 05200002 WPGP DSECT 05250002 SPACE 1 05300002 WPGPOBJN DS AL1 - PERFORMANCE OBJECTIVE NUMBER 05350002 WPGPDMN DS AL1 - DOMAIN NUMBER @Z40BPCH 05360040 DS CL2 - RESERVED @Z40BPCH 05370040 WPGPAPGV DS CL1 - APG VALUE IF SPECIFIED @Z40BPCH 05373040 WPGPINDS DS CL1 - PERIOD DESCRIPTIVE INDICATORS 05400002 WPGPFIN EQU BIT0 - FINAL PERIOD FOR PERFORMANCE GROUP 05450002 WPGPUNT EQU BIT1 - PERIOD DURATION IS IN REAL TIME 05500002 WPGPAPG EQU BIT2 - APG VALUE SPECIFIED @Z40BPCH 05520040 WPGPRTB EQU BIT7 - PERIOD RESPONSE/THROUGHPUT BIAS 05550002 WPGPISVP DS AL1 - INTERVAL SERVICE VALUE OFFSET 05600002 WPGPDURP DS AL1 - PERIOD DURATION VALUE OFFSET 05650002 WPGPEND DS 0F - END OF WPGP 05700002 WPGPLEN EQU WPGPEND-WPGP - LENGTH OF WPGP 05750002 SPACE 1 05800002 WPGL DSECT 05850002 SPACE 1 05900002 WPGLISV DS 0F - INTERVAL SERVICE VALUE FOR A PERIOD 05950002 WPGLDUR DS 0F - PERIOD DURATION VALUE FOR A PERIOD 06000002 DS F - SPECIFIED VALUE STORAGE AREA 06050002 WPGLEND DS 0F - END OF WPGL 06100002 WPGLLEN EQU WPGLEND-WPGL - LENGTH OF WPGL 06150002 .WPGDAL4 ANOP 06200002 MEND 06250002 * */ 06300002 *%WPGDPLS2: ; 06350002 * %IF WPGD9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 06400002 * %THEN %WPGD9999 = ';'; /* NO, END DECLARE STATEMENT */ 06450002 * %IF WPGDLEVL ^= '' /* IS STRUCTURE CONCATENATED */ 06500002 * %THEN %GOTO WPGDPLS3; /* YES, OMIT DECLARE STATEMENT */ 06550002 * DCL 06600002 * 1 WPGD BASED(WPGDPTR) BDY(WORD), 06650002 * %GOTO WPGDPLS4; /* SKIP USER-GIVEN LEVEL */ 06700002 *%WPGDPLS3: WPGDDUM = WPGDLEVL||' WPGD'; /* PICK UP GIVEN LEVEL */ 06750002 * WPGDDUM BDY(WORD), 06800002 *%WPGDPLS4: ; 06850002 * 10 WPGDPGN PTR(08), /* PERFORMANCE GROUP NUMBER */ 06900002 * 10 WPGDSIZ PTR(08), /* PERF GROUP DESCRIPTOR SIZE-1 */ 06950002 * 10 WPGDR02 FIXED(08), /* RESERVED */ 07000002 * 10 WPGDDFL BIT(8), /* PERF GROUP DESCRIPTIVE FLAGS */ 07010002 * 12 WPGDVLD BIT(1), /* VALID PERF GROUP IN NEW IPS */ 07020002 * 12 WPGDRD1 BIT(7), /* RESERVED */ 07030002 * 10 WPGDATM FIXED(32) UNSIGNED, /* TIME TO ABSORB ISV SERVIC */ 07050002 * 10 WPGDISV FIXED, /* BASE ISV SERVICE FOR PERF GRP */ 07100002 * 10 WPGDPGP CHAR(8) BDY(WORD), /* 1ST PGP ENTRY FOR PERF GRP 07120040 * @Z40BPCH*/ 07150040 * 12 WPGDOBJN PTR(8), /* PGP PERFORMANCE OBJECTIVE NO. */ 07200002 * 12 WPGDDMN PTR(8), /* PGP DOMAIN NO. @Z40BPCH */ 07210040 * 12 * CHAR(2) BDY(HWORD), /* RESERVED @Z40BPCH */ 07220040 * 12 WPGDAPGV PTR(8), /* APG VALUE IF SPEC @Z40BPCH */ 07223040 * 12 WPGDINDS BIT(8), /* PERF GRP PERIOD INDICATORS */ 07250002 * 14 WPGDFIN BIT(1), /* FINAL PERF GROUP PERIOD */ 07300002 * 14 WPGDUNT BIT(1), /* PGP DURATION IS IN REAL TIME */ 07350002 * 14 WPGDAPG BIT(1), /* APG VALUE SPECIFEID @Z40BPCH */ 07370040 * 14 WPGDRB2 BIT(4), /* RESERVED */ 07400040 * 14 WPGDRTB BIT(1), /* PGP RESPONSE/THROUGHPUT BIAS */ 07450002 * 12 WPGDISVP PTR(8), /* PGP INTVL SERV VALUE OFFSET */ 07500002 * 12 WPGDDURP PTR(8), /* PGP DURATION OFFSET IN WPGD */ 07550002 * 10 WPGDPGL CHAR(0) BDY(WORD), /* BEGIN FIXED(31) DUR OR ISV */ 07600002 * 10 WPGDEND CHAR(0) BDY(WORD) /* END OF WPGD */ 07650002 * %IF WPGDLEVL ^= '' /* IS STRUCTURE CONCATENATED */ 07700002 * %THEN %GOTO WPGDPLS5; /* YES, OMIT WPGP STANDALON SPEC */ 07750002 * , 07800002 * 1 WPGP BASED(WPGPPTR) BDY(WORD), /* PERFORMANCE PERIOD ENTRY */ 07850002 * 10 WPGPOBJN PTR(8), /* PERFORMANCE OBJECTIVE NUMBER */ 07900002 * 10 WPGPDMN PTR(8), /* DOMAIN NUMBER @Z40BPCH */ 07910040 * 10 * CHAR(2) BDY(HWORD), /* RESERVED @Z40BPCH */ 07920040 10 WPGPAPGV PTR(8), /* APG VALUE IF SPEC. @Z40BPCH */ 07923040 * 10 WPGPINDS BIT(8), /* PERIOD DESCRIPTIVE INDICATORS */ 07950002 * 12 WPGPFIN BIT(1), /* FINAL PERIOD FOR PERF GROUP */ 08000002 * 12 WPGPUNT BIT(1), /* PERIOD DURATION IS REAL TIME */ 08050002 * 12 WPGPAPG BIT(1), /* APG VALUE SPECIFIED @Z40BPCH */ 08070040 * 12 WPGPRB2 BIT(4), /* RESERVED */ 08100040 * 12 WPGPRTB BIT(1), /* PERIOD RESPONSE/THRUPUT BIAS */ 08150002 * 10 WPGPISVP PTR(8), /* PERIOD INTVL SERV VALU OFFSET */ 08200002 * 10 WPGPDURP PTR(8), /* PERIOD DURATN OFFSET IN WPGD */ 08250002 * 10 WPGPEND CHAR(0) BDY(WORD) /* END OF WPGP */ 08300002 * , 08350002 * 1 WPGL BASED(WPGLPTR) BDY(WORD), /* SPECIFIED VALUE STORE AREA */ 08400002 * 10 WPGLISV FIXED(31), /* INTVL SERV VALUE FOR ANY PGP */ 08450002 * 12 WPGLDUR FIXED(32) UNSIGNED, /* DURATN VLU FOR ANY PGP */ 08500002 * 10 WPGLEND CHAR(0) BDY(WORD) /* END OF WPGL */ 08550002 * %WPGPLEN = 'LENGTH(WPGP)'; /* SYMBOLIC FOR LENGTH OF WPGP */ 08600002 * %WPGLLEN = 'LENGTH(WPGL)'; /* SYMBOLIC FOR LENGTH OF WPGL */ 08650002 *%WPGDPLS5: ; 08700002 * WPGD9999 08750002 * %WPGDLEN = 'LENGTH(WPGD)'; /* SYMBOLIC FOR LENGTH OF WPGD */ 08800002