RE: move vs eval

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

If I understood you correctly, this piece of code:

d Dec12           s             12  5 inz(1.5)
d Alph15          s             15

c                   eval      Alph15 = %editc(%dec((Dec12 * 10000) :
c                                             15 : 0) : 'X')
c     Alph15        dsply

gives a result of :

DSPLY  000000000015000

Is that what you want?  By the way, I assume your piece of code was untested
because it will lose the part after the decimal point.

Scott Mildenberger

> -----Original Message-----
> From: Booth Martin [mailto:Booth@MartinVT.com]
> Sent: Friday, June 21, 2002 12:29 PM
> To: rpg400-l@midrange.com
> Subject: move vs eval
>
>
> --
> --
> [ Picked text/plain from multipart/alternative ]
>
>
> Lets say I have two fields: one Dec12 (12/5) and one Alph15 (15Alpha)
> I wish the 12/5 (value of 1.5) to be in the 15Alpha field as
> 000000000150000'
>
> I can do:
>    C  Z-Add   Dec12     Tmp15              15  0
>    C  Move    Tmp15     Alph15
>
> Now:  how do I do the equivalent with Eval?
>
>
>
> ---------------------------------------------------------
> Booth Martin   http://www.MartinVT.com
> Booth@MartinVT.com
> ---------------------------------------------------------
> --
> [ Content of type image/gif deleted ]
> --
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>