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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN