RE: Current date in Free-format

You can do it in /free by using the new %date() or %timestamp() bifs without
any parameters...

d nowTimeStamp    s               z
d nowDate         s               d
...
/free
    nowTimeStamp = %timestamp();
    nowDate = %date();
/end-free

Joel R. Cochran
Director of Internet Services
VamaNet.com
(800)480-8810
mailto:custservice@vamanet.com

> -----Original Message-----
> From: Jade Richtsmeier [mailto:jade.richtsmeier@mcis.cog.mn.us]
> Sent: Wednesday, January 16, 2002 10:52 AM
> To: RPG400-L@midrange.com
> Subject: Current date in Free-format
>
>
> I'm writing my first program in free-format.  I need to move
> the *date into
> a date field.  I've tried numerous variations, but without success.  I
> looked in the archives, FAQ, and the IBM manual, but couldn't find an
> answer.  Any info would be appreciated.
>
> TIA,
> Jade Richtsmeier, Programmer/Analyst
> Minnesota Counties Information Systems
> 413 SE 7th Avenue
> Grand Rapids, MN 55744
>
> 218.326.0381 Ext. 21
> 218.326.3544 Fax
> jade.richtsmeier@mcis.cog.mn.us
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>