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

Way back when, we ran into the same situation during the transition phase, and 
being
ever vigilant, we RTFM and concluded that under OS/400 timing is everything and 
that
the reason that there is no native IF ACTIVE function is due to a high 
probability
of false negatives.

So we locked something.  Our choice was to create a physical file called 
IFACTIVE
(go figure) with member names that corresponded to the procedure name and a 
program
called IFACTIVE.  It was easy enough to use the QUSRTOOL scan function back 
then to
find the occurances within our OCL and change // IF ACTIVE to CALL IFACTIVE
PARM(?proc?).  To provide feedback to the OCL we had to settle upon picking a
position in the LDA reserved for this purpose.

We decided against placing something into data areas (required manual cleanup) 
or
creating data areas to lock, although we did entertain the idea of creating a
library called IFACTIVE populated with data areas corresponding with procedure 
names
but that threw a wrinkle into creating a test environment.

We also kicked around the idea, but never got around to trying it (too busy 
going
full native) where a command was written that called a CL program which did a
STRS36PROC which did a IF ACTIVE and ran at like priority 2.  Depending on how 
many
times it would be called it could be a timing killer on your machine since it 
would
have to freeze everythinig going on and do the equivalent system gathering of a
WRKACTJOB.  Seemed like overkill.


> 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
+---