🚀 go-pugleaf

In article <1992Sep13.010656.167@xblank.abg.sub.org> root@xblank.abg.sub.org (Markus Rieder) writes:
>
>Hat jemand eine Batch die das Umschalten von Sommer-/Winterzeit auf ner
>VAX (VMS 5.5) erledigt?
>
>Ich denk mir das das Teil im Hintergrund mitlaeuft und immer wenn's noetig ist
>eine Stunde hin oder her schaltet...
>
Einfacher w"are es, f"ur die Lebensdauer der VAX bzw. der IMHO eh
maroden Sommerzeitregelung einfach die entsprechenden Befehle in die
Batch-Queue einzustellen (mit: after:...).

Etwas anderes w"are es, die Network time (Ultrix: rdate -s) auch im VMS
setzen zu k"onnen.
Schlagen wir doch lieber bei DEC vor, VMS nicht unter Ortszeit, sondern
unter GMT laufen zu lassen und die Ortszeit einfach durch einen
Abschlag darauf zu berechnen (also VMS an Unix anzupassen - ist immer
noch besser als der UCX-Hack mit UCX$NFS_TIME_DIFFERENTIAL).

-- 
-- 
Dipl.-Math. Wilhelm Bernhard Kloke,
Institut fuer Arbeitsphysiologie an der Universitaet Dortmund
Ardeystrasse 67, D-4600 Dortmund 1, Tel. 0231-1084-257

In article <1992Sep13.010656.167@xblank.abg.sub.org>, root@xblank.abg.sub.org (Markus Rieder) writes:
> 
> Hallo!
> 
> Hat jemand eine Batch die das Umschalten von Sommer-/Winterzeit auf ner
> VAX (VMS 5.5) erledigt?
> 
> Ich denk mir das das Teil im Hintergrund mitlaeuft und immer wenn's noetig ist
> eine Stunde hin oder her schaltet...
> 
> Waer nicht schlecht wenn das Rad schon einer erfunden haette...  :-))

Anleitung: Beim SUBMIT den fuer Dein System gueltigen  Queue Namen einsetzen,
           $ submit 'sommer_winter_zeit' /para=WINTERZEIT /after="27-sep 3:0"
           und nie wieder an die Zeitumstellung denken :-)))

$!
$!
$!  Einstellen der Systemzeit auf Sommer- bzw. Winterzeit
$!
$!  RME  17-SEP-1989 10:53:56 
$!
$!  P1 = ""            Starten der Jobs fuer Sommer und Winterzeit
$!  P1 = "SOMMERZEIT"  Systemuhr 1 Stunde vorstellen
$!  P1 = "WINTERZEIT"  Systemuhr 1 Stunde zurueckstellen und Neustart
$!
$!
$ if p1 .eqs. "SOMMERZEIT" then goto sommerzeit
$ if p1 .eqs. "WINTERZEIT" then goto winterzeit
$!
$! Starten der Jobs
$!
$ set proc/priv=all
$ today = f$time()
$ this_month = f$cvtime(today,"ABSOLUTE","MONTH")
$ if this_month .eqs. "JAN" then goto this_year
$ if this_month .eqs. "FEB" then goto this_year
$ if this_month .eqs. "MAR" then goto this_year
$ year = f$cvtime(today,"ABSOLUTE","YEAR")
$ iyear = f$integer(year)
$ iyear = iyear + 1
$ goto year_ok
$!
$ this_year:
$ year = f$cvtime(today,"ABSOLUTE","YEAR")
$ iyear = f$integer(year)
$!
$ year_ok:
$!
$ start_sommerzeit = "31-MAR-''iyear'"
$ start_winterzeit = "30-SEP-''iyear'"
$!
$ set_start_sommerzeit:
$ if f$cvtime(start_sommerzeit,"ABSOLUTE","WEEKDAY") .eqs. "Sunday" then -
                                             goto start_sommerzeit_ok
