I don't recall which IBM manual I found these values in but they certainly make
this type of calculation easier.
* TOD Values
CNOP 0,8
ONEDAY DC X'000141DD76000000'
ONEHOUR DC X'00000D693A400000'
ONEMINUTE DC X'0000003938700000'
ONESECOND DC X'00000000F4240000'
ONEMILISEC DC X'00000000003E8000'
ONEMICROSEC DC X'0000000000001000'
With the above, take ONESECOND and multiply by 90 and add to TOD.
LG/ALG make 8 byte calculations so much easier ;-)
LG R1,ONESECOND
MSGF R1,=F'90'
ALG R1,STCKTIME
Dan
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
