Difference between revisions of "WHO BAD"
From MidrangeWiki
(→Reason to have this program) |
m |
||
Line 1: | Line 1: | ||
− | + | See [[CLP/400 exaamples]] for links to more programs. | |
=== Reason to have this program === | === Reason to have this program === |
Revision as of 03:21, 29 May 2005
See CLP/400 exaamples for links to more programs.
Reason to have this program
See
The CLP Source Code
/* ***************************** */
/* Who is using excess system resources (CPU % GE 3.0 percent) */
/* ***************************** */
PGM DCL &RUNPTY *DEC (2 0) RTVJOBA RUNPTY(&RUNPTY) CHGJOB RUNPTY(1) WRKACTJOB RESET(*YES) CPUPCTLMT(3.0) SEQ(*CPUPCT) CHGJOB RUNPTY(&RUNPTY) ENDPGM