Re: Dumb date question

["Walter Hesius" <Walter.Hesius@xxxxxxxxxxxxxxxx>]

Try udate (uyear, umonth, uday). It's the same as *date, but it's only 6,0

Whether the date is in format ymd or dmy depends on either a sysval, or a
H-spec definition within your source member.


----- Original Message -----
From: Jim Langston <jlangston@conexfreight.com>
To: <RPG400-L@midrange.com>
Sent: Wednesday, July 05, 2000 6:01 PM
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
> +---
>

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