× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: Daylight Saving Change
  • From: "Neil Palmer" <neilp@xxxxxxxxxxx>
  • Date: Fri, 30 Mar 2001 20:01:13 -0500

DAYSAVTIM:   PGM  
/******************************************************************************/
 
 
/* NAME     - DAYSAVTIM    */ 
/* FUNCTION - Perform automatic Daylight Savings Time adjustments.    */  
/*    */ 
/*     NOTE - Program should be compiled with USRPRF(*OWNER), and    */  
/*            the owner should have authority to CHGSYSVAL QHOUR    */ 
/*            - OR -    */ 
/*            the Job Schedule entry should name a USER that has    */ 
/*            authority to CHGSYSVAL QHOUR.    */ 
/*    */ 
/* ===>>>  Date of last mods. :  1999/06/25    */ 
/*    */ 
/*  Taken from: Midrange Computing, December 1997, page 13.    */ 
/*              (from David Hummell, modification of program by Lori 
Nesje)   */
/*              Further mods by Neil Palmer, DPS Canada Ltd.    */ 
/*    */ 
/*  Add to system job scheduler as follows (substitute valid USER):    */  
 
/*           ADDJOBSCDE JOB(AUTO_DST) CMD(CALL PGM(QGPL/DAYSAVTIM)) +  */  
 
/*                        FRQ(*MONTHLY) SCDDATE(*NONE) SCDDAY(*SUN) +  */  
 
/*                        SCDTIME(020000) RELDAYMON(1 *LAST) +    */ 
/*                        JOBQ(QSYSNOMAX) USER(????) TEXT('Daylight +  */ 
/*                        Savings Time adjustment program')    */ 
/*    */ 
/******************************************************************************/
 
 
  
             DCL        &MONTH  *CHAR  2  
             DCL        &DAY    *CHAR  2  
             DCL        &HOUR   *CHAR  2  
             DCL        &HOUR#  *DEC   (2 0)  
             DCL        &UTCOFFSET  *CHAR  5  
             DCL        &UTCOFFSET# *DEC  (5 0)  
  
             RTVSYSVAL  QMONTH  &MONTH  
             RTVSYSVAL  QDAY    &DAY  
             RTVSYSVAL  QHOUR   &HOUR  
             RTVSYSVAL  QUTCOFFSET &UTCOFFSET  
  
             CHGVAR     &HOUR#  &HOUR  
             CHGVAR     &UTCOFFSET#  &UTCOFFSET  
 
             IF         (&MONTH = '04' *AND &DAY < '15') THEN(DO) 
              CHGVAR     &HOUR#  (&HOUR# +1) 
              CHGVAR     &UTCOFFSET#  (&UTCOFFSET# +100) 
             ENDDO 
 
             IF         (&MONTH = '10' *AND &DAY > '15') THEN(DO) 
              CHGVAR     &HOUR#  (&HOUR# -1) 
              CHGVAR     &UTCOFFSET#  (&UTCOFFSET# -100) 
             ENDDO 
 
             IF         ((&MONTH = '04' *AND &DAY < '15') *OR + 
                         (&MONTH = '10' *AND &DAY > '15')) THEN(DO) 
              CHGVAR     &HOUR   &HOUR# 
              CHGSYSVAL  QHOUR   &HOUR 
              IF         (&UTCOFFSET# > 2400) + 
                            CHGVAR &UTCOFFSET# (&UTCOFFSET# - 2400) 
              IF         (&UTCOFFSET# < -2400) + 
                            CHGVAR &UTCOFFSET# (&UTCOFFSET# + 2400) 
              IF         ((&UTCOFFSET# < -45) & (&UTCOFFSET# > -100)) + 
                            CHGVAR &UTCOFFSET# (&UTCOFFSET# + 40) 
              IF         ((&UTCOFFSET# > 45) & (&UTCOFFSET# < 100)) + 
                            CHGVAR &UTCOFFSET# (&UTCOFFSET# - 40) 
              CHGVAR     &UTCOFFSET &UTCOFFSET# 
              IF         (&UTCOFFSET# >= 0) THEN(CHGVAR + 
                            &UTCOFFSET ('+' *CAT %SST(&UTCOFFSET 2 4))) 
              CHGSYSVAL  QUTCOFFSET &UTCOFFSET 
             ENDDO 
 
             ENDPGM      

Neil Palmer      DPS Data Processing Services Canada Ltd.
50 Acadia Avenue, Ste.102                   AS/400~~~~~
Markham, Ontario, Canada.   ____________          ___  ~ 
Phone:(905) 474-4890 x303   |OOOOOOOOOO| ________  o|__||= 
Cell.:(416) 565-1682 x303   |__________|_|______|_|______) 
Fax:  (905) 474-4898         oo      oo   oo  oo   OOOo=o\ 
mailto:NeilP@DPSlink.com  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
http://www.DPSlink.com     iSeries 400  The Ultimate Business Server





"Haase, Justin C." <Justin.Haase@Kingland.com>
Sent by: owner-midrange-l@midrange.com
2001/03/30 12:11
Please respond to MIDRANGE-L

 
        To:     "'MIDRANGE-L@midrange.com'" <MIDRANGE-L@midrange.com>
        cc: 
        Subject:        Daylight Saving Change


With the change coming up Sunday AM, does anyone know of a quick-easy-done
way to change our clocks?  On V4R4, you couldn't use a JOBSCDE to change 
the
hour of the day, going to test on V4R5 within the hour.  It's got to be
something simple - any ideas?  Or possible CL code we could use?  Need to
change UTC offset backward and the hour forward.  I'm not a programmer or
I'd try myself.  I can cut and paste and compile tho.  Any help would be
great.

PS - Is Nick Mart still on this list?

Justin C. Haase
Midrange Systems Engineer - Kingland Systems Corporation




+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.