RE: Time in free form syntax

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

Matt,

Reset just changes a variable to the value that it was initialized at, it
doesn't set it to the current time.

Scott Mildenberger

> -----Original Message-----
> From: Tyler, Matt [mailto:mattt@wincofoods.com]
> Sent: Thursday, October 24, 2002 8:25 AM
> To: 'rpg400-l@midrange.com'
> Subject: RE: Time in free form syntax
>
>
> Justin,
> Try this...
>
> D SystemTime       S      T   INZ(*SYS)
>
> Every time you need to update SystemTime do...
>
>  Reset SystemTime
>
>
> Thank you,
> Matt Tyler
> Mattt@wincofoods.com
>
> -----Original Message-----
> From: Justin Houchin [mailto:justin@reliatek.com]
> Sent: Thursday, October 24, 2002 08:15
> 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?
>
> Justin Houchin
> Programmer and Web Developer
> ReliaTek, Inc
> justin@reliatek.com
>
> _______________________________________________
> 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.
> _______________________________________________
> 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.
>