RE: JobQ question

It's easy but not trivial.

The idea is: every 5 minutes, determine the top job on the job queue.  Five
minutes later, check to see if it is still there.

Do it like this: use wrkjobq *print, cpysplf the print file to a PF, read
the PF with a CL program, compare the top job/user/number to a data area.
If equal, nuke RJE *immed, wait 30 seconds, restart RJE, set the top job
data area to blank, branch to wait for 5 minutes tag then repeat.  If not
equal, set the data area equal to the value just retrieved, branch to the
wait 5 minutes tag then repeat.

It isn't pretty but it is efficient and fast and it does what you asked it
to do.

Richard Jackson
mailto:richardjackson@richardjackson.net
http://www.richardjacksonltd.com
Voice: 1 (303) 808-8058
Fax:   1 (303) 663-4325

-|-----Original Message-----
-|From: owner-midrange-l@midrange.com
-|[mailto:owner-midrange-l@midrange.com]On Behalf Of Mike Silvers
-|Sent: Thursday, October 26, 2000 6:31 PM
-|To: MIDRANGE-L@midrange.com
-|Subject: JobQ question
-|
-|
-|I have a problem to work on.  I am working on a V3R2M0 box, and I need to
-|basically monitor a jobq.  I am having a problem with some of the
-|RJE jobs.
-|They are submitted to the jobq, then the subsystem.  Sometimes, a
-|job enters
-|the subsystem and completes, then the next job will not enter the
-|subsystem.
-|To correct the problem, I need to end the subsystem, then start
-|it again.  I
-|need to resolve this problem automatically.  What I am thinking
-|of doing is
-|monitoring the jobq.  When a job enters the jobq, a program should be
-|triggered.  The program will then wait for 5 minutes and check to
-|see if the
-|job is still in the jobq.  If it is in the jobq, it will end and start the
-|subsystem.  I realize that later OS versions have an exit program to
-|complete this task, but I am dealing with V3R2M0, which does not have this
-|exit program.
-|
-|Any ideas?
-|
-|Thanks
-|
-|================================
-|
-|Mike Silvers, IBM Certified Expert
-|Hainey Business Systems
-|8 E. Canal St
-|Dover, PA 17315
-|Branch Office:  (410) 397-8739
-|Phone:  (800) 932-3380
-|Fax:  (717) 292-9474
-|Web: http:\\www.hbs-inc.com
-|________________________________
-|Providing E-Commerce, EDI, AS/400
-|Development and related services
-|nationwide.
-|================================
-|
-|+---
-|| This is the Midrange System Mailing List!
-|| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
-|| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
-|| To unsubscribe from this list send email to
-|MIDRANGE-L-UNSUB@midrange.com.
-|| Questions should be directed to the list owner/operator:
-|david@midrange.com
-|+---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---