Re: [Re: RPGILE V4.3 Gotcha]

["Eric N. Wilson" <doulos1@xxxxxxxx>]

Hans,
What would the relative performace differences be between using this
gentleman's multiplications vs. Setting up a data structure

D Date    DS
D   DATECY    1    2    0
D    Date_Yr    3    4    0
D    Date_Mo    5    6    0
D    TestDate    1    6    0



C            If    TestDate < 199909

I would imagine that even if you used different field names in the DS that
the processing would be worlds faster since moves are generally less
expensive in terms of microprocessor time.
______________________________________________
Eric N. Wilson
President
Doulos Software & Computer Services
2913 N Alder St
Tacoma WA 98407


----- Original Message -----
From: Dave Mahadevan <mahadevan@fuse.net>
To: <RPG400-L@midrange.com>
Sent: Tuesday, October 05, 1999 12:51 PM
Subject: Re: [Re: RPGILE V4.3 Gotcha]


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

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