RE: how to retrieve time until microsecond in RPG/400??

["York, Albert" <albert.york@xxxxxxxxxxxxxx>]

Before RPG IV I would call a C/L program to retrieve the time to nine
digits.

I.e.

PGM        PARM(&TIME9)                      
             DCL        VAR(&TIME9) TYPE(*CHAR) LEN(9)    
             RTVSYSVAL  SYSVAL(QTIME) RTNVAR(&TIME9)      
             ENDPGM                                       

Albert York
albert.york@nissan-usa.com


-----Original Message-----
From:   Danny Oentung [SMTP:DANNY@multipolar.co.id]
Sent:   Monday, June 19, 2000 11:37 PM
To:     RPG400-L@midrange.com
Subject:        how to retrieve time until microsecond in RPG/400??

In RPG ILE IV (V4R4) we could retrieve time until micro second using
timestamp.
eg: 

        DRealTime         S               Z   INZ(*SYS)       
        C                   TIME                    RealTime  

but I don't know how to get the same result using RPG/400 nor RPG ILE V3R2.
Is there any way I could retrieve current time like what in V4R4 does??
Any one can help?

ps: In RPG ILE V3R2 there's a timestamp type too but The code above (V4R4) 
couldn't be used to don't know how to use it cause lack of documentation of
V3R2.

Thanks & Best regards,
Danny
+---
| 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
+---