Re: Retrieve system time

["Lewis Libman" <LLibman@xxxxxxxx>]

Paula,

Try this;

          I                    DS
          I                                          1     14 0 WSTD
          I                                          1       6 0  WSTIME
          I                                          7     14 0 WSDATE

          C                      TIME                     WSTD

This will get you the system time and date.  If you only want a six position 
date change the 14 to 12.    Or you can do the following:

          C                      TIME                    WSTIME   6 0 

Lewis Libman
llibman@behr.com
714 545 7101 x2118

>>> paula Pickle <paula500@yahoo.com> Wednesday, May 24, 2000 4:45:18 AM >>>
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
+---