RE: U1-8 Switches: Similar to *LDA ?

Viji wrote:

>I needed to set on U1...U8, depending on 
>data/user selection  in an RPG pgm and
>call another RPG which will behave 
>depending on how these indicators are set.

Just as the (UDS) LDA isn't written to job storage until LR, the external
switches aren't written to the job until LR.  You can SETON and use U1 in
the first program, but it hasn't been propagated to the job yet.  This
behaviour is well documented in the RPG Reference:
http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/QB3AGZ03/1.4.2.1  That's
why the CL program works: it immediately sets the job values via CHGJOB
SWS().

If you really must use external indicators, stick with your CL setting
program.  I would strongly recommend passing parameters instead.  I've found
that parameters are much more flexible and easy to use and debug.

Buck Calabro
Commsoft; Albany, NY
"Nothing is so firmly believed as
 that which we least know" -- Michel Montaigne
Visit the Midrange archives at http://www.midrange.com
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---