Re: Conversion to free-form

["Stephen M. West" <stephen.west@xxxxxxxxxxxxxxxxxxxxxxx>]

Raul,
 
I bow to your elegant and much more straight forward approach to
calculating CENTS.  It is humbling to a see such a better coded statement.

Thanks.

Stephen West
------------------------------

-----Original Message-----
From: WDSCI-L [mailto:wdsci-l-bounces@xxxxxxxxxxxx] On Behalf Of Raul A
Jager W
Sent: Thursday, April 14, 2016 6:42 PM
To: wdsci-l@xxxxxxxxxxxx
Subject: Re: [WDSCI-L] Conversion to free-form

you can also do:

DOLLARS = %dec(dlrAmt:13:0);
CENTS = dlrAmt - dollars;

On 04/13/2016 02:34 PM, Stephen M. West wrote:
> There is not a straight forward replacement in free-format for the 
> Z-ADD opcode.  An example of this is splitting a dollar amount into 
> the whole dollar value and the cents value and storing them as separate
fields.
> The following example shows just how simple it is in [old] 
> fixed-column
> RPG:
>
>      D DLRAMT          S             10s 2 Inz(876.54)
>      D DOLLARS         S              4p 0
>
>      D CENTS           S              2p 2
>
>      C                   Z-ADD     DLRAMT        DOLLARS
>      C                   Z-ADD     DLRAMT        CENTS
>
> Now, DOLLARS contains the value 876, and CENTS contains the value .54.
>
> That was easy because Z-ADD opcode does not throw errors when the 
> receiver is too small to hold the full result.  Instead, it truncates 
> in a way that RPG programmers have been able to exploit.  Now so with
EVAL.
> Now for the [new] free-format RPGLE version.
>
>      dcl-s DLRAMT                     zoned(10:2) inz(876.54);
>      dcl-s DOLLARS                    packed(4);
>
>      dcl-s CENTS                         packed(2:2);
>
>      DOLLARS = %dec(dlrAmt:13:0);
>      CENTS = %dec(%subst(%editc(dlrAmt:'X'):9:2):2:0) / 100;
>
> Again, DOLLARS = 876, and CENTS = .54.
>
> That was easy, too ... sort of.
>
> MOVE is worse.   There are 18 different types of conversions for MOVE.
>
> Stephen West
> Software Engineer