Re: A-ADD a number to itself

[Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx>]

We also had a lot of that to define work fields.  Since the field was in 
the result field, you could define the size as well/

> Whoa!,
>
> Back in system 36/38 RPGIII days we used that crap code
> to straighten out blank or short digit fields.  I'm thinkin pre-1990?
>
> Bill
>
>
>
>
>
> From:   "Jim Hawkins" <jhawkins@xxxxxxxxxxxx>
> To:     <rpg400-l@xxxxxxxxxxxx>
> Date:   04/12/2018 01:08 PM
> Subject:        A-ADD a number to itself
> Sent by:        "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx>
>
>
>
> Reviewing some RPGIV code and found a line:
>
> C                                Z-ADD   fielda           fielda
>
>   
>
> Yes, factor 2, and the result columns are the same variable name. This
> appears twice (for different fields) as part of a segment of code that
> seems
> to do much more work than it needs to accomplish a calculation. Anyway,
> having a little trouble getting my head around what the results of this
> would be.  It is in a much larger loop that processes different records
> each
> iteration.
>
>   
>
> Regards,
>
>   
>
> Jim Hawkins
>
> Programmer Analyst
>
> Interkal LLC
>
>