Would anyone have an idea as to what would cause these times to be different?
When I run the following Rexx exec, I get this: Time Zone.....: -4.00 Rexx Date/Time: 10/25/06 10:38:31 Current EWST..: 10/25/2006 14:38:31.339265 But when someone in Australia runs it, he gets this: Time Zone.....: 10.00 Rexx Date/Time: 10/25/06 08:50:16 Current EWST..: 10/24/2006 22:50:37.305285 The EWST time for the other computer is off by 21 seconds. Is there perhaps a problem in the exec or could there be some other cause for this? The Rexx used follows. Kind regards, Lindy /* Rexx */ Trace Off numeric digits 20 CVT = c2d(storage(10,4)) /* psa+10 -> cvt */ cvttz = storage(d2x(CVT+304),4) /* cvt+130 -> CVTTZ */ chkbyte = substr(cvttz,1,1) If bitand(chkbyte,'80'x) = '80'x then cvttz = c2d(cvttz,4) else cvttz = c2d(cvttz) cvttz = cvttz * 1.048576 / 3600 cvttz = format(cvttz,3,2) date=DATE(U) time=TIME() MYASCB = c2d(storage(d2x(548),4)) /* PSA+224 -> psaaold */ CUREWST = c2x(storage(d2x(MYASCB+72),8)) /* ascb+48 -> ewst */ CUREWSTD = c2d(storage(d2x(MYASCB+72),4)) /* ascb+48 -> ewst */ CUREWSTT = Copies(0,26) /* force result length=26 */ TOD_val = X2c(CUREWST) Address linkpgm "BLSUXTOD TOD_val CUREWSTT" Say 'Time Zone.....:' CVTTZ Say 'Rexx Date/Time:' date time Say 'Current EWST..:' CUREWSTT Exit 0 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
