RE: Time in free form syntax

Here's the subprocedure that I created to solve this problem:  (I've removed
blank lines)


*---*-----------------------------------------------------------------------
----------------*---*
  *   *   Sub-prodedure to get the time right now
*   *

*---*-----------------------------------------------------------------------
----------------*---*
     P now             B                   Export
     D                 PI             6P 0

*---*-----------------------------------------------------------------------
----------------*---*
  *   *   Data Definitions
*   *

*---*-----------------------------------------------------------------------
----------------*---*
     D rightnow        S              6P 0

*---*-----------------------------------------------------------------------
----------------*---*
  *   *   now - Mainline
*   *

*---*-----------------------------------------------------------------------
----------------*---*
     C                   Time                    rightNow
     C                   Return    rightNow

*---*-----------------------------------------------------------------------
----------------*---*
     P    now          E

~~~~~~~~~~~~~~~~~~~~~~~~~~
The prototype definition in the main program:
     D now             PR             6P 0

~~~~~~~~~~~~~~~~~~~~~~~~~~
and the way it is used in the main program:
            ORDT54 = now();

~~~~~~~~~~~~~~~~~~~~~~~~~~

Duane

> -----Original Message-----
> From: Justin Houchin [SMTP:justin@reliatek.com]
> Sent: Thursday, October 24, 2002 9: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?
>
> 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.