RE: Saving User Switches

[Buck Calabro <mcalabro@xxxxxxxxxxxx>]

On Friday, May 01, 1998 12:05 PM, bmegenity@ruskin.com 
[SMTP:bmegenity@ruskin.com] wrote:
> I am working in an environment in which we are moving from the 
S36EE
> to
> Native mode. We are currently running on an AS/400 510 (Risc) and
> OS/400
> V3R7. We have many CL programs (converted from OCL) in which we 
make
>
> heavy use of the user switches U1-U8. Is there a
> method/utility/command
> by which we can save/suspend the user switch settings, reset them
> for use
> in another procedure and then restore them to their original
> settings
> when we return to the calling procedure? Are user switches still
> being
> used or are they replaced by newer techniques?

DCL &SWITCHES *CHAR 8

RTVJOBA SWS(&SWITCHES)  /* Save UPSI    */

chgjob sws(11111111)
call rpgpgm

CHGJOB SWS(&SWITCHES)   /* Restore UPSI */

As for newer techniques, may I suggest using parameters?
Telling a program to do stuff because U3 is on seems less intuitive 
than telling it that this is company 3...


Buck Calabro
Commsoft, Albany, NY
mailto:mcalabro@commsoft.net

Free advice is worth everything you paid for it...

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@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
+---