RE: Dumb date question

[Anton Gombkötö <Gombkoetoe@xxxxxxxxxx>]

ParmAsOf was a 6/0 field in Jim's initial post.

Then someone defined Today as a date field.

A date field holds dates and needs no directives how to *store* it. All we 
do is tell how to provide its contents to non-date fields.

So it's no surprise that this works (you can paste it in a SEU session):

D Date1           S               D   DATFMT(*MDY) 
INZ(d'1999-12-31')
D 
Date2           S               D   DATFMT(*YMD) 

C                   EVAL      Date2  = 
Date1
C     Date1         DSPLY 

C     Date2         DSPLY 

C                   IF        Date1  = 
Date2
C     'Yep, equal!' 
DSPLY
C                   ENDIF 

C                   EVAL      *INLR  = 
*ON

The two date fields can be easily evaluated and compared, that has nothing 
to do with the external presentation.
It does also not change the way how we have to provide initial values.
The two DSPLYs deliver different results, due to the desired differnet date 
formats.

Hope this makes it clearer....


Mit freundlichen Grüssen / Best regards

Anton Gombkötö
mailto:Gombkoetoe@ASsoft.com

AS Software GmbH
http://www.assoft.com

Jedleseer Strasse 3
A-1210  Wien

Tel: +43 1 278 15 01-0
Fax:+43 1 278 15 01-22

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