Subject: | |
From: | |
Reply To: | Legault, Raymond D |
Date: | Tue, 8 Apr 1997 11:13:12 -0700 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
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
|
|
|