> -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:[EMAIL PROTECTED] On Behalf Of Mark Zelden > Sent: Wednesday, October 11, 2006 12:49 PM > To: [email protected] > Subject: Re: TZ in REXX > > > On Wed, 11 Oct 2006 12:22:41 -0500, John P Kalinich > <[EMAIL PROTECTED]> wrote: > > >Or this... > > > >/* Rexx */ > >gmthr = MVSVAR('SYMDEF','HR') > >hr = Time('HR') > >zone = hr - gmthr > >Say 'Local GMT offset is:' zone > > > > You win! I tend to forget about dynamic system symbols except > in TSO / STC JCL. > > Might as well use MVSVAR for both then... > > /* Rexx */ > gmthr = MVSVAR('SYMDEF','HR') > lochr = MVSVAR('SYMDEF','LHR') > zone = lochr - gmthr > Say 'Local GMT offset is:' zone > > Mark > --
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 -- John McKown Senior Systems Programmer HealthMarkets Keeping the Promise of Affordable Coverage Administrative Services Group Information Technology This message (including any attachments) contains confidential information intended for a specific individual and purpose, and its content is protected by law. If you are not the intended recipient, you should delete this message and are hereby notified that any disclosure, copying, or distribution of this transmission, or taking any action based on it, is strictly prohibited. ---------------------------------------------------------------------- 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
