Re: EVALuating the result of logical comparisons Was: Is thisthe Free-Format that we asked for?

Actually, I would code it...

C           If       *IN21 = *On
 *          *** Toggle Switch ***
C           Eval     Switch = Not Switch
C           EndIf

Regards,

Jim Langston

Anton Gombkötö wrote:
> 
> There is another one:
> 
> I think everybody coded a "switch" already for display files.
> e.g. F21 turns something on and off.
> 
> C               IF      *IN21   = *ON
> C               IF      Switch  = *ON
> C               EVAL    Switch  = *OFF
> C               ELSE
> C               EVAL    Switch  = *ON
> C               ENDIF
> C               ENDIF
> 
> Now i do it like this:
> 
> C               IF      *IN21   = *ON
>   * Switch goes *ON when it is *OFF and vice versa
> C               EVAL    Switch  = Switch = *OFF
> C               ENDIF
> 
> As i know that it is uncommon, i include the comment line.
>
+---
| 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
+---