* %GOTO CCTPLS1; /* 00050002 MACRO 00100002 IRACCT &DSECT=YES 00150002 * */ 00200002 *%CCTPLS1 : ; 00250002 */* */ 00260002 */* MACCOMP Z-4 SC1CX/PKD16 */ 00270040 */* MACSTAT Z-4 75007/Z40BPSS */ 00280040 */********************************************************************/ 00300002 */* */ 00350002 */* MACRO NAME - IRACCT */ 00400002 */* */ 00420002 */* DESCRIPTIVE NAME - SYSTEM RESOURCES MANAGER CPU */ 00440002 */* MANAGEMENT CONTROL TABLE */ 00460002 */* */ 00480002 */* STATUS - OS/VS2 RELEASE 2, 02/15/74,LEVEL=7 */ 00500002 */* */ 00550002 */* METHOD OF ACCESS */ 00600002 */* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 00650002 */* USING ON CCT GIVES ADDRESSIBILITY FOR ALL SYMBOLS. */ 00700002 */* PLS - TO ACCESS AS STAND ALONE STRUCTURE DCL CCTPTR PTR. */ 00750002 */* TO CONCATENATE WITH PREVIOUSLY DEFINED STRUCTURE */ 00800002 */* SET %CCTLEVEL TO DESIRED STRUCTURE LEVEL. */ 00850002 */* TO PREVENT STRUCTURE FROM BEING CLOSED, */ 00900002 */* SET %CCT9999=','. */ 00950002 */* */ 01000002 */********************************************************************/ 01050002 */* */ 01100002 * %GOTO CCTPLS2; /* 01150002 AIF ('&DSECT' EQ 'YES').CCT001 01200002 CCT DS 0D - CPU MANAGEMENT CONTROL TABLE 01250002 AGO .CCT002 01300002 .CCT001 ANOP 01350002 CCT DSECT , - CPU MANAGEMENT CONTROL TABLE 01400002 .CCT002 ANOP 01450002 CCTCCT DC CL4'CCT' - ACRONYM IN EBCDIC -CCT- 01500002 * 01550002 * CPU CONTROL CONSTANTS 01600002 * 01650002 * TIME INTERVAL CONSTANTS - 1000 UNITS = APPROXIMATELY 1 SECOND 01700002 CCCAPMET DC F'200' - MINIMUM USER EXECUTION INTERVAL FOR 01750002 * MEAN TIME TO WAIT COMPUTATION 01800002 CCCAPMIN DC F'1000' - MINIMUM APG INVOCATION INTERVAL 01850002 CCCAPMAX DC F'0003000' - MAXIMUM APG INVOCATION INTERVAL 01900002 CCCAPDEL DC F'1000' - DELTA FOR CHANGING APG INTERVAL 01950002 CCCMNUIN DC F'30000' - TIME USER MUST BE IN MAIN STORAGE 02000002 * BEFORE SWAP OUT CPU REC IS GIVEN 02050002 CCCMNSIN DC F'5000' - MINIMUM INTERVAL FOR COMPUTING 02100002 * SYSTEM CPU UTILIZATION 02150002 CCCRSVF1 DC F'0' - RESERVED 02200002 * APG DISPATCHING PRIORITY COMPUTATION CONSTANTS 02250002 CCCAPDIV DC H'4' - DP COMPUTATION DIVISOR @Z40BPEB 02270040 CCCAPROT DC H'11' - VALUE OF APG ROTATE GROUP @Z40BPEB 02300040 CCCAPBDP DC H'15' - BASE DP FROM WHICH QUOTIENT IS 02380002 * SUBTRACTED 02410002 CCCAPLDP DC H'1' - DP FOR UNDISPATCHED APG USERS 02440002 CCCAPMDP DC H'0' - DP FOR MAX MEAN TIME TO WAIT 02500002 CCCAPGDP DC H'06' - APG INITIAL DP @Z40BPCH 02520040 CCCR01 DC H'0' - RESERVED @ZM43085 02600040 * APG THRESHOLDS EXPRESSED AS % OF APG USERS CHAPPED AT APG CALL 02700002 CCCAPRLT DC H'20' - LOW THRESHOLD - LENGTHEN APG 02750002 * INVOCATION INTERVAL 02800002 CCCAPRHT DC H'60' - HIGH THRESHOLD - SHORTEN INTERVAL 02850002 * CPU LOAD BALANCING RECOMMENDATION VALUE COMPUTATION CONSTANTS 02900002 CCCUTHIT DC H'100' - HIGH UTILIZATION IMBALANCE 02950002 * THRESHOLD 02960002 CCCUTLOT DC H'80' - LOW UTILIZATION IMBALANCE 02970002 * THRESHOLD 02980002 CCCHISCF DC H'6400' - HIGH THRESHOLD SCALING FACTOR 02990002 CCCLOSCF DC H'1' - LOW THRESHOLD SCALING FACTOR 03000002 CCCMAXRV DC H'128' - MAXIMUM CPL REC VALUE 03050002 CCCMINRV DC H'-128' - MINIMUM CPL REC VALUE 03100002 CCCSCFAC DC H'64' - REC VALUE SCALING DIVISOR 03150002 CCCSIGDP DC H'02' - SIGNIFICANT CPU USER D PRIORITY 03170002 CCCSIGUR DC H'26' - SIGNIFICANT MEAN TIME TO WAIT IN MS 03200002 CCCR02 DC H'0' - RESERVED @ZM43085 03250040 CCCSCFC1 DC H'10' - SYSTEM WAIT % AVERAGING FACTOR 03350002 CCCSCFC2 DC H'11' - CCCSCFC1+1 03400002 CCCRSVH1 DC H'0' - RESERVED 03420002 CCCEND DS 0F - END OF CCT CONSTANTS 03450002 * 03500002 * CPU CONTROL VARIABLES 03550002 * 03600002 CCVR03 DC F'0' - RESERVED @ZM43085 03650040 CCVRBSWT DC F'0' - RECENT BASE SYSTEM WAIT TIME 03700002 CCVR04 DC F'0' - RESERVED @ZM43085 03750040 CCVRBSTD DC F'0' - RECENT BASE TIME OF DAY 03800002 CCVRVSWF DC F'0' - SYSTEM WAIT FACTOR FOR CPL 03850002 * RECOMMENDATION VALUE COMPUTATION 03900002 CCVPGCPF DC F'0' - PAGE CP SERVICE FACTOR FOR CPL 03950002 * RECOMMENDATION VALUE COMPUTATION 04000002 CCVEJST DC F'0' - LOW PRIORITY USER JOB STEP TIME 04010002 CCVIMBBT DC F'0' - TIME OF LAST CPU IMBALANCE 04020002 CCVR05 DC H'0' - RESERVED @ZM43085 04050040 CCVUTILP DC H'50' - SYSTEM CPU UTILIZATION 04100002 CCVR06 DC H'0' - RESERVED @ZM43085 04150040 CCVR07 DC H'0' - RESERVED @ZM43085 04180040 CCVLGUTL DC AL2(50*256) - LONG TERM UTILIZATION * 256 04250002 CCVLGFMC DC H'10' - AVERAGE AVAILABLE FRAME COUNT 04300002 CCVENQCT DC H'0' - NO. OF USERS NON SWAPPABLE FOR 04350002 * ENQ REASONS 04400002 CCVCPUCT DC H'0' - NUMBER OF ONLINE CPUS 04450002 * 04457002 * CPU CONTROL FLAGS 04464002 * 04471002 CCTFLG1 DC B'0' - 04478002 CCTALL EQU BIT0 - LOW PRIORITY USER NOT DISPATCHED 04485002 CCTCPUOT EQU BIT1 - CPU OUT OF BALANCE 04488040 CCTFLG2 DC 3B'0' - RESERVED 04492002 CCVEND DS 0D - END OF CCT 04500002 CCTLEN EQU CCVEND-CCT - LENGTH OF CCT 04550002 MEND , - */ 04600002 *%CCTPLS2 : ; 04650002 * %IF CCT9999^=',' /* IF THIS IS LAST BLOCK */ 04700002 * %THEN CCT9999=';'; /* THEN CLOSE DECLARE STATEMENT */ 04750002 * %IF CCTLEVEL^='' /* IF MINOR LEVEL IS SPECIFIED, */ 04800002 * %THEN %GOTO CCTPLS3; /* SKIP MAJOR DECLARE */ 04850002 *DECLARE /* */ 04900002 * 1 CCT BASED(CCTPTR) /* CPU CONTROL TABLE */ 04950002 * %GOTO CCTPLS4; /* MAJOR STRUCTURE */ 05000002 *%CCTPLS3: CCTDUM=CCTLEVEL||' CCT'; /* CONCATENATE AS MINOR STRUCTURE*/ 05050002 * CCTDUM /* CPU CONTROL TABLE */ 05100002 *%CCTPLS4:; 05150002 * BDY(DWORD), 05200002 * 5 CCTCCT CHAR(4), /* ACRONYM IN EBCDIC -CCT- */ 05250002 */* */ 05300002 */* CPU CONTROL CONSTANTS */ 05350002 */* */ 05400002 */* TIME INTERVAL CONSTANTS */ 05450002 * 5 CCCAPMET FIXED(31), /* MINIMUM USER EXECUTION INTERVAL 05500002 * FOR MEAN TIME TO WAIT COMPUTATION*/ 05550002 * 5 CCCAPMIN FIXED(31), /* MINIMUM APG INVOCATION INTERVAL*/ 05600002 * 5 CCCAPMAX FIXED(31), /* MAXIMUM APG INVOCATION INTERVAL*/ 05650002 * 5 CCCAPDEL FIXED(31), /* DELTA FOR CHANGING APG INTERVAL*/ 05700002 * 5 CCCMNUIN FIXED(31), /* TIME USER MUST REMAIN IN STORAGE 05750002 * BEFORE CPU RECOMMENDATION FOR 05780002 * SWAP OUT IS GIVEN */ 05810002 * 5 CCCMNSIN FIXED(31), /* MINIMUM INTERVAL FOR COMPUTING 05850002 * SYSTEM CPU UTILIZATION */ 05900002 * 5 CCCRSVF1 FIXED(31), /* RESERVED */ 05950002 */* APG DISPATCHING PRIORITY (DP) COMPUTATION CONSTANTS */ 06000002 * 5 CCCAPDIV FIXED(15), /* DP COMPUTATION DIVISOR @Z40BPEB*/06050040 * 5 CCCAPROT FIXED(15), /* APG ROTATE VALUE @Z40BPEB*/06080040 * 5 CCCAPBDP FIXED(15), /* BASE DP FROM WHICH QUOTIENT IS 06150002 * SUBTRACTED */ 06200002 * 5 CCCAPLDP FIXED(15), /* DP FOR UNDISPATCHED APG USERS */ 06210002 * 5 CCCAPMDP FIXED(15), /* DP FOR MAX MEAN TIME TO WAIT */ 06250002 * 5 CCCAPGDP FIXED(15), /* APG INITIAL DP */ 06300002 * 5 CCCR01 FIXED(15), /* RESERVED @ZM43085*/ 06350040 */* APG THRESHOLDS EXPRESSED AS % OF APG USERS CHAPPED AT APG CALL */ 06450002 * 5 CCCAPRLT FIXED(15), /* LOW THRESHOLD - LENGTHEN APG 06500002 * INVOCATION INTERVAL */ 06550002 * 5 CCCAPRHT FIXED(15), /* HIGH THRESHOLD - SHORTEN INT */ 06600002 * 06650002 */* CPU LOAD BALANCING RECOMMENDATION VALUE COMPUTATION CONSTANTS */ 06700002 * 5 CCCUTHIT FIXED(15), /* HIGH UTILIZATION IMBALANCE 06750002 * THRESHOLD */ 06760002 * 5 CCCUTLOT FIXED(15), /* LOW UTILIZATION IMBALANCE 06770002 * THRESHOLD */ 06780002 * 5 CCCHISCF FIXED(15), /* HIGH THRESHOLD SCALING FACTOR */ 06790002 * 5 CCCLOSCF FIXED(15), /* LOW THRESHOLD SCALING FACTOR */ 06800002 * 5 CCCMAXRV FIXED(15), /* MAXIMUM CPL REC VALUE */ 06850002 * 5 CCCMINRV FIXED(15), /* MINIMUM CPL REC VALUE */ 06900002 * 5 CCCSCFAC FIXED(15), /* REC VALUE SCALING FACTOR */ 06950002 * 5 CCCSIGDP FIXED(15), /* SIGNIFICANT CPU USER D PRIORITY*/ 06970002 * 5 CCCSIGUR FIXED(15), /* SIGNIFICANT MEAN TIME TO WAIT */ 07000002 * 5 CCCR02 FIXED(15), /* RESERVED @ZM43085*/07050040 * 5 CCCSCFC1 FIXED(15), /* SYSTEM WAIT % AVERAGING FACTOR */ 07100002 * 5 CCCSCFC2 FIXED(15), /* CCCSCFC1+1 */ 07150002 * 5 CCCRSVH1 FIXED(15), /* RESERVED */ 07170002 * 5 CCCEND CHAR(0) BDY(WORD),/* END OF CCT CONSTANTS */ 07200002 */* */ 07250002 */* CPU CONTROL VARIABLES */ 07300002 */* */ 07350002 * 5 CCVR03 FIXED(32), /* RESERVED @ZM43085*/ 07400040 * 5 CCVRBSWT FIXED(32), /* RECENT BASE SYSTEM WIAT TIME */ 07450002 * 5 CCVR04 FIXED(32), /* RESERVED @ZM43085*/ 07500040 * 5 CCVRBSTD FIXED(32), /* RECENT BASE TIME OF DAY */ 07550002 * 5 CCVRVSWF FIXED(31), /* SYSTEM WAIT FACTOR FOR CPL 07600002 * REC VALUE COMPUTATION */ 07650002 * 5 CCVPGCPF FIXED(31), /* PAGE CP SERVICE FACTOR FOR CPL 07700002 * RECOMMENDATION VALUE 07750002 * COMPUTATION */ 07800002 * 5 CCVEJST BIT(32), /* LOW PRIORITY USER JOB STEP TIME*/ 07805002 * 5 CCVIMBBT FIXED(31), /* TIME OF LAST CPU IMBALANCE */ 07810002 * 5 CCVR05 FIXED(15), /* RESERVED @ZM43085*/ 07850040 * 5 CCVUTILP FIXED(15), /* SYSTEM CPU UTILIZATION */ 07900002 * 5 CCVR06 FIXED(15), /* RESERVED @ZM43085*/ 07950040 * 5 CCVR07 FIXED(15), /* RESERVED @ZM43085*/ 07980040 * 5 CCVLGUTL FIXED(15), /* LONG TERM CPU UTILIZATION * 256*/ 08050002 * 5 CCVLGFMC FIXED(15), /* AVERAGE AVAILABLE FRAME COUNT */ 08100002 * 5 CCVENQCT FIXED(15), /* NO. OF USERS NON-SWAPPABLE FOR 08150002 * ENQ REASONS */ 08200002 * 5 CCVCPUCT FIXED(15), /* NUMBER OF ONLINE CPUS */ 08250002 */* */ 08257002 */* */ 08264002 */* CPU CONTROL FLAGS */ 08271002 * 5 CCTFLG1 BIT(8), /* */ 08278002 * 10 CCTALL BIT(1), /* LOW PRTY USER NOT DISPATCHED */ 08285002 * 10 CCTCPUOT BIT(1), /* CPU OUT OF BALANCE */ 08288040 * 5 CCTFLG2 BIT(24), /* RESERVED */ 08292002 * 5 CCVEND CHAR(0) /* END OF CCT */ 08300002 * BDY(DWORD) CCT9999 08350002 *%CCTLEN='LENGTH(CCT)'; /* OBTAIN LENGTH OF CCT */ 08400002 * @EJECT; 08450002