Re: RPG IV Date Question

>> how do you get today's date into a date field?


The code below will place the current date in Cur_Date and the current time in 
Cur_Time.  Now you can use MOVE to place Cur_Date in
any other date field you wish.



D                 ds
D TimStp                          z
D   Cur_Date                      d   Overlay(TimStp:1)
D   Cur_Time                      t   Overlay(TimStp:12)

D TodaysDate                      d   DatFmt(*iso)


C                   Time                    TimStp

C                   Move    Cur_Date        TodaysDate


Beware of using UDATE or *DATE.  They will give you the date the job starting 
which may not be the current date.

Also, if you're on V5R1, there is a more elegant way with the new Biffs:


D TodaysDate                      d    DateFmt(*iso)

/free

     TodaysDate = %date();

/end-free

Kind regards,
Seth Shields
Julius Blum Inc.