RE: Strange behavior w/%editc()

[Buck Calabro <Buck.Calabro@xxxxxxxxxxxx>]

Mark W wrote

>I have the following defined:
>     Dfclprd           s              6  0 DTAARA(fclprd)
>     DdsFiscal         ds             6
>     D fiscalYr                       4  0 overlay(dsfiscal:*next)
>     D fiscalMo                       2  0 overlay(dsfiscal:*next)
>
>It is used in this way:
>     c                   eval      headdesc = Center('Fixed
>Model FY ' +
>     c                              %editc(fiscalYr - 1:'X'):40)
>
>The output looks like this:
> Fixed Model FY 02001

This is part and parcel of the 'expression' rules for EVAL.
Basically, 'fiscalYr - 1' is an expression.  In order to hold all the
possible digits of the resulting value, the compiler applies some rules to
create an 'intermediate' or 'work' variable.  The %editc() is working
against the work variable.

I don't have the manual reference handy, but it's in the section on numeric
precision in the RPG Reference.

  --buck

"Thousands of geniuses live and die undiscovered --
 either by themselves or by others." -Mark Twain