Re: MOVEA -> EVAL

>Date: Tue, 5 Jun 2001 17:34:22 -0400
>From: "Charlie Massoglia" <cmassoglia@voyager.net>
>
>Wouldn't the following be much easier to understand than using pointers
and
>still far more efficient than a MOVEA?
>
>d                          ds
>d  xarr1                                100     dim(10)
>d     arr1                                         overlay(xarr1)
>d                          ds
>d  xarr2                                  10     dim(100)
>d     arr2                                         overlay(xarr2)
>
>c                       eval        %subst(xarr2:1:%size(xarr1)) = xarr1
>c                       eval        xarr2 = xarr1

Charlie, if you intended the dim(10) to be on the arr fields rather than
the xarr fields, then yes, that would work, and may be easier to
understand.
But your code doesn't handle the array starting indexes.
       C        MOVEA      arr1(n)     arr2(m)

It's probably not _any_ more efficient than MOVEA.  MOVEA just sets
pointers,
calculates lengths, and copies in one fell swoop.  (None of this applies
to MOVEA with numeric arrays - the compiler uses a loop for those, to
handle
conversions; you'd have to use a loop too (or possibly just EVAL directly,
depending on the number of elements and starting indexes.)

But, I'm still waiting for someone to post an example where using MOVEA is
the best solution :)

Barbara Morris

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