> From: Jon Diercks
> Date: Wednesday, February 14, 1996 8:41AM
>
> At 04:32 PM 2/13/96 -0800, Stan Sieler wrote:
> >5. PURGEJOBQ
> >
> >I'd like to suggest:
> >
> >   PURGEJOBQ ...  [; when]   [;newjobq = name_of_job_queue]
> >
> >   "when" would be defined as:
> >
> >      when ::=   LATER | NOW
> >
> >   ("LATER" is the default)
>
> This sounds like a lot of work for HP to implement, with not much benefit
> gained.  I'd be happy with :purgejobq simply reporting an error if any
jobs
> exist for the q.  If I really want to delete a jobq (probably not very
> often), I'm going to set its limit to 0, wait for any executing jobs in
that
> q to finish, abort any waiting jobs for that q, and purge it.
 
This isn't much work at all.  Since MPE supports a WHILE loop in JCL, a
simple command file could be designed to accomplish the "later"
functionality.  Something along the lines of:
 
   PARM queuename
   LIMIT 0;JOBQ=!queuename [as suggested above]
   ERRCLEAR
   CONTINUE
   PURGEJOBQ !queuename
   WHILE (HPCIERR=<it didn't work>)
       PAUSE <a little while>
       ERRCLEAR
       CONTINUE
       PURGEJOBQ !queuename
   ENDWHILE
 
Obviously, you wouldn't want to execute this in a job IN the queue you want
to purge (It'll never be empty...), so this may tie up a terminal for a
while until the command completes.  Of course, since the SYSTEM jobq is
immune to being purged, this could be executed from a job in the SYSTEM
queue, but you may have  to wait for it to start executing...
 
This simple example doesn't address waiting/suspended jobs in the queue, but
there are already other examples of command files that take apart the
:SHOWJOB output to do this.  (alternatively, you could use MPEX as it has a
"built-in" command to abort multiple jobs based on state, which, of course,
will have to be updated when this gets implemented)