Re: Dumb date question

[Ken.Slaugh@xxxxxxxxxx]

Jim
     Be aware - UDATE does not increment at midnight. UDATE is a job date.
That is to say, the date the job starts.

     If this is not acceptable for a program not to be running past
midnight, then consider getting the first 6 digits of the TIME opcode with
a 12 digit result field:

     time      #TIME12   12.0      gets date and time in system value
format.
     eval ParmAsOf = #TIME12 / 1000000        just simple math.
or
     movel     #TIME12   ParmAsOf        will work as well.

Keep in mind this does not work as an 'International' date routine.

Ken Slaugh  (707) 795-1512 x118
Chouinard & Myhre, Inc.
AS/400 Professional Administrator/MSE
Client Access Specialist
http://www.cm-inc.com/


                                                                                
                 
                    "Peter Dow"                                                 
                 
                    <pcdow@yahoo.com>        To:     <RPG400-L@midrange.com>    
                 
                    Sent by:                 cc:                                
                 
                    owner-rpg400-l@mi        Subject:     Re: Dumb date 
question                 
                    drange.com                                                  
                 
                                                                                
                 
                                                                                
                 
                    07/05/00 11:44 AM                                           
                 
                    Please respond to                                           
                 
                    RPG400-L                                                    
                 
                                                                                
                 
                                                                                
                 



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




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