* %GOTO RMPTPLS1; /* 00050002 MACRO 00100002 IRARMPT &DSECT=YES */ 00150002 *%RMPTPLS1: ; 00200002 * /* */ 00250002 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00300040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00330040 * /* *************************************************************** */ 00400002 * /* */ 00450002 * /* MACRO NAME - IRARMPT */ 00500002 * /* */ 00550002 * /* DESCRIPTIVE NAME - SYSTEM RESOURCES MANAGER PARAMETER TABLE */ 00600002 * /* */ 00650002 * /* COPYRIGHT - NONE */ 00700002 * /* */ 00750002 * /* STATUS - OS/VS2 RELEASE 4, 08/01/75, LEVEL=1 */ 00800040 * /* */ 00850002 * /* FUNCTION - THE RMPT CONTAINS VALUES USED BY THE SYSTEM */ 00900002 * /* RESOURCES MANAGER CONTROL ALGORITHM TO DETERMINE */ 00950002 * /* THE CRITERIA AND THE FREQUENCY OF SWAP ANALYSIS. */ 01000002 * /* */ 01050002 * /* METHOD OF ACCESS - THE ADDRESS OF THE RMPT IS CONTAINED */ 01100002 * /* IN THE -RMCTRMPT- FIELD OF THE SYSTEM RESOURCES */ 01150002 * /* MANAGER CONTROL TABLE. */ 01200002 * /* */ 01250002 * /* *************************************************************** */ 01300002 * %GOTO RMPTPLS2; /* 01350002 AGO .RMPTAL1 */ 01400002 * /* *************************************************************** */ 01450002 * /* */ 01500002 * /* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 01550002 * /* */ 01600002 * /* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 01650002 * /* */ 01700002 * /* NOTE - THE BAL FORM OF THE MACRO IS CODED WITH */ 01750002 * /* 'DC' INSTRUCTIONS, SO THAT THE MACRO MAY BE USED */ 01800002 * /* TO ASSEMBLE THE INITIAL FIELD VALUES FOR THE */ 01850002 * /* IRARMCNS MODULE, WHICH CONTAINS THE RMPT. */ 01900002 * /* */ 01950002 * /* USING ON RMPT GIVES ADDRESSABILITY TO ALL SYMBOLS. */ 02000002 * /* */ 02050002 * /* PLS - %RMPTLEVL='USERLEVL' IF THE RMPT MAPPING IS TO BE */ 02100002 * /* CONCATENATED WITH A PREVIOUS DECLARATION, WITH THE */ 02150002 * /* RMPT BEING ASSIGNED THE INDICATED STRUCTURE LEVEL. */ 02200002 * /* - %RMPT9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED. */ 02250002 * /* */ 02300002 * /* TO ACCESS AS A STANDALONE STRUCTURE, DCL RMPTPTR PTR. */ 02350002 * /* */ 02400002 * /* CHANGE ACTIVITY = @ZM43084 */ 02450040 * /* @ZM43085 */ 02460040 * /* @ZM43090 */ 02470140 * /* */ 02500002 * /* A000000-999999 Y02133*/ 02550002 * /* */ 02600002 * /* *************************************************************** */ 02650002 * /* 02700002 .RMPTAL1 ANOP 02750002 SPACE 1 02800002 AIF ('&DSECT' EQ 'NO').RMPTAL2 02850002 RMPT DSECT 02900002 AGO .RMPTAL3 02950002 .RMPTAL2 ANOP 03000002 DS 0D 03050002 RMPT EQU * 03100002 .RMPTAL3 ANOP 03150002 SPACE 1 03200002 RMPTNAME DC C'RMPT' - BLOCK IDENTIFICATION 03250002 RMPTCPU DC F'1' - CPU RESOURCE FACTOR COEFFICIENT @ZM43084 03300040 RMPTIOC DC F'1' - I/O RESOURCE FACTOR COEFFICIENT @ZM43084 03350040 RMPTERV DC F'1' - ENQ RESIDENCY CPU SERVICE VALUE 03450002 RMPTIMN DC F'100' - MINIMUM FOR INTERVAL SERVICE VALUE 04110002 RMPTTCS DC F'81920000' - SYSTEM CLOCK STEP TIME 04473002 RMPTTOM DC F'1000' - TOLERANCE FOR TIME PERIOD @ZM43090 04486040 RMPTTOL DC F'500' - TOLERANCE FOR TIME-DRIVEN @ZM43090 04490040 RMPTRSV1 DC F'0' - RESERVED @ZM43085 04500040 RMPTRSV2 DC H'0' - RESERVED @ZM43085 04510040 RMPTRSV3 DC H'0' - RESERVED @ZM43085 04540040 RMPTXCHT DC F'256' - SWAP EXCHANGE THRESHOLD @Z40BPCH 04582240 RMPTSAET DC F'1000' - SWAP ANALYSYS EVALUATION THRESHOLD 04582440 * (UNSIGNED TIME VALUE) @Z40BPCH 04582640 RMPTWMET DC F'1000' - WLM EVALUATION THRESHOLD @Z40BPCH 04582840 * (UNSIGNED TIME VALUE) @Z40BPCH 04583040 RMPTCPET DC F'1000' CPU EVALUATION THRESHOLD @Z40BPCH 04583140 * UNSIGNED TIME VALUE @Z40BPCH 04593040 RMPTIOET DC F'1000' I/0 EVALUATION THRESHOLD @Z40BPCH 04594040 * UNSIGNED TIME VALUE @Z40BPCH 04595040 RMPTOPC DC CL3'0.1' CPU RESOURCE FACTOR COEF. @ZM43084 04597040 RMPTOPI DC CL3'0.1' I/O RESOURCE FACTOR COEF. @ZM43084 04597640 RMPTOPE DC CL6'000001' ENQ RESIDENCY CPU SERV. VAL @Z40BPCH 04599040 RMPTEND DS 0D - END OF RMPT 04600002 RMPTLEN EQU RMPTEND-RMPT - LENGTH OF RMPT 04650002 MEND 04700002 * */ 04750002 *%RMPTPLS2: ; 04800002 * %IF RMPT9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 04850002 * %THEN %RMPT9999 = ';'; /* NO, END DECLARE STATEMENT */ 04900002 * %IF RMPTLEVL ^= '' /* IS STRUCTURE CONCATENATED */ 04950002 * %THEN %GOTO RMPTPLS3; /* YES, OMIT DECLARE STATEMENT */ 05000002 * DCL 05050002 * 1 RMPT BASED(RMPTPTR) BDY(DWORD), 05100002 * %GOTO RMPTPLS4; /* SKIP USER-GIVEN LEVEL */ 05150002 *%RMPTPLS3: RMPTDUM = RMPTLEVL||' RMPT'; /* PICK UP GIVEN LEVEL */ 05200002 * RMPTDUM BDY(DWORD), 05250002 *%RMPTPLS4: ; 05300002 * 10 RMPTNAME CHAR(4), /* BLOCK IDENTIFICATION - 'RMPT' */ 05350002 * 10 RMPTCPU FIXED, /* CPU RESOURCE FACTOR */ 05400002 * 10 RMPTIOC FIXED, /* I/O RESOURCE FACTOR */ 05450002 * 10 RMPTERV FIXED, /* ENQ RESIDENCE INTERVAL VALUE */ 05550002 * 10 RMPTIMN FIXED, /* MIN INTERVAL SERVICE VALUE */ 06210002 * 10 RMPTTCS FIXED(32) UNSIGNED, /* SYSTEM CLOCK STEP TIME */ 06573002 * 10 RMPTTOM FIXED(32) UNSIGNED, /* TIME DRIVEN MINIMUM 06586040 * TOLERANCE @ZM43090*/ 06587040 * 10 RMPTTOL FIXED(32) UNSIGNED, /* TIME DRIVEN INVOKE 06590040 * TOLERANCE @ZM43090*/ 06593040 * 10 RMPTRSV1 FIXED(32) UNSIGNED, /* RESERVED @ZM43085*/ 06600040 * 10 RMPTRSV2 FIXED(15), /* RESERVED @ZM43085*/ 06610040 * 10 RMPTRSV3 PTR(15), /* RESERVED @ZM43085*/ 06620040 * 10 RMPTXCHT FIXED(31), /* SWAP EXCHANGE THRESH. @Z40BPCH*/ 06660440 * 10 RMPTSAET FIXED(32), /* SWAP ANAL. EVALUATION THRES. */ 06660840 * /* (UNSIGNED TIME VALUE) @Z40BPCH*/ 06661240 * 10 RMPTWMET FIXED(32), /* WLM EVALUATION THRESH @Z40BPCH*/ 06661640 * /* (UNSIGNED TIME VALUE @Z40BPCH*/ 06662040 * 10 RMPTCPET FIXED(32), /* CPU EVALUATION THRESHOLD 06662140 * UNSIGNED TIME VALUE @Z40BPCH*/ 06662240 * 10 RMPTIOET FIXED(32), /* I/0 EVALUATION THRESHOLD 06662340 * UNSIGNED TIME VALUE @Z40BPCH*/ 06662440 * 10 RMPTOPC CHAR(3), /* CPU RESOURCE FACTOR @Z40BPCH*/ 06662840 * /* COEFFICIENT @Z40BPCH*/ 06663240 * 10 RMPTOPI CHAR(3), /* I/O RESOURCE FACTOR @Z40BPCH*/ 06663640 * /* COEFFICIENT @Z40BPCH*/ 06664040 * 10 RMPTOPE CHAR(6), /* ENQ RES CPU SERV VALU @Z40BPCH*/ 06664440 * 10 RMPTEND CHAR(0) BDY(DWORD) /* END OF RMPT */ 06700002 * RMPT9999 06750002 * %RMPTLEN = 'LENGTH(RMPT)'; /* SYMBOLIC FOR LENGTH OF RMPT */ 06800002