|
You can even extract MICROSECONDS! (thaks again to all guys who helped me) But to get with millisecond it's enougth to use funcinio time(), for example like this: ******************************************************************** H DATEDIT(*YMD/) * ------ dtimestamp s z inz(*sys) * TIMESTAMP: YYYY-MM-DD-HH.MM.SS.NNNNNN D DETS DS D TSYN 1 4 0 D TSS1 5 5 D TSMN 6 7 0 D TSS2 8 8 D TSDN 9 10 0 D TSS3 11 11 D TSHN 12 13 0 D TSS4 14 14 D TSNN 15 16 0 D TSS5 17 17 D TSSN 18 19 0 D TSS2 8 8 D TSDN 9 10 0 D TSS3 11 11 D TSHN 12 13 0 D TSS4 14 14 D TSNN 15 16 0 D TSS5 17 17 D TSSN 18 19 0 D TSS6 20 20 D TSSZN 21 26 0 * TIME: HHMMSSNNNNNN D DTT DS D DHH 1 2 0 D DMM 3 4 0 D DSS 5 6 0 D DMS 7 12 0 * D TSSZN 21 26 0 * TIME: HHMMSSNNNNNN D DTT DS D DHH 1 2 0 D DMM 3 4 0 D DSS 5 6 0 D DMS 7 12 0 * C *ENTRY PLIST C PARM TOUT 9 C TIME timestamp C move timestamp DETS C MOVE TSHN DHH C MOVE TSNN DMM C MOVE TSSN DSS C MOVE TSSZN DMS C MOVEL DTT TOUT 9 C PARM TOUT 9 C TIME timestamp C move timestamp DETS C MOVE TSHN DHH C MOVE TSNN DMM C MOVE TSSN DSS C MOVE TSSZN DMS C MOVEL DTT TOUT 9 C RETURN *********************************************************************** Dmitri Efimov Banco Wiese Sudameris -----Mensaje original----- De: DWard@burswood.com.au [mailto:DWard@burswood.com.au] Enviado el: martes, 06 de marzo de 2001 1:50 Para: MIDRANGE-L@midrange.com Asunto: RE: System values with milliseconds Hi all Can anyone help me with the task of sending data to a PC from the AS/400 - one of the fields required by this PC product is a time stamp of the format hhmmssnnn (nnn=milliseconds). I believe it uses it for some kind of archiving. An RPG program formats each record and then sends it to the PC - this unique timestamp is one of the fields within the record. Whilst I can extract hhmmss from the system I can not see how I can obtain milliseconds - is this possible and if so how do I get it? Thank you for any help. Dean Ward I.T.Services Technical Analyst Burswood International Resort Casino Perth Western Australia E-mail: dward@burswood.com.au Phone: 61-08-9362-7017 **************************************************************************** ****** Privacy and Confidentiality Notice The information contained herein and any attachment is intended solely for the named recipients. It may contain privileged confidential information. If you are not an intended recipient, please delete the message and any attachments and notify the sender of mis-delivery: any use or disclosure of the contents of either is unauthorised and may be unlawful. All liability for viruses is excluded to the fullest extent permitted by law. +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
