Author: Bill O'Boyle
Subject: Reply to: Get system time in micro second or clock uint.
Posted: Tue Sep 06, 2016 6:10 pm (GMT 5.5)
Take a look at the TIME Macro (LINKAGE=SYSTEM) using the MIC (Microseconds) keyword.
You can then return the binary-value 'as-is' or convert this binary-doubleword to a PL16 packed-decimal value, using the 'CVDG' (Convert Decimal Grande) instruction, with the doubleword loaded into a grande-register beforehand via a 'LG' (Load Grande) instruction.
This type of sub-program can be used in both Batch and CICS. But, ensure you're passing re-entrant storage from the COBOL caller so that it remains re-entrant, which is a requirement in CICS.
HTH....
_________________
Nothing in fine print is ever good news.![icon_wink.gif]()
!!!!!!!
ò ¿ ó
(~~)
Mr. Bill
Subject: Reply to: Get system time in micro second or clock uint.
Posted: Tue Sep 06, 2016 6:10 pm (GMT 5.5)
Take a look at the TIME Macro (LINKAGE=SYSTEM) using the MIC (Microseconds) keyword.
You can then return the binary-value 'as-is' or convert this binary-doubleword to a PL16 packed-decimal value, using the 'CVDG' (Convert Decimal Grande) instruction, with the doubleword loaded into a grande-register beforehand via a 'LG' (Load Grande) instruction.
This type of sub-program can be used in both Batch and CICS. But, ensure you're passing re-entrant storage from the COBOL caller so that it remains re-entrant, which is a requirement in CICS.
HTH....
_________________
Nothing in fine print is ever good news.
!!!!!!!
ò ¿ ó
(~~)
Mr. Bill