WHO BAD
From MidrangeWiki
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