Re: MOVEA -> EVAL

["Charlie Massoglia" <cmassoglia@xxxxxxxxxxx>]

Wouldn't the following be much easier to understand than using pointers and
still far more efficient than a MOVEA?

To handle the function of MOVEA using EVAL:

C        MOVEA      arr1(n)     arr2(m)
C        MOVEA(P)   arr1(n)     arr2(m)

 becomes

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

Charles L.Massoglia, President
Massoglia Technical Consulting, Inc.
cmassoglia@voyager.net
In MI 517-676-9700 or in NC 919-363-9395


----- Original Message -----
From: <bmorris@ca.ibm.com>
To: <RPG400-L@midrange.com>
Sent: Tuesday, 05 June, 2001 12:14
Subject: Re: MOVEA -> EVAL


>
> >Date: Mon, 04 Jun 2001 14:17:08 -0400
> >From: "M. Lazarus" <mlazarus@ttec.com>
> >
> >  I was wondering about an item that you published in MC, May 2001 issue,
> >p78, entitled V5R1 Enhancements to RPG IV.  In Figure 2 it states the
> >opcode and suggested freeform replacement.
> >
> >  Next to MOVEA is says EVAL.  Has EVAL been enhanced to substitute MOVEA
> >functionality?
>
> Mark, EVAL doesn't specifically duplicate the function of MOVEA, but with
> a couple of based character fields, you can copy data any way you like.
>
> Formerly, MOVEA was the only way to do string processing in RPG, and now
> I think it's often used out of habit where newer string builtin functions
> can handle the same task without bothering with arrays at all.
>
> Anyway, to handle the function of MOVEA using EVAL:
>
> C        MOVEA      arr1(n)     arr2(m)
> C        MOVEA(P)   arr1(n)     arr2(m)
>
> becomes
>
> D src       s         65535a   based(pSrc)
> D tgt       s         65535a   based(pTgt)
> D srcLen    s            10i 0
> D tgtLen    s            10i 0
>  /free
>         pSrc = %addr(arr1) + %size(arr1) * (n - 1)
>         pTgt = %addr(arr2) + %size(arr2) * (m - 1)
>         srcLen = %size(arr1) * (%elem(arr1) - n + 1)
>         %subst(tgt : 1 : srcLen) = %subst(src : 1 : srcLen) // no padding
>
>         tgtLen = %size(arr1) * (%elem(arr1) - n + 1)
>         %subst(tgt : 1 : tgtLen) = %subst(tgt : 1 : srcLen) // padding
>
> 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
+---