HP3000-L Archives

April 1997, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Legault, Raymond D" <[log in to unmask]>
Reply To:
Legault, Raymond D
Date:
Tue, 8 Apr 1997 11:13:12 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (79 lines)
I created a cmdfile to check the timezone.

Some how one on my boxes had an incorrect time zone.

Automatically changing the time zone last week created some problems.

I run this cmdfile daily in my commchek job stream.

!CONTINUE
!TESTZONE
!IF !TIMEZONE = 0 THEN
!TELLOP ; THE TIMEZONE IS NOT CORRECT. CALL SYSMGR/HPTECH NOW..?!
!TELL  MANAGER.SYS ; THE TIMEZONE IS NOT CORRECT. CALL SYSMGR/HPTECH
NOW..?!
!
!ENDIF

--------------------------------------------------------------------
PARM zone1=7,zone2=8,p1=" "
OPTION NOLIST
comment
comment          NEW check the time zone   8 Apr 97  RDL
comment          default PST (7 & 8 time zone)
continue
echo TIMEZone1=!zone1, TIMEzone2=!zone2
comment
SETVAR HPAUTOCONT TRUE
SETVAR tz_DFILE,"D"+"!HPMINUTE"+"!HPCPUSECS"
FILE !tz_DFILE,NEW;TEMP;REC=-80,,F,ASCII
SHOWTIME
SHOWCLOCK
   SHOWclock  > !tz_DFILE
   FILE !tz_DFILE,OLDTEMP
   PRINT *!tz_DFILE;START=4 > DS284903
   INPUT tz_TEST_VAR < DS284903
COMMENT ECHO !TZ_TEST_VAR
   SETVAR TZ_I  pos("TIME ZONE:","!tz_TEST_VAR")
   IF !TZ_I > 0 THEN
   SETVAR TZ_I1 pos("HOURS","!tz_TEST_VAR")
   IF !TZ_I1 = 0 THEN
   SETVAR TZ_I1 LEN("!TZ_TEST_VAR")
   ENDIF
   SETVAR TZ_I2 11
   SETVAR TZ_TIME ""
   WHILE  !TZ_I2 <= !TZ_i1  DO
   SETVAR TZ_TEST STR("!TZ_TEST_VAR",!TZ_I2,1)
   IF "!TZ_TEST" >= "0" AND  "!TZ_TEST" <= "9" THEN
    SETVAR TZ_TIME "!TZ_TIME" + "!TZ_TEST"
   ENDIF
   SETVAR TZ_I2 TZ_I2 +1
   ENDWHILE
IF "!TZ_TIME" = "!ZONE1" OR "!TZ_TIME" = "!ZONE2"
SETVAR TIMEZONE !TZ_TIME
ECHO TIME ZONE IS CORRECT.....
ECHO  TIMEZONE VAR SET TO !TZ_TIME
ELSE
SETVAR TIMEZONE 0
ECHO TIME ZONE NOT CORRECT.....
ECHO  TIMEZONE VAR SET TO 0
ENDIF
PURGE !tz_DFILE,TEMP
PURGE DS284903,TEMP
RESET !tz_DFILE
DELETEVAR tz_@
ELSE
ECHO SHOWCLOCK .. COULD NOT FIND TIME ZONE:
ENDIF


Raymond D. Legault                      BOEING
System Admin/Analyst

Voice: (206) 773-5956
FAX:   (206) 773-5357                         Boeing D&SG

Pager: (206) 994-2689                         P.O. Box 24346,  M/S 8K-67

[log in to unmask]       Seattle, WA  98124-0346

ATOM RSS1 RSS2