WHO BAD

From MidrangeWiki
Revision as of 14:11, 17 June 2005 by David (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

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