Difference between revisions of "WHO BAD"
From MidrangeWiki
m |
m |
||
| Line 1: | Line 1: | ||
| − | See [[CLP/400 | + | See [[CLP/400 examples]] for links to more programs. |
=== Reason to have this program === | === Reason to have this program === | ||
Revision as of 03:22, 29 May 2005
See CLP/400 examples 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
