Re: [Re: RPGILE V4.3 Gotcha]

[Dave Mahadevan <mahadevan@xxxxxxxx>]

Hans:

boldt@ca.ibm.com wrote:

> Well, to be fair, there are some tips that aren't mentioned
> in the manual that perhaps should be.  Such as checking for
> message 7551 in the compile listing to see if any expression
> is dropping any decimal precision.

Does this apply on an IF?

I recently had a problem with the precision.

0305.00 C                   EVAL      I=DATE_CY*10000 + DATE_YR*100 + DATE_MO
0306.00 C                   IF        DATE_CY*10000 + DATE_YR*100 + DATE_MO <
199909
0307.00 C*                  IF        I < 199909
0308.00 C                   EVAL      MOYR_FROM =
091999                           start from sep 99
0309.00 C
ENDIF                                                  DATE_CY*10000 etc

DATE_CY, DATE_YR,DATE_MO are all 2  Zoned 0

stmt 306 evaluated to false when DATE_CY=19, DATE_YR=98, and DATE_MO=01 but when
I (which 10I 0) is used for the if as in stmt 307, it  returned true.   Can 7551
be enhanced fot the IF intermediate result also in V3R2 on?

--
Thank You.

Regards

Dave Mahadevan.. mailto:mahadevan@fuse.net


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---