RE: Monitor for existing job.

["Wills, Mike N. (TC)" <MNWills@xxxxxxxxxxxxxx>]

Well, I got it working via this method. I lock the data area just before
processing, and unlock just before I quit. This will achieve exactly what I
was looking for. Thanks guys for all the help.

-----Original Message-----
From: MWalter@hanoverwire.com [mailto:MWalter@hanoverwire.com]
Sent: Tuesday, April 09, 2002 12:36 PM
To: midrange-l@midrange.com
Subject: RE: Monitor for existing job.



*LOCK      IN(E)       dataareaname

                   if                %error
                   do something to get out
        endif

Mark


Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040



                    "Wills, Mike N.
                    (TC)"                      To:
"'midrange-l@midrange.com'" <midrange-l@midrange.com>
                    <MNWills@taylorcorp        cc:
                    .com>                      Subject:     RE: Monitor for
existing job.
                    Sent by:
                    midrange-l-admin@mi
                    drange.com


                    04/09/02 01:15 PM
                    Please respond to
                    midrange-l






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.





_______________________________________________
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.