Difference between revisions of "WHO BAD"
From MidrangeWiki
m |
|||
| Line 1: | Line 1: | ||
| − | + | [[Category:CLP/400 examples]] | |
| − | |||
=== Reason to have this program === | === Reason to have this program === | ||
| Line 8: | Line 7: | ||
=== The CLP Source Code === | === The CLP Source Code === | ||
| − | + | <pre> | |
/* ***************************** */ | /* ***************************** */ | ||
| − | |||
/* Who is using excess system resources (CPU % GE 3.0 percent) */ | /* Who is using excess system resources (CPU % GE 3.0 percent) */ | ||
| − | |||
/* ***************************** */ | /* ***************************** */ | ||
| Line 22: | Line 19: | ||
CHGJOB RUNPTY(&RUNPTY) | CHGJOB RUNPTY(&RUNPTY) | ||
ENDPGM | ENDPGM | ||
| + | </pre> | ||
Latest revision as of 14:11, 17 June 2005
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
