Difference between revisions of "WHO BAD"

From MidrangeWiki
Jump to: navigation, search
(Reason to have this program)
m
Line 1: Line 1:
 
+
See [[CLP/400 exaamples]] for links to more programs.
  
 
=== Reason to have this program ===
 
=== Reason to have this program ===

Revision as of 03:21, 29 May 2005

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