Subject: | |
From: | |
Reply To: | |
Date: | Wed, 10 May 2006 05:44:27 -0500 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
I have COBOL program that does it (checks all queues) and allows any
number of concurrent occurrences.
I run it at the start of a stream where concurrent runs is a problem.
Someone else probably has an easier way but if not, let me know and
I'll send you the source.
Mike
>>> Robert Mills <[log in to unmask]> 5/10/2006 6:31
AM >>>
We have loads of jobs that would cause damage if more than one copy
was
run. To prevent this we have the following code at the start of them:
!if jobcnt('jobname,user.account') > 1 then
! tellop WARNING: Job is already running. I'm terminating.
! eoj
! endif
A couple of system problems has resulted in a large backlog of jobs
waiting to run. One of our jobs is never getting passed the above
check
because by the time it moves from WAIT to EXEC our scheduler has
streamed the next copy which joins the WAIT queue.
One way I can see around this is to do the following instead (we have
MPEX):
!setjcw mpexfaststart 1
!mpex
%if jscount('jobname,user.account&EXEC') > 1 then
% tellop WARNING: Job is already running. I'm terminating.
% eoj
% endif
%exit
!setjcw mpexfaststart 0
Anybody have a method that would work with vanilla MPE (our D/R box
does
not have MPEX)?
regards,
Robert W.Mills
MIS Systems Development Manager
Windsong Services
+44 (0)20 8309 3604
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
|
|