Re: Display jobs according to job q

[Vern Hamberg <hambergv@xxxxxxxxxxxxxx>]

At 04:43 PM 9/1/97 +1000, James wrote:

>Does anyone know a way of displaying jobs by the job q they were
>submitted into?
>
>I remember being told of a method in the distant past but can't for the
>life of me remember it.  Tried WRKSBSJOB, WRKACTJOB.

James,

Here's a followup of my last message. This is a screen print that shows you
what the utility I mentioned looks like:
............................................................................
.......
: MT400                   Work with Subsystem Job Queues
WRKSJQR     :
: Subsystem: ATMONITOR     Library:  ATLIB
      :
: Status:    *ACTIVE       Active Jobs:     1     Maximum Active:    14
      :
:
      :
: Type options, press Enter.
      :
:  2=Change job  3=Hold  4=End job  5=Work with  6=Release  8=Spooled files
      :
:
      :
:     Max                                          Jobq  Submitted
Submitted    :
: Opt Act  Jobq/Job      Status          User       Pty  by          from
      :
:  _  01   PBATCH        RELEASED
      :
:  _  01   QPGMR         RELEASED
      :
:  _  01   QBATCH        RELEASED
      :
:  _          ESCPURGE   *JOBQ-HLD       CLAUSEN      5  CLAUSEN     DSP04
      :
:  _  04   ACMS          RELEASED
      :
:  _  03   GV            RELEASED
      :
:  _  01   ATMONITOR     RELEASED
      :
:
      :
:
      :
:
      :
:
      :
:
      :
:
Bottom  :
: F3=Exit  F5=Refresh  F11=Show active jobs only       F21=Command Line
      :
:...........................................................................
......:

This may whet your appetite. I've made a few changes and additions from the
original. As it stands, it shows the JOBQs for only one subsystem. I intend
to expand it to show more subsystems, as WRKACTJOB can.

We've found this very useful when jobs are backed up in one JOBQ and
another is empty. Without this tool, it is very hard to find where to move
a job.

Cheers,

Vernon Hamberg
Systems Software Programmer
Old Republic National Title Insurance Company
400 Second Avenue South
Minneapolis, MN 55401
(612) 371-1111 x480
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---