Re: Switches

["James W. Kilgore" <qappdsn@xxxxxxxxxxxxx>]

Troy,

Stupid question:  Does program MSG7AECL use ... wait a minute, at first I was 
going to ask if your RPG program used the Ux
indicators to test switches, but since this program name ends with "CL" I have 
to think that it is a CL program.  So here is my
-real- stupid question: Does MSG7AECL perform a RTVJOBA to determine the switch 
settings?

OK, I get it that the program starts with "MSG" and must be a message type of 
program, but what the heck is "7AE"? Version 7
American English?  I can understand that, but why, oh why, have it end with 
"CL"?  What if you changed the function into a different
language?  Do you really want to revisit each and every program that uses this 
just to change the program name to "MSG7AEJV"?  What
is wrong with "MSG7AE"?

Troy.C.Dills@blum.com wrote:

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

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