Re: IF ACTIVE

["Larry D. Bolhuis" <lbolhui@xxxxxxx>]

Chris,

 My standard technique is to create a Logical Data Area with the jobs name.  
The job locks this DA
(ALCOBJ).  To see if it is active attempt to lock the DA exclusively.  If you 
get the lock it's not
active (remember to drop the lock in this case(DLCOBJ).)  If the job terminates 
any possible way,
the lock is gone.

 - HTH - Larry

Chris.Chambers@v2music.com wrote:
> 
> Does anyone know of an equivalent CL command to the S/36 OCL Statement:
> 
> // IF ACTIVE-PROGNAME
> 
> The best advice I can get so far is to set switches in a Data Area - but of
> course if the program crashes the switches stay set.
> Any solutions mirroring the simplicity of the S/36 gratefully appreciated.
> 
> Thanks in Advance
> 
> Chris
> 
> +---
> | 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
> +---

-- 
Larry Bolhuis         |
Arbor Solutions, Inc  | Two rules to success in life:
(616) 451-2500        | 1. Never tell people everything you know.
lbolhui@ibm.net       |
+---
| 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
+---