RE: Retrieve system time

[Tom Solnok <tsolnok@xxxxxxxxxxxxx>]

Good luck with RPG!

There is a TIME opcode. The result field needs to be a six positions numeric
with 0 decimals.

If you prompt a Calc line it will look like this. TIMOUT will get the
current time every time the line is executed.

Pmt  SeqNbr   Lvl  N01N02N03  Factor 1    OpCode  Factor 2    Result
 C   0000.01                              TIME                TIMOUT
      Len  Dec  H/N/P  Hi  Lo  Eq  Comment
        6   0

Have fun.
Tom


-----Original Message-----
From: paula Pickle [mailto:paula500@yahoo.com]
Sent: Wednesday, May 24, 2000 6:45 AM
To: RPG400-L@midrange.com
Subject: Retrieve system time


Hi Folks

Im new to RPG and after attending a course a week ago
Im now writing my first program - wish me luck :)

I am trying to update a file and one field requires
the current system time.  Im sure this is easy to
obtain when you know how.  Ive used *TIME keyword in
the DDS and this displays the time on the screen OK,
but RPG doesnt like it.  So is there a keyword to get
the time or do I need to do something else to get it
into the RPG.

Im using RPG400 BTW.
Look forward to your replies.
Thanks
Paula


 

=====
Join AllAdvantage.com and get paid to surf the Web! Please use my ID
(ibo595) when asked if someone referred you. Thanks!
http://www.alladvantage.com/go.asp?refid=ibo595

__________________________________________________
Do You Yahoo!?
Send instant messages & get email alerts with Yahoo! Messenger.
http://im.yahoo.com/
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---