Re: Dumb date question

["Peter Dow" <pcdow@xxxxxxxxx>]

Hi Jim,

UDATE is the 6-digit version of *DATE, so:

C                   Eval      ParmAsOf   = UDATE

Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

----- Original Message -----
From: Jim Langston <jlangston@conexfreight.com>
To: <RPG400-L@midrange.com>
Sent: Wednesday, July 05, 2000 9:01 AM
Subject: Dumb date question


> V3R7M0 RPG IV
>
> Yes, I know there are now such things as dumb questions, but I think
> this one is an exception <g>
>
> I'm writing a new program, that has a display screen that the users are to
input
> values on, one of these is an As Of Date.  Wanting the users to input the
value
> as MM/DD/YY I set it up as zoned 6,0 with a date format (Y).  Before I
show
> the screen I want to initialize the date to today's date.
>
> C                   Eval      ParmAsOf   = *Date
>
> Well, this bombs out, I guess because *Date is a 8,0 field (MMDDCCYY I
think).
>
> So, without going into a whole rigamarole of createing a data structure,
breaking it
> down into MM DD CC YY and moving the parts, how do I initialize this field
to
> todays date?  And I should be creating it as Zones 6,0 right?
>
> Regards,
>
> Jim Langston
>
> +---
> | 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
> +---


__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.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
+---