Re: Switches

Wow, that brings back memories!

Switches show up in your program as indicators U1 through U8. When you see
code based on your indicator (I see you are setting on U1) that code is
dependant on the switch.

It was often used so that you could write a program that would run through
once without updating files so you could check the results. Like if you
wanted to show what payroll would look like without actually printing
checks. The test set runs a pass with indicators one way, the live set runs
with the indicators another.

Chris Rehm
javadisciple@earthlink.net
If you believe that the best technology wins the
marketplace, you haven't been paying attention.


----- Original Message -----
From: <Troy.C.Dills@blum.com>
To: <rpg400-l@midrange.com>
Sent: Tuesday, July 10, 2001 9:02 AM
Subject: Switches


> Hello all
>
> Could someone please help me understand how the switch is controlling the
program it is submitting, I understand the
> flipping of the switches to make them true or false (that is my case
anyway).  I have a display screen that has a simple
> yes or no question. If it is yes then it is true otherwise it is false. I
re-wrote the CL without using the switch and using the
> value of &WSALL as shown below, but that has blew up in my face. Could
some please help me with understanding
> the switch used in submitting the program; how it controls my program? Any
information would be greatly appreciated
>
>
>  IF         COND(&WSALL = 'Y') THEN(DO)
>  CHGVAR     VAR(&SWITCH) VALUE('10000000')
>  ENDDO
>
> SBMJOB     CMD(CALL PGM(*LIBL/MSG7AECL) PARM(&CPER +
>                        &VPER &INCAID &USER)) JOB(XFER2STC) +
>                        SWS(&SWITCH)
>
>
> Thanks
> Troy C. Dills
> Troy.C.Dills@Blum.com
> Julius Blum Inc.
> 704-827-1345 ext 269
>
> spammers  not  welcome !!!!!!!!!!!!!!!!!!!!!
>
>
> +---
> | 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
> +---

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