Re: MOVEA -> EVAL

["Peter Dow" <pcdow@xxxxxxxxx>]

Hi Barbara,

Couldn't you simplify some of that a little?

    pSrc = %addr(arr1(n))
    pTgt = %addr(arr2(m))

And just a nit on the padding example -- if tgtlen < srclen, it would be
truncating.

I think this is a case where I'd stick with the fixed format opcode MOVEA --
free format is obviously not a panacea.

Regards,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax


> 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



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


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

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