WHO BAD

From MidrangeWiki
Revision as of 03:21, 29 May 2005 by Al Mac (talk | contribs)
Jump to: navigation, search

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