Difference between revisions of "WHO BAD"

From MidrangeWiki
Jump to: navigation, search
 
 
(5 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 ===
  
See [[Degradation]]
+
See  
 +
* [[Degradation]]
 +
* [[WRKACTJOB a resource hog]]
  
 
=== 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)  */
 +
/* ***************************** */
  
/* ***************************** */
+
  PGM
 +
  DCL &RUNPTY *DEC (2 0)
 +
  RTVJOBA RUNPTY(&RUNPTY)
 +
  CHGJOB RUNPTY(1)
 +
  WRKACTJOB RESET(*YES) CPUPCTLMT(3.0) SEQ(*CPUPCT)
 +
  CHGJOB RUNPTY(&RUNPTY)
 +
  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