Re: AS/400 equivalent to S/36 // IF AC

[Larry Bolhuis <lbolhui@xxxxxxx>]

Bill,

  As others have pointed out, there is no direct equivalent.  A
technique that I have used many times is to create a data are with the
name of the process (ie "ORDERPOST").
In the job that is performing the test attempt any lock on the data
area.  If it succeeds-release it and then do what needs to be done. 
Also at the very beginning of the job being tested for, do an ALCOBJ
*EXCL on the data area.  If that lock fails then this job Must already
be running so I quit. (This aleviates the possibility that the first
occurance of the job was going through the jobq when the second
occurance was being submitted)

Larry Bolhuis
Arbor Solutions, Inc
lbolhui@ibm.net

bmegenity@ruskin.com wrote:
> 
> Would someone please tell what the AS/400 equivalent to the System/36
>     // IF ACTIVE   command?
> 
> I am converting from S36EE to AS400 Native and ran across this. While I
> am on the subject, is there an AS/400 equivalent to Microsoft's Knowledge
> Base database anywhere on the net for asking plain English, dumb
> questions like the one above? I don't mind showing my ignorance to the
> computer, but I do hate doing it out here in front of God and everyone.
> 
> Anyway, thanks for this and all of the other assistance.
> 
> Bill Megenity                bmegenity@ruskin.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
> +---
+---
| 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
+---