RE: Strange behavior w/%editc()

Now that explains my reply!  Thank you.

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin



                    "Hillier, Martin"
                    <Martin.Hillier@M       To:     "'rpg400-l@midrange.com'" 
<rpg400-l@midrange.com>
                    attel.com>              cc:
                    Sent by:                Fax to:
                    rpg400-l-admin@mi       Subject:     RE: Strange behavior 
w/%editc()
                    drange.com


                    02/26/2002 10:29
                    AM
                    Please respond to
                    rpg400-l






This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
Ah - as in fiscalYr could be -9999, so it needs 5 digits to get -10000?

-----Original Message-----
From: Buck Calabro [mailto:Buck.Calabro@commsoft.net]
Sent: 26 February 2002 15:24
To: rpg400-l@midrange.com
Subject: RE: Strange behavior w/%editc()


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
_______________________________________________
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.
_______________________________________________
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.