> Alan Kincer wrote:
> Under WRKACTJOB there is a CPU percentage that I would like to have
> displayed on all screens / menus so users will quit bugging me whenever
> run these jobs that keep it at 100%  from 5-10 minutes at a time and then
> call me wondering why the 400 is "so slow."
> It would be even better if the number was red when it passed a certain
> threshold...say 80% or so.
> No matter how many times I explain it no one seems to remember. Arrgh!
> Anyway.....Can it be done?

One way I know of is the QWCRSSTS API, using list format SSTS0200.

If you need an example, let me know.  I used it in a command called
The code is RPG400 and was written several years ago, but it still works...

This command shows a screen with a tree view of all subsystems.  The Maximum
number of active jobs and current number of active jobs is shown for each

The attached job queues show as branches underneath each subsystem, with
maximum jobs allowed to run for each job queue and the current number of
jobs in each job queue.

At the top of the WRKSBSJOBQ display I have some of the information that
shows up on the WRKSYSSTS screen, like %CPU, Jobs in system,
System ASP size, and %System ASP used.

All of this information is retrieved by calling the appropriate API's.

Example (may wrap):

                          Work with Subsystem Job Queues
  % CPU used . . . . . . . :           .9      Auxiliary Storage:
  Elapsed time . . . . . . :    00:15:13        System ASP . . . . . . :
25770  M
  Jobs in system . . . . . :          343        % system ASP used. . . :

  Type options, press Enter.
  3=Hold   5=Display   6=Release   8=DSPSBSD   9=Print Descr   12=WRKSBSD

       Subsystem/               Sequence                       Maximum
  Opt  Job Queue     Library      Number  Allocated  Status     Active
         QBATCH        QSYS                                  *ACTIVE
*NOMAX         0
           QBATCH      QGPL               10      *YES         RLS
1         0
           QS36EVOKE   QGPL               20      *YES         RLS
*NOMAX         0
           QTXTSRCH    QGPL               50      *YES         RLS
*NOMAX         0
         QCMN          QSYS                                  *ACTIVE
*NOMAX         7
         QCTL          QSYS                                  *ACTIVE
*NOMAX         1
           QCTL        QSYS               10      *YES         RLS
*NOMAX         0
         QINTER        QSYS                                  *ACTIVE
*NOMAX         1
           QINTER      QGPL               10      *YES         RLS
*NOMAX         0

  F3=Exit     F5=Refresh     F9=WRKACTJOB     F10=Restart statistics
  F12=Cancel               F17=Print        F21=Command line

Steve Landess
Austin, Texas
(512) 423-0935

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.