/* REXX *** */ cvt = C2D(storage(10,4)) IF C2D(STORAGE(D2X(cvt+304),1)) < 128 then , tz = C2D(STORAGE(D2X(cvt+304),4)) else , tz = -(C2D(BITXOR(STORAGE(D2X(cvt+304),4),'ffffffff'x))) tzoff = Format(tz*1.04861,,0) /* seconds */ Return tzoff