* %GOTO ICTPLS1; /* 00050002 MACRO 00100002 IRAICT &DSECT=YES 00150002 * */ 00200002 *%ICTPLS1 : ; 00250002 */* */ 00260002 */* MACCOMP Z-4 SC1CX/PKD16 */ 00270040 */* MACSTAT Z-4 75007/Z40BPSS */ 00280040 */********************************************************************/ 00300002 */* */ 00350002 */* MACRO NAME - IRAICT */ 00400002 */* */ 00420002 */* DESCRIPTIVE NAME - SYSTEM RESOURCES MANAGER I/O */ 00440002 */* MANAGEMENT CONTROL TABLE */ 00460002 */* */ 00480002 */* STATUS - OS/VS2 RELEASE 4, 09/17/75, LEVEL=1 */ 00500040 */* */ 00550002 */* METHOD OF ACCESS */ 00600002 */* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 00650002 */* USING ON ICT GIVES ADDRESSIBILITY FOR ALL SYMBOLS. */ 00700002 */* PLS - TO ACCESS AS STAND ALONE STRUCTURE DCL ICTPTR PTR. */ 00750002 */* TO CONCATENATE WITH PREVIOUSLY DEFINED STRUCTURE */ 00800002 */* SET %ICTLEVEL TO DESIRED STRUCTURE LEVEL. */ 00850002 */* TO PREVENT STRUCTURE FROM BEING CLOSED, */ 00900002 */* SET %ICT9999=','. */ 00950002 */* */ 01000002 */********************************************************************/ 01050002 */* */ 01100002 * %GOTO ICTPLS2; /* 01150002 AIF ('&DSECT' EQ 'YES').ICT001 01200002 ICT DS 0D - I/O MANAGEMENT CONTROL TABLE 01250002 AGO .ICT002 01300002 .ICT001 ANOP 01350002 ICT DSECT , - I/O MANAGEMENT CONTROL TABLE 01400002 .ICT002 ANOP 01450002 ICTICT DC CL4'ICT' - ACRONYM IN EBCDIC -ICT- 01500002 * 01550002 * I/O CONTROL CONSTANTS 01600002 * 01650002 ICCMRSV1 DC F'0' - RESERVED @ZM43085 01700040 ICCMXICT DC F'60000' - MAX TIME HEAVY I/O USER REMAIN 01800002 * IN MAIN STORAGE WITHOUT BEING 01850002 * MONITORED FOR I/O USAGE 01900002 ICCMNUIN DC F'10000' - MIN INT FOR USER I/O MONITORING 01950002 ICCMNSWP DC F'30000' - MINIMUM SWAP OUT TIME FOR I/O 01960002 * IMBALANCE CORRECTION 01980002 ICCLCLST DC A(0) POINTER TO LAST LCH TABLE ENTRY 02000002 ICCLCHN DC H'0' - LOGICAL CHANNEL COUNT 02050002 ICCMNIOR DC H'5' - MIN I/O RATE FOR USER I/O MONITORING 02150002 ICCRVSCF DC H'1' - IOL REC VALUE SCALING FACTOR 02200002 ICCMAXRV DC H'128' - MAXIMUM IOL RECOMMENDATION VALUE 02250002 ICCMINRV DC H'-128' - MINIMUM IOL RECOMMENDATION VALUE 02300002 ICCDASF1 DC H'10' - AVERAGING FACTOR FOR LCH UTILIZATION 02350002 * COMPUTATION 02400002 ICCDASF2 DC H'11' - ICCDASF1+1 02450002 * LCH UTILIZATION IMBALANCE THRESHOLDS (EXPRESSED AS PERCENTAGES) 02500002 ICCHIUTH DC H'0' - HIGH IMBALANCE THRESHOLD 02550002 ICCLOUTH DC H'0' - LOW IMBALANCE THRESHOLD 02600002 ICCDAUTH DC H'0' - THRESHOLD FOR DEVICE ALLOCATION *256 02650002 * LCH UTILIZATION IMBALANCE THRESHOLD INITIALIZATION VALUES FOR UNI 02700002 * OR MULTIPROCESSOR CASES 02750002 ICCINHIT DS 0HL4 - HIGH THRESHOLD INITIALIZATION VALUES 02800002 ICCINHI1 DC H'70' - UNIPROCESSOR CASE 02850002 ICCINHI2 DC H'80' - MULTIPROCESSOR CASE 02900002 ICCINLOT DS 0HL4 - LOW THRESHOLD INITIAIZATION VALUES 02950002 ICCINLO1 DC H'30' - UNIPROCESSOR CASE 03000002 ICCINLO2 DC H'40' - MULTIPROCESSOR CASE 03050002 ICCINDAT DS 0HL4 - DEV ALLOCATION INTIIAL VALUES 03100002 ICCINDA1 DC AL2(70*256) - UNIPROCESSOR CASE 03150002 ICCINDA2 DC AL2(80*256) - MULTIPROCESSOR CASE 03200002 ICCSIGUP DC H'5' - SIGNIFICANT USER LCH USAGE 03204002 * PERCENTAGE 03208002 ICCSRSV2 DC H'0' - RESERVED @ZM43085 03212040 ICCEDSUT DC AL2(05*256) - EST DATASET UTILIZ IMPACT @Z30WIAW 03220003 ICCRSV01 DC HL2'0' - RESERVED @Z40BPCH 03230040 ICCEND DS 0F - END OF ICT CONSTANTS 03250002 * 03300002 * I/O CONTROL VARIABLES 03350002 * 03400002 ICVLUTBT DC F'0' - LCH UTILIZATION COMPUTATION BASE 03450002 * TIME 03500002 ICVLCBPT DC BL4'0' - LCH IMBALANCE BIT PATTERN 03550002 ICVOLCBT DC BL4'0' - OVERUTILIZED LCH BIT PATTERN 03560002 ICVULCBT DC BL4'0' - UNDERUTILIZED LCH BIT PATTERN 03570002 ICVIRSV3 DC F'0' - RESERVED @ZM43085 03580040 * 03750002 * I/O CONTROL FLAGS 03800002 * 03850002 ICTFLAGS DC B'0' - I/O CONTROL FLAGS 03900002 ICTDRSV4 EQU BIT0 - RESERVED @ZM43085 03950040 ICTIOL EQU BIT1 I/O LOAD BALANCING ACTIVE FLAG 03960002 ICTIOOT EQU BIT3 SOME LOGICAL CHANNELS OUT OF BALANCE 03963040 * @Z40BPCH 03966040 ICTRSVB1 DC B'0' - RESERVED 03970002 ICTRSVB2 DC B'0' - RESERVED @Z40BPCH 03980040 ICTRSVB3 DC B'0' - RESERVED @Z40BPCH 03990040 ICTEND DS 0D - END OF ICT 04000002 ICTLEN EQU ICTEND-ICT - LENGTH OF ICT 04050002 MEND , - */ 04100002 *%ICTPLS2 : ; 04150002 * %IF ICT9999^=',' /* IF THIS IS LAST BLOCK */ 04200002 * %THEN ICT9999=';'; /* THEN CLOSE DECLARE STATEMENT */ 04250002 * %IF ICTLEVEL^='' /* IF MINOR LEVEL IS SPECIFIED, */ 04300002 * %THEN %GOTO ICTPLS3; /* SKIP MAJOR DECLARE */ 04350002 *DECLARE /* */ 04400002 * 1 ICT BASED(ICTPTR) /* I/O CONTROL TABLE */ 04450002 * %GOTO ICTPLS4; /* MAJOR STRUCTURE */ 04500002 *%ICTPLS3: ICTDUM=ICTLEVEL||' ICT'; /* CONCATENATE AS MINOR STRUCTURE*/ 04550002 * ICTDUM /* I/O CONTROL TABLE */ 04600002 *%ICTPLS4:; 04650002 * BDY(DWORD), 04700002 * 5 ICTICT CHAR(4), /* ACRONYM IN EBCDIC -ICT- */ 04750002 */* */ 04800002 */* I/O CONTROL CONSTANTS */ 04850002 */* */ 04900002 * 5 ICCMRSV1 FIXED(31), /* RESERVED @ZM43085*/ 04950040 * 5 ICCMXICT FIXED(31), /* MAX TIME HEAVY I/O USER CAN 05100002 * REMAIN IN MAIN STORAGE WITHOUT 05150002 * BEING MONITORED FOR I/O USAGE */ 05200002 * 5 ICCMNUIN FIXED(31), /* MIN INT FOR USER I/O MONITORING*/ 05250002 * 5 ICCMNSWP FIXED(31), /* MINIMUM SWAP OUT TIME FOR I/O 05270002 * IMBALANCE CORRECTION */ 05280002 * 5 ICCLCLST PTR(31), /* POINTER TO LAST RLCT TABLE 05300002 * ENTRY */ 05350002 * 5 ICCLCHN FIXED(15), /* LOGICAL CHANNEL COUNT */ 05400002 * 5 ICCMNIOR FIXED(15), /* MIN I/O RATE FOR USER I/O 05500002 * MONITORING */ 05550002 * 5 ICCRVSCF FIXED(15), /* IOL REC VALUE SCALING FACTOR */ 05600002 * 5 ICCMAXRV FIXED(15), /* MAXIMUM IOL RECOMMENDATION VAL */ 05650002 * 5 ICCMINRV FIXED(15), /* MINIMUM IOL RECOMMENDATION VAL */ 05700002 * 5 ICCDASF1 FIXED(15), /* AVERAGING FACTOR FOR LCH 05750002 * UTILIZATION COMPUTATION */ 05800002 * 5 ICCDASF2 FIXED(15), /* ICCDASF1+1 */ 05850002 */* LCH UTILIZATION IMBALANCE THRESHOLDS */ 05900002 * 5 ICCHIUTH FIXED(15), /* HIGH IMBALANCE THRESHOLD */ 05950002 * 5 ICCLOUTH FIXED(15), /* LOW IMBLAANCE THRESHOLD */ 06000002 * 5 ICCDAUTH FIXED(15), /* THRESHOLD FOR DEVICE ALLOCATION 06050002 * SYSEVENT * 256 */ 06070002 */* LCH UTILIZATION THRESHOLD INITIALIZATION VALUES FOR UNI OR MULTI 06100002 * PROCESSOR CASES */ 06150002 * 5 ICCINHIT (2) FIXED(15), /* HIGH THRESHOLD INIT VALUES */ 06200002 * 5 ICCINLOT (2) FIXED(15), /* LOW THRESHOLD INIT VALUE S */ 06250002 * 5 ICCINDAT (2) FIXED(15), /* DEV ALLOC THRESHOLD INIT VALUES*/ 06300002 * 5 ICCSIGUP FIXED(15), /* SIGNIFICANT USER LCH USAGE 06304002 * PERCENTAGE */ 06308002 * 5 ICCSRSV2 FIXED(15), /* RESERVED @ZM43085*/ 06312040 * 5 ICCEDSUT FIXED(15), /* EST DD UTILIZ IMPACT @Z30WIAW*/ 06320003 * 5 ICCRSV01 CHAR(2) BDY(HWORD), /* RESERVED @Z40BPCH*/ 06330040 * 5 ICCEND CHAR(0) BDY(WORD), /* END OF ICT CONSTANTS */ 06350002 */* */ 06400002 */* I/O CONTROL VARIABLES */ 06450002 */* */ 06500002 * 5 ICVLUTBT FIXED(31), /* LCH UTILIZATION COMPUTATION 06550002 * BASE TIME */ 06600002 * 5 ICVLCBPT BIT(32), /* LCH IMBALANCE BIT PATTERN */ 06650002 * 5 ICVOLCBT BIT(32), /* OVERUTILIZED LCH BIT PATTERN */ 06660002 * 5 ICVULCBT BIT(32), /* UNDERUTILIZED LCH BIT PATTERN */ 06670002 * 5 ICVIRSV3 FIXED(31), /* RESERVED @ZM43085*/ 06700040 */* */ 06850002 */* I/O CONTROL FLAGS */ 06900002 */* */ 06950002 * 5 ICTFLAGS BIT(8), /* I/O CONTROL FLAGS */ 07000002 * 10 ICTDRSV4 BIT(1), /* RESERVED @ZM43085*/ 07050040 * 10 ICTIOL BIT(1), /* I/O LOAD BALANCING ACTIVE FLAG*/ 07150002 * 10 ICTIOOT BIT(1), /* SOME LOGICAL CHANNELS OUT OF 07153040 * BALANCE @Z40BPCH*/ 07155040 * 10 ICT003 BIT(5), /* RESERVED @Z40BPCH*/ 07160040 * 5 ICTRSVB1 BIT(8), /* RESERVED */ 07170002 * 5 ICTRSVB2 BIT(8), /* RESERVED @Z40BPCH*/ 07180040 * 5 ICTRSVB3 BIT(8), /* RESERVED @Z40BPCH*/ 07190040 * 5 ICTEND CHAR(0) /* END OF ICT */ 07200002 * BDY(DWORD) ICT9999 07250002 *%ICTLEN='LENGTH(ICT)'; /* OBTAIN LENGTH OF ICT */ 07300002 * @EJECT; 07350002