RE: Daylight Saving Change

[rob@xxxxxxxxx]

Here is our code:
PGM
ENDPGM

Welcome to Indiana!  No daylight savings time.

Rob Berendt

==================
Remember the Cole!


                                                                                
                                         
                    Lurton Keel                                                 
                                         
                    <LKeel@UNARCORACK.c        To:     
"'MIDRANGE-L@midrange.com'" <MIDRANGE-L@midrange.com>             
                    om>                        cc:                              
                                         
                    Sent by:                   Subject:     RE: Daylight Saving 
Change                                   
                    owner-midrange-l@mi                                         
                                         
                    drange.com                                                  
                                         
                                                                                
                                         
                                                                                
                                         
                    03/30/01 02:12 PM                                           
                                         
                    Please respond to                                           
                                         
                    MIDRANGE-L                                                  
                                         
                                                                                
                                         
                                                                                
                                         




Here is our code and it worked on V4R4, V4R3, V3R7.
It runs at 02:00:00 on Sunday.

PGM
CHGSYSVAL  SYSVAL(QHOUR) VALUE('03')
CHGSYSVAL  SYSVAL(QUTCOFFSET) VALUE('-0500')
ENDPGM
***** End of data ***************************
+---
| 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
+---



+---
| 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
+---