On Wed, 11 Oct 2006 13:58:44 -0500, Mark Zelden <[EMAIL PROTECTED]> wrote:
>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. > > And if your anal and don't want the decimal when not needed or extra blanks etc.: /* 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 If format(cvttz,3,1) = format(cvttz,3,0) , then cvttz = Strip(format(cvttz,3,0)) Else cvttz = Strip(format(cvttz,3,1)) say 'Local GMT offset is:' cvttz BTW, are there any other places that use offsets like that? -- 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
