Re: [Re: RPGILE V4.3 Gotcha]

[Dave Mahadevan <mahadevan@xxxxxxxx>]

Hans:

I guess then that 7551 is not issued for V3R2 EVAL also?   It did evaluate to
false and true as I said on the IF, so  I guess V3R2 is different from V4Rx.

Can we all start that V3R2 is dead war again ;-)

boldt@ca.ibm.com wrote:

> Dave wrote:
> >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?
>
> First, yes, 7551 is issued when any decimal positions are dropped
> from a relational expression.  (For an EVAL, the message is
> issued only when the number of decimal digits drops below the
> decimal places of the target.)  Don't hold your breath, though,
> for a PTF in V3R2.
>
> Second, I'm not sure I understand what's happening with your code.
> There are no decimal places involved with the expression, so there
> can be no dropping of decimal digits.  I just tried it out myself
> on V4R4, and both conditions are true.
>
> Cheers!  Hans
>
> Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com
>

--
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
+---