RE: Daylights Savings time -- MIDRANGE-L

Midrange Computing, December 1997, had a program to do this.
Here's my copy, with proper credit given to the author(s):

/***********************************************************************
*******/
/* 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. :  1997/12/18
*/
/*
*/
/*  Taken from: Midrange Computing, December 1997, page 13.
*/
/*              (from David Hummell, modification of program by Lori
Nesje)   */
/*
*/
/*
*/
/*  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)                
                                                            
             RTVSYSVAL  QMONTH  &MONTH                      
             RTVSYSVAL  QDAY    &DAY                        
             RTVSYSVAL  QHOUR   &HOUR                       
                                                            
             CHGVAR     &HOUR#  &HOUR                       
                                                            
             IF         (&MONTH = '04' *AND &DAY < '15') +  
                          THEN(CHGVAR &HOUR# (&HOUR# +1))   
             IF         (&MONTH = '10' *AND &DAY > '15') +  
                          THEN(CHGVAR &HOUR# (&HOUR# -1))   
                                                            
             CHGVAR     &HOUR   &HOUR#                      
             CHGSYSVAL  QHOUR   &HOUR                       
                                                            
             ENDPGM


Neil Palmer                                AS/400~~~~~      
NxTrend Technology - Canada   ____________          ___  ~     
Thornhill, Ontario,  Canada   |OOOOOOOOOO| ________  o|__||=   
Phone: (905) 731-9000  x238   |__________|_|______|_|______)   
Cell.: (416) 565-1682  x238    oo      oo   oo  oo   OOOo=o\   
Fax:   (905) 731-9202       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
mailto:NPalmer@NxTrend.com    AS/400  The Ultimate Business Server      
http://www.NxTrend.com

> -----Original Message-----
> From: Gary Feinstein [SMTP:gfeinste@planethollywood.com]
> Sent: Friday, April 03, 1998 10:43 AM
> To:   MIDRANGE-L@midrange.com
> Subject:      Daylights Savings time
> 
> If I recall, this wuz addressed about 6 months ago but I don't recall
> what the outcome was.  Does the AS/400 clock need to be reset for
> Daylight Savings Time or will OS/400 do it automatically?  I think I
> had
> to reset it last time but don't remember.
> Thanx,
> Gary Feinstein
> AS/400 System Administrator
> Planet Hoolywood International Inc.
> 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@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
+---