Re: Date fields and moving from yyyymmdd to mmddyy

I am disappointed with date fields.  It was my understanding that we 
should embrace them and forget 10000.01 because the new date fields would 
do everything but make morning coffee. 

Now I realize that instead of a couple of lines of simple and clear code 
we have D-specs, Test opcode, *LOVAL,  *HIVAL, Procedures, date formats, 
*MDY, *MDY/, and on and on.   What used to be a couple of simple, clear, 
and accurate lines of code has become a nightmare of new code scattered 
all over the place.  It looks even worse than when my cat scatters kitty 
litter.

I do like the ability to add dates to dates.  I've used it twice in the 
last two years alone.

_______________________
Booth Martin
boothm@earth.goddard.edu
http://www.spy.net/~booth
_______________________




John Hall <jhall@hillmgt.com>
Sent by: owner-rpg400-l@midrange.com
02/07/2000 08:15 PM
Please respond to RPG400-L

 
        To:     RPG400-L@midrange.com
        cc: 
        Subject:        Re: Date fields and moving from yyyymmdd to mmddyy


I recommend setting up two variables of date type 

D FIRSTDATE            S           D   DATFMT(*MDY) INZ(*LOVAL)
D LASTDATE             S           D   DATFMT(*MDY) INZ(*HIVAL)

This will work.  Also when IBM changes the date window all it will need
is a recompile.

Even better would be to put it in a service program like 
%mdyDate(ANYDATE)

Chris Bipes wrote:
> 
> Test the date for GT 12/31/2039 or LT 01/01/1940 after the TEST(D) 
before
> the move.
>
+---
| 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
+---