RE: Time in free form syntax

["Johnson, Duane" <djohnson@xxxxxxxxxxxxx>]

ARRRRRRRRRRGH.
  Once again, it is proven just how important it is to RTFM.
  If I had done so, I wouldn't have needed to create the "now" process that
I just posted a few minutes ago.
  Thanks, Scott, for once again proving that an old dog (me) CAN learn new
tricks.
Duane

> -----Original Message-----
> From: Scott Mildenberger [SMTP:Smildenber@Washcorp.com]
> Sent: Thursday, October 24, 2002 9:20 AM
> To:   'rpg400-l@midrange.com'
> Subject:      RE: Time in free form syntax
>
> From the V5R1 reference
>
> The first parameter is the value to be converted. If you do not specify a
> value, %TIME returns the current system time.
>
> Scott Mildenberger
>
>
> > -----Original Message-----
> > From: Justin Houchin [mailto:justin@reliatek.com]
> > Sent: Thursday, October 24, 2002 8:15 AM
> > To: RPG Midrange
> > Subject: Time in free form syntax
> >
> >
> > This is a multi-part message in MIME format.
> > --
> > [ Picked text/plain from multipart/alternative ]
> > Hi Everyone.
> >             I have just started to code with free-form syntax and have
> > run in to an issue with getting the current system time.
> > Before I would
> > use:
> > D   CurrentTime               6S 0
> > C   TIME                      CurrentTime
> > But now I want to convert this to free-form. My IBM Manual
> > says the TIME
> > opcode is not allowed, use %DATE, %TIME, %TIMSTAMP. But all of these
> > BIF's are to convert a character or numeric input to a date, time, or
> > timestamp. They do not retrieve the current system time. Does anyone
> > have a solution?
> >
> _______________________________________________
> 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.