* %GOTO DMDTPLS1; /* 00050040 MACRO 00100040 IRADMDT &DSECT=YES */ 00150040 *%DMDTPLS1: ; 00200040 */* MACCOMP Z-4 SC1CX/PKD16 */ 00210040 */* MACSTAT Z-4 75007/Z40BPSS */ 00220040 */********************************************************************/ 00250040 */* MACRO NAME - IRADMDT */ 00300040 */* */ 00350040 */* DESCRIPTIVE NAME - DOMAIN TABLE DESCRIPTION */ 00400040 */* */ 00450040 */* COPYRIGHT - NONE */ 00500040 */* */ 00550040 */* STATUS - OS/VS2 RELEASE 4, 07/30/75 */ 00600040 */* */ 00650040 */* FUNCTION - THE DMDT SPECIFIES THE DOMAINS INTO WHICH */ 00700040 */* USER TRANSACTIONS ARE DIVIDED, AND FOR EACH */ 00750040 */* DOMAIN, THE CONSTRAINTS ON ITS PARTICIPATION */ 00800040 */* IN THE CHANGING OF THE MULTI-PROGRAMMING */ 00850040 */* LEVEL AND CURRENT DOMAIN CONTROL STATUS. */ 00900040 */* */ 00950040 */* THE DOMAIN TO BE USED FOR A TRANSACTION IS */ 01000040 */* INDICATED BY THE -WPGPDMN- FIELD OF THE */ 01050040 */* CURRENT PERIOD WITHIN THE APPLICABLE PERFORMANCE */ 01100040 */* GROUP DESCRIPTION. */ 01150040 */* */ 01200040 */* METHOD-OF-ACCESS - THE ADDRESS OF THE DOMAIN TABLE ENTRY FOR A */ 01250040 */* PARTICULAR SYSTEM USER IS OBTAINED BY ADDING */ 01300040 */* THE OFFSET IN THE -OUCBDMO- FIELD OF THE */ 01350040 */* SYSTEM RESOURCES MANAGER USER CONTROL BLOCK */ 01400040 */* TO THE ADDRESS IN THE -WMSTDMDT- FIELD OF THE */ 01450040 */* WORKLOAD MANAGER SPECIFICATION TABLE. */ 01500040 */********************************************************************/ 01550040 * %GOTO DMDTPLS2; /* 01600040 AGO .DMDTAL1 */ 01650040 */********************************************************************/ 01700040 */* */ 01750040 */* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 01800040 */* */ 01850040 */* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 01900040 */* */ 01950040 */* USING ON DMDT GIVES ADDRESSABILITY TO ALL SYMBOLS */ 02000040 */* */ 02050040 */* PLS - %DMDTLEVL='USERLEVL' IF THE DMDT MAPPING IS TO BE */ 02100040 */* CONCATENATED WITH A PREVIOUS DECLARATION,WITH THE */ 02150040 */* DMDT BEING ASSIGNED THE INDICATED STRUCTURE LEVEL. */ 02200040 */* - %DMDT9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED */ 02250040 */* */ 02300040 */* TO ACCESS AS A STANDALONE STRUCTURE DCL DMDTPTR PTR. */ 02350040 */* */ 02400040 */* CHANGE ACTIVITY =@Z40BFEM */ 02450040 */* */ 02500040 */* */ 02550040 */* */ 02600040 */********************************************************************/ 02650040 */* */ 02700040 .DMDTAL1 ANOP 02750040 SPACE 1 02800040 AIF ('&DSECT' EQ 'NO').DMDTAL2 02850040 DMDT DSECT 02900040 AGO .DMDTAL3 02950040 .DMDTAL2 ANOP 03000040 DS 0F 03050040 DMDT EQU * 03100040 .DMDTAL3 ANOP 03150040 SPACE 1 03200040 DMDTNO DS AL1 DOMAIN NUMBER 03250040 DMDTLO DS AL1 MIN MPL LEVEL 03300040 DMDTHI DS AL1 MAX MPL LEVEL 03350040 DMDTWT DS AL1 WEIGHTING FACTOR 03400040 DMDTMPLT DS H CURRENT MPL TARGET 03450040 DMDTRUA DS H AVE # OF READY USERS 03460040 DMDTGOOU DS H CURRENT # OF USERS GOING OUT 03480040 DMDTCMPL DS H CURRENT MPL 03550040 DMDTOUTU DS H CURRENT # USERS ON OUT Q 03600040 DMDTINCU DS H CURRENT # SWAPPABLE INCORE USERS 03700040 DMDTRUC DS F ACCUMULATOR FOR READY USER COUNT 03720040 DMDTEND DS 0F END OF DMDT 03750040 DMDTLEN EQU DMDTEND-DMDT LENGTH OF DMDT 03800040 MEND 03850040 * */ 03900040 *%DMDTPLS2: ; 03950040 * %IF DMDT9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 04000040 * %THEN %DMDT9999 = ';';/* NO, END DECLARE STATEMENT */ 04050040 * %IF DMDTLEVL ^= '' /* IS STRUCTURE CONCATENATED */ 04100040 * %THEN %GOTO DMDTPLS3; /* YES, OMIT DECLARE STATEMENT */ 04150040 * DCL 04200040 * 1 DMDT BASED(DMDTPTR) BDY(WORD), 04250040 * %GOTO DMDTPLS4; /* SKIP USER GIVEN LEVEL */ 04300040 *%DMDTPLS3: DMDTDUM = DMDTLEVL||' DMDT'; /* PICK UP GIVEN LEVEL */ 04350040 * DMDTDUM BDY(WORD), 04400040 *%DMDTPLS4: ; 04450040 * 10 DMDTNO FIXED(8), /* DOMAIN NUMBER */ 04500040 * 10 DMDTLO FIXED(8), /* MIN MPL LEVEL */ 04550040 * 10 DMDTHI FIXED(8), /* MAX MPL LEVEL */ 04600040 * 10 DMDTWT FIXED(8), /* WEIGHTING FACTOR */ 04650040 * 10 DMDTMPLT FIXED(15), /* CURRENT MPL TARGET */ 04700040 * 10 DMDTRUA FIXED(15), /* AVE # OF READY USERS */ 04710040 * 10 DMDTGOOU FIXED(15), /* CURRENT # OF USERS GOING OUT */ 04730040 * 10 DMDTCMPL FIXED(15), /* CURRENT MPL */ 04850040 * 10 DMDTOUTU FIXED(15), /* CURRENT # USERS ON OUT Q */ 04900040 * 10 DMDTINCU FIXED(15), /* CURRENT # SWAPPABLE INCORE */ 05000040 */* USERS */ 05010040 * 10 DMDTRUC FIXED(31), /* ACCUMULATOR FOR READY USER */ 05030040 */* AVERAGE */ 05040040 * 10 DMDTEND CHAR(0) BDY(WORD) /* END OF DMDT */ 05100040 * DMDT9999 05150040 * %DMDTLEN = 'LENGTH(DMDT)'; /* SYMBOLIC FOR DMDT LENGTH */ 05200040