Difference between revisions of "WHO BAD"
From MidrangeWiki
| (5 intermediate revisions by one other user not shown) | |||
| Line 1: | Line 1: | ||
| − | + | [[Category:CLP/400 examples]] | |
| − | |||
=== Reason to have this program === | === Reason to have this program === | ||
| − | See [[Degradation]] | + | See |
| + | * [[Degradation]] | ||
| + | * [[WRKACTJOB a resource hog]] | ||
=== 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) */ | ||
| + | /* ***************************** */ | ||
| − | + | PGM | |
| + | DCL &RUNPTY *DEC (2 0) | ||
| + | RTVJOBA RUNPTY(&RUNPTY) | ||
| + | CHGJOB RUNPTY(1) | ||
| + | WRKACTJOB RESET(*YES) CPUPCTLMT(3.0) SEQ(*CPUPCT) | ||
| + | CHGJOB RUNPTY(&RUNPTY) | ||
| + | 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
