*%; /* 00050002 MACRO 00100002 IRAWPODT &DSECT=YES 00150002 AGO .WPODAL0 */ 00160002 *@ LIST PUSH; /* SAVE LISTING STATUS FOR WPOD */ 00170002 * %IF WPODSFX = '' /* IS NAMING CHARACTER OMITTED */ 00200002 * %THEN %WPODSFX = ' '; /* YES, INSERT PLACEHOLDER BLANK */ 00210002 * %IF WPODSFX ^= ' ' /* IS THIS THE DUPLICATE INCLUDE */ 00220002 * %THEN %WPODDUM = '@ LIST OFF '; /* BYP INTRO CMT */ 00227002 * %ELSE %WPODDUM = '@ LIST PUSH'; /* DMY CNTRL CMT */ 00230002 *WPODDUM; 00233002 * %IF WPODSFX = ' ' /* IS THIS THE FIRST INCLUDE */ 00236002 * %THEN %WPODDUM = '@ LIST POP '; /* PRT INTRO CMT */ 00239002 *WPODDUM; 00242002 *%; /* 00250002 .WPODAL0 ANOP */ 00270002 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00300040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00330040 * /* *************************************************************** */ 00400002 * /* */ 00450002 * /* MACRO NAME - IRAWPODT */ 00500002 * /* */ 00550002 * /* DESCRIPTIVE NAME - PERFORMANCE OBJECTIVE TABLE DESCRIPTION */ 00600002 * /* */ 00650002 * /* COPYRIGHT - NONE */ 00700002 * /* */ 00750002 * /* STATUS - OS/VS2 RELEASE 2, 04/05/73, LEVEL=1 */ 00800002 * /* */ 00850002 * /* FUNCTION - THE WPOD SPECIFIES, AS A FUNCTION OF THE SYSTEM */ 00900002 * /* WORKLOAD, THE RATES AT WHICH RESOURCES ARE TO BE MADE */ 00950002 * /* AVAILABLE TO USER TRANSACTIONS. ACTUAL SERVICE RATES */ 01000002 * /* ARE APPLIED TO THE WPOD'S TO CALCULATE THE EQUIVALENT */ 01050002 * /* WORKLOAD LEVELS, WHOSE COMPARISON THEN INDICATES WHICH */ 01100002 * /* TRANSACTIONS ARE 'BEHIND' OR 'AHEAD' OF THE REST. */ 01150002 * /* */ 01200002 * /* THE WPOD TO BE USED FOR A TRANSACTION IS INDICATED BY */ 01250002 * /* THE -WPGPOBJN- FIELD OF THE CURRENT PERIOD WITHIN THE */ 01300002 * /* APPLICABLE PERFORMANCE GROUP DESCRIPTION. */ 01350002 * /* */ 01400002 * /* METHOD OF ACCESS - THE ADDRESS OF THE WPOD FOR A PARTICULAR */ 01450002 * /* SYSTEM USER IS OBTAINED BY ADDING THE OFFSET IN THE */ 01500002 * /* -OUCBWMO- FIELD OF THE SYSTEM RESOURCES MANAGER USER */ 01550002 * /* CONTROL BLOCK TO THE ADDRESS IN THE -WMSTPODT- FIELD */ 01600002 * /* OF THE WORKLOAD MANAGER SPECIFICATION TABLE. */ 01650002 * /* */ 01700002 * /* *************************************************************** */ 01750002 *%; /* 01800002 AGO .WPODAL1 */ 01850002 *@ LIST OFF; /* BYPASS EXPLANATORY COMMENTS */ 01870002 * /* *************************************************************** */ 01900002 * /* */ 01950002 * /* CONSTRUCTION METHOD - THE ADDRESS OF THE 1ST WPOD IS PLACED */ 02000002 * /* IN THE -WMSTPODT- FIELD OF THE WORKLOAD MANAGER SPECI- */ 02050002 * /* FICATION TABLE. THE OFFSET TO THE WPOD FOR A GIVEN */ 02100002 * /* PERFORMANCE OBJECTIVE NO. IS PLACED IN THE -WPOVTENT- */ 02150002 * /* FIELD OF THE CORRESPONDING (NUMBERED) ENTRY IN THE */ 02200002 * /* WORKLOAD MANAGER PERFORMANCE OBJECTIVE VECTOR TABLE. */ 02250002 * /* */ 02300002 * /* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 02350002 * /* */ 02400002 * /* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 02450002 * /* */ 02500002 * /* USING ON WPOD GIVES ADDRESSABILITY TO WPOD SYMBOLS. */ 02550002 * /* */ 02600002 * /* PLS - %WPODSFX='USERCHAR' IF THE INDICATED CHARACTER IS */ 02650002 * /* TO BE APPENDED TO ALL NAMES IN THE MAPPING, THEREBY */ 02900002 * /* CREATING DUPLICATE DEFINITIONS BASED ON DIFFERENT */ 02950002 * /* POINTERS. */ 03000002 * /* */ 03010002 * /* NOTE - DUE TO THE FACILITY WHICH PERMITS MULTIPLE */ 03020002 * /* INCLUDES OF THE IRAWPODT MAPPING MACRO, IT IS NOT */ 03030002 * /* POSSIBLE TO CONCATENATE THE IRAWPODT DECLARATION */ 03040002 * /* WITH ANOTHER DECLARATION IN SUCH A FASHION THAT */ 03042002 * /* BOTH DECLARATIONS ARE BASED ON THE SAME POINTER. */ 03044002 * /* */ 03050002 * /* TO ACCESS AS A STANDALONE STRUCTURE DCL WPODPTR PTR. */ 03100002 * /* */ 03150002 * /* CHANGE ACTIVITY = */ 03200002 * /* */ 03250002 * /* A000000-999999 Y02133*/ 03300002 * /* */ 03350002 * /* *************************************************************** */ 03400002 *%; /* 03450002 .WPODAL1 ANOP 03500002 SPACE 1 03550002 AIF ('&DSECT' EQ 'NO').WPODAL2 03600002 WPOD DSECT 03650002 AGO .WPODAL3 03700002 .WPODAL2 ANOP 03750002 DS 0H 03800002 WPOD EQU * 03850002 .WPODAL3 ANOP 03900002 SPACE 1 03950002 WPOP DS 0CL4 - PREV PERFORMANCE OBJECTIVE SEGMENT 04000002 WPOPSRV DS H - SERVICE RATE AT PREVIOUS POINT 04030002 WPOPWKL DS H - WORKLOD LEVL AT PREVIOUS POINT 04060002 WPOS DS 0CL4 - CURR PERFORMANCE OBJECTIVE SEGMENT 04090002 WPOSSRV DS H - SERVICE RATE AT CURR PT IN OBJCTV 04120002 WPOSWKL DS H - WORKLOD LEVL AT CURR PT IN OBJCTV 04150002 WPODEND DS 0H - END OF WPOD 04200002 WPODLEN EQU WPODEND-WPOS - LENGTH OF WPOD 04250002 MEND 04300002 * */ 04350002 *@ LIST POP; /* RESUME MACRO OUTPUT LISTING */ 04370002 * %WPODLABL = 'WPOD' ; /* INITIALIZE THE LABEL VARIABLE */ 04400002 * %IF WPODSFX ^= ' ' /* IS THIS THE DUPLICATE INCLUDE */ 04460002 * %THEN %WPODLABL = 'WPOD'||WPODSFX ; /* RENAME STRUCTURE */ 04520002 * %IF WPOD9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 04600002 * %THEN %WPOD9999 = ';'; /* NO, END DECLARE STATEMENT */ 04650002 * %WPODDUM = WPODLABL||'PTR' ; /* QUALIFY BASED POINTER NAME */ 04700002 * DCL 04850002 * 1 WPODLABL BASED(WPODDUM) BDY(WORD), 04900002 * %WPODLABL = 'WPOP'||WPODSFX ; 04950002 * 10 WPODLABL BDY(WORD), /* PREV PERF OBJECTIVE SEGMENT */ 05000002 * %WPODLABL = 'WPOPSRV'||WPODSFX; 05050002 * 12 WPODLABL FIXED(15), /* SERVICE RATE AT PREV POINT */ 05100002 * %WPODLABL = 'WPOPWKL'||WPODSFX; 05150002 * 12 WPODLABL FIXED(16) UNSIGNED, /* WKLD LEVL AT PREV PT */ 05200002 * %WPODLABL = 'WPODEND'||WPODSFX; 05250002 * 10 WPODLABL CHAR(0) BDY(WORD), /* END OF ONE WPOD SEGMENT */ 05300002 * %WPODLABL = 'WPOS'||WPODSFX ; 05350002 * 10 WPODLABL BDY(WORD), /* CURR PERF OBJECTIVE SEGMENT */ 05400002 * %WPODLABL = 'WPOSSRV'||WPODSFX; 05450002 * 12 WPODLABL FIXED(15), /* SERVICE RATE AT CURR POINT */ 05500002 * %WPODLABL = 'WPOSWKL'||WPODSFX; 05550002 * 12 WPODLABL FIXED(16) UNSIGNED, /* WKLD LEVL AT CURR PT */ 05600002 * %WPODLABL = 'WPOSEND'||WPODSFX; 05650002 * 10 WPODLABL CHAR(0) BDY(WORD) /* END OF CURR WPOD SEGMENT */ 05700002 * WPOD9999 05750002 * %WPODLEN = 'LENGTH(WPOS)'; /* SYMBOLIC FOR LENGTH OF WPOD */ 05800002