RE: Hour

[cjimenez@xxxxxxxxxx]

     Actually we do have a solution for changing the time to and from day light
savings. We do this through a job scheduled within Helpsystems ROBOT scheduler.
I am still interested in a way to be able to keep the 400's time synched up with
the Navy's nuclear time or for the 400 to access our NTP (network time protocol)
server on our network that keeps all of our servers time synchronized.  I had
read in one of the emails with this subject, that someone was using a third
party software that cost them $100 and was working successfully. Could that
person PLEASE send out an email with the name of the software they are using and
maybe a link to their website.

THANKS Sam!!!!!!!!!




"Sam" <skanakanui@triad.rr.com> on 04/02/2000 11:18:01 PM

Please respond to MIDRANGE-L@midrange.com

To:   MIDRANGE-L@midrange.com
cc:    (bcc: Carlos R Jimenez/WLGORE)
Subject:  RE: Hour




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






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