Works for me:
*
* Get time in hundredths as we want and date as 0yyyyddd
TIME BIN,TIMEWORK,DATETYPE=YYYYDDD, +
LINKAGE=SYSTEM, +
MF=(E,TIMEL)
*
* Move time where we want it
MVC SMFTME(4),TIMEWORK Time in hundredths
MVO SMFDTE(4),TIMEWORK+9(3) 0yyyyddd to ?yyyddd?
OI SMFDTE+3,X'0F' Set sign of F = ?yyydddF
MVI SMFDTE,X'01' Set century to 01 = 01yydddF
* Y21K alert!!!
* on above line a better programmer would compute the century!
Charles
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Janet Graff
Sent: Friday, February 20, 2015 11:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SMFxTME field
We just noticed our product was setting the SMFxTME field inappropriately using
the TIME BIN macro. What should we be using to set the SMFxTME field?
The doc says
06 06 SMFxTME 4 binary Time since midnight, in
hundredths of a second, record
was moved into the SMF buffer.
In record types 2 and 3 this
field indicates the time that
the record was moved to the
dump data set.
TIME MIC appears to be the right information but it produces 8 bytes and not 4
bytes of information.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
