On Wed, 11 Oct 2006 12:59:38 -0500, McKown, John <[EMAIL PROTECTED]> wrote:
> >And what happens for those places that don't use an hour offset? I think >there are places in Australia which use hh:30 during daylight savings >time. Like Australian Central Standard Time which is +9.5 > Okay, I win again. :-) Change "format" to include a decimal place. BTW, the "before" arg should be 3 instead of 2 because it needs to be big enough to include a negative sign. /* rexx */ numeric digits 10 cvt = c2d(storage(10,4)) chkbyte = storage(d2x(cvt + 304),1) cvttz = storage(d2x(cvt + 304),4) 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,1) say 'Local GMT offset is:' cvttz -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group mailto: [EMAIL PROTECTED] z/OS and OS390 expert at http://searchDataCenter.com/ateExperts/ Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html ---------------------------------------------------------------------- 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
