Re: what is unclear about 01 02 03 -Reply

PaulMmn wrote:
> 
<SNIP> 
> Actually, your code snippet is better than the 'original' way this would
> have been coded (if you'll excuse me not inverting the boolean logic):
> 
>         01N02 03
>      AN 07N08 05
>      ORN15 23           line-of-code
>         01N02 03
>      AN 07N08 05
>      ORN15 23           line-of-code
>         01N02 03
>      AN 07N08 05
>      ORN15 23           line-of-code
>         01N02 03
>      AN 07N08 05
>      ORN15 23           line-of-code
> 

You think that's bad?

A rpgII to rpg400 conversion aid product whose results (or lack thereof) I have 
had the distinct displeasure of dealing with would
have turned the above section of code into this:

c        *in01    ifeq  *on
c        *in02    andeq *off
c        *in03    andeq *on
c        *in07    andeq *on 
c        *in08    andeq *off
c        *in05    andeq *on
c        *in15    oreq  *off
c        *in23    andeq *on
c                  line of code
c                 end
c        *in01    ifeq  *on
c        *in02    andeq *off
c        *in03    andeq *on
c        *in07    andeq *on 
c        *in08    andeq *off
c        *in05    andeq *on
c        *in15    oreq  *off
c        *in23    andeq *on
c                  line of code
c                 end
c        *in01    ifeq  *on
c        *in02    andeq *off
c        *in03    andeq *on
c        *in07    andeq *on 
c        *in08    andeq *off
c        *in05    andeq *on
c        *in15    oreq  *off
c        *in23    andeq *on
c                  line of code
c                 end
c        *in01    ifeq  *on
c        *in02    andeq *off
c        *in03    andeq *on
c        *in07    andeq *on 
c        *in08    andeq *off
c        *in05    andeq *on
c        *in15    oreq  *off
c        *in23    andeq *on
c                  line of code
c                 end

Now that's one way to waste a lot of brain cells.

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