Re: MOVEA -> EVAL

>Date: Fri, 15 Jun 2001 13:35:56 -0700
>From: "Peter Dow" <pcdow@yahoo.com>
>
>I ran across this piece of code today, and while I realize this isn't the
>"best" solution, it was pretty common in pre-RPGLE days:
>
>C         MOVEA     '0000'        *IN(41)  Set indic.
>
>In the days when a lot of indicators were required to do things with a
>display file, this was a common technique to turn off a range of
indicators.
>It could also be used to both seton and setoff indicators within a range,
>e.g.
>
>C         MOVEA     '01010101'    *IN(41)  Set indic.
>
>which reduced two SETON/SETOF statements to a single line of source code.
>
>Thought you might be interested.

Thanks Peter.  In my opinion, though the explicit SETON and SETOF
would have been clearer, even if they took more lines (setting
on/off those 8 indicators would take 4 SETON/SETOF lines, but even
then I'd rather see them than the MOVEA).  Even better would be
EXSR CLRSFL (or whatever that set of indicators is for).

But anyway, nowadays *IN indicators are considered harmful, and
most requirements for them have disappeared.

Keep trying. :-)

Barbara

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