Difference between revisions of "WHO BAD"

From MidrangeWiki
Jump to: navigation, search
(Reason to have this program)
 
(2 intermediate revisions by one other user not shown)
Line 1: Line 1:
 
+
[[Category:CLP/400 examples]]
 
 
 
=== Reason to have this program ===
 
=== Reason to have this program ===
  
Line 8: Line 7:
  
 
=== The CLP Source Code ===
 
=== The CLP Source Code ===
 
+
<pre>
 
/* ***************************** */
 
/* ***************************** */
 
 
/* Who is using excess system resources (CPU % GE 3.0 percent)  */
 
/* Who is using excess system resources (CPU % GE 3.0 percent)  */
 
 
/* ***************************** */
 
/* ***************************** */
  
Line 22: Line 19:
 
   CHGJOB RUNPTY(&RUNPTY)
 
   CHGJOB RUNPTY(&RUNPTY)
 
   ENDPGM
 
   ENDPGM
 +
</pre>

Latest revision as of 14:11, 17 June 2005

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