RE: Hour

["Sam" <skanakanui@xxxxxxxxxxxx>]

Carlos,
No one has sent this solution in yet so here it is.  This is a routine
copied from Midrange Computing and I cannot he held responsible for it's
content or it's use (my disclaimer).  I can tell you that I have at least
one client who has had it in for 2 and 1/2 years and never touched it, it
just works.  Good Luck!
Sam Kanakanui

This is in a CL source called DAYSAVTIM.  The job scheduler entry is set to
run the first and last Sunday of every month.
/********************************************************************/
 /*   Description: This CL sets the time for Daylight Saving time    */
 /*                                                                  */
 /*   From Midrange Computing, December 1997, page 13.               */
 /*                                                                  */
 /*   Add to job scheduler as follows (substitute valid user):       */
 /*   ADDJOBSCHE JOB(AUTO_DST) CMD(CALL PGM(QGPL/DAYSAVTIM)) +       */
 /*      FRQ(*MONTHLY) SCDDATE(*NONE) SCDDAY(*SUN) +                 */
 /*      SCDTIME(020000) RELDAYMON(1 *LAST) +                        */
 /*      JOBQ(QBATCH) USER(???) TEXT('Daylight +                     */
 /*      Savings Time adjustment program')                           */
 /*                                                                  */
 /********************************************************************/
              PGM

              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


-----Original Message-----
From:   owner-midrange-l@midrange.com [mailto:owner-midrange-l@midrange.com]
On Behalf Of Carlos Almeida
Sent:   Friday, March 31, 2000 5:44 AM
To:     MIDRANGE-L@midrange.com
Subject:        Hour



Hi all

Does anyone knows the way the as/400 change the hour automatically ( hour
summer or winter )

thank's in advance
Carlos Almeida


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