RE: Monitor for existing job.

[Vernon Hamberg <vhamberg@xxxxxxxxx>]

ALCOBJ *EXCL with WAIT(0) will get an error if the object is already
allocated. You can MONMSG for that. It's a 'Cannot allocate' thing - CPF1002.

This is nice, because lock goes away when job ends. No contents to maintain.

At 12:15 PM 4/9/02 -0500, you wrote:
>How do you monitor for that? How does that work? I am doing this in RPG not
>CL.
>
>-----Original Message-----
>From: Fisher, Don [mailto:Dfisher@roomstoreeast.com]
>Sent: Tuesday, April 09, 2002 12:04 PM
>To: 'midrange-l@midrange.com'
>Subject: RE: Monitor for existing job.
>
>
>I personally don't like using a value in a data area to determine whether a
>job is running.  The reason being that jobs can sometimes end without
>updating the data area with the "not running" value.
>
>When I have this requirement I have the job allocate the data area with an
>exclusive lock.  If it fails, then another copy must be running.
>
>Hope that helps.
>
>Donald R. Fisher, III
>Project Manager
>The Roomstore Furniture Company
>(804) 784-7600 extension 2124
>DFisher@roomstoreeast.com
>
><clip>
>If there is a '1' in the data area, it is running, if there is a '0', it
>isn't running.
><clip>
>_______________________________________________
>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
>To post a message email: MIDRANGE-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
>or email: MIDRANGE-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/midrange-l.
>_______________________________________________
>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
>To post a message email: MIDRANGE-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
>or email: MIDRANGE-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/midrange-l.