$ start_sommerzeit = f$cvtime("''start_sommerzeit'-1-0","ABSOLUTE","DATE")
$ goto set_start_sommerzeit
$!
$ start_sommerzeit_ok:
$!
$!
$ set_start_winterzeit:
$ if f$cvtime(start_winterzeit,"ABSOLUTE","WEEKDAY") .eqs. "Sunday" then -
                                             goto start_winterzeit_ok
$ start_winterzeit = f$cvtime("''start_winterzeit'-1-0","ABSOLUTE","DATE")
$ goto set_start_winterzeit
$!
$ start_winterzeit_ok:
$!
$!
$ this_file = f$environment("PROCEDURE")
$ submit 'this_file' /nolog /que=bat$sys_jobs /par=("SOMMERZEIT") -
           /after="''start_sommerzeit' 2:0:0" /name="Sommerzeit"
$ submit 'this_file' /nolog /que=bat$sys_jobs /par=("WINTERZEIT") -
           /after="''start_winterzeit' 3:0:0" /name="Winterzeit"
$ exit
$!
$!
$ sommerzeit:
$!
$!
$!
$!  Stellt die Uhr eine Stunde vor
$!
$!  RME   23-SEP-1988 14:06:48 
$!
$!
$ set proc/priv=all
$ request "Start der Sommerzeit"
$ itime = f$time()
$ newtime = f$cvtime("''itime'+1:0:0","absolute","time")
$ set time='newtime'
$ request "Systemuhr auf Sommerzeit eingestellt"
$ exit
$!
$!
$!
$ winterzeit:
$!
$!
$!
$!
$!  Stellt die Uhr eine Stunde zurueck
$!
$!  RME   23-SEP-1988 14:06:48 
$!
$!
$ set proc/priv=all
$ request "Start der Winterzeit"
$ itime = f$time()
$ newtime = f$cvtime("''itime'-1:0:0","absolute","time")
$ set time='newtime'
$ request "Systemuhr auf Winterzeit eingestellt"
$!
$ this_file = f$environment("PROCEDURE")
$ @'this_file'              ! Submitten fuer naechstes Jahr
$ exit

Dies Verfahren ist nur bei Systemen zu empfehlen, die nachts nicht viel
zu tun haben, da beim Accounting Probleme auftreten koennten. 


 
--------------------------------------------------------------------------------
Reinhold Meyer       Abt. Forstliche Biometrie u. Informatik   Buesgenweg 4
                                                               W-3400 Goettingen
                                       Internet: rmeyer@ufobi2.uni-forst.gwdg.de

Seit einiger Zeit (5.0?) gibt's ein VMS ein paar Zellen, die solche 
Umstellungen erleichtern, auch ohne dass Accounting und Decnet sich 
verschlucken. Die sind wohl eingefuehrt worden, um DTSS zu ermoeglichen.
Es gibt aber auch ein DECUSProgramm, das dies gerade fuer die Sommer/
WinterzeitUmstellung nutzt.
Das funktioniert folgendermassen: In eine Zelle wird das Inkrement der
Intervallzeituhr geschrieben, welches den Defualt von 100000 (10ms in
100nsEinheiten) ersetzt. Ausserdem wird in einer anderen Zelle die
Anzahl der nominellen Clockticks, die diese Veraenderung gelten soll,
geladen, d.h., nachdem diese Zelle in den Timerinterrupts auf 0
runtergezaehlt wurde, wird das Inkrement wieder auf 100000 gesetzt.
Wenn man also zB die Uhr auf eine Stunde spaeter stellen will, setzt man
(zB) das Inkrement auf 80000 und die Anzahl auf 5*3600*100. In vier Stunden
sind dann Interrupts fuer 5 Stunden abgelaufen, die VMSUhr ist also eine
Stunde schneller geworden.

DTSS verwendet das ganze auch, um Feinkorrekturen an der Systemuhr
vorzunehmen, die sie naeher an der Referenzuhr halten.

Viel Spass, Jan