WHO BAD

From MidrangeWiki
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
Retrieved from "https://wiki.midrange.com/index.php?title=WHO_BAD&oldid=5564"