TITLE 'DFH$STCN - CONVERT S/370 FORMAT TOD TO DATE AND TIME' 00210000 *********************************************************************** 00220000 * * 00240000 * MODULE NAME = DFH$STCN * 00260000 * * 00280000 * DESCRIPTIVE NAME = Convert S/370 TOD to Date and Time Sample * 00300000 * * 00330000 * 5655-018 * 00350000 * COPYRIGHT = NONE * 00370000 * * 00390000 * STATUS = 3.3.0 * 00420000 * * 00450000 *---------------------------------------------------------------------* 00480000 * * 00510000 * DESCRIPTION : * 00540000 * * 00570000 * This program is part of a set of sample programs which illustrate * 00600000 * the use of CICS/ESA INQUIRE and COLLECT STATISTICS commands * 00800000 * This program is called from the main program DFH0STAT * 01000000 * * 01050000 * This routine is taken from the sample DFH$MOLS and only the * 01100000 * stopwatch and time calculation parts are relevant to the statistics * 01150000 * sample * 01170000 * * 01190000 *---------------------------------------------------------------------* 01210000 * * 01230000 * CHANGE ACTIVITY : * 01250000 * $SEG(DFH$STCN),COMP(SAMPLES),PROD(CICS/ESA) * 01260000 * * 01270000 * PN= REASON REL YYMMDD HDXIII : REMARKS * 01290000 * $P0= 311 900612 : Created. * 01310000 * $P1= M90474 330 910807 HDBWSH : Prologue fixed. * 01320000 * * 01340000 *********************************************************************** 01370000 R0 EQU 0 01600000 R1 EQU 1 01800000 R2 EQU 2 02000000 R3 EQU 3 02200000 R4 EQU 4 02400000 R5 EQU 5 02600000 R6 EQU 6 02800000 R7 EQU 7 03000000 R8 EQU 8 03200000 R9 EQU 9 03400000 R10 EQU 10 03600000 R11 EQU 11 03800000 R12 EQU 12 04000000 R13 EQU 13 04200000 R14 EQU 14 04400000 R15 EQU 15 04600000 EJECT 04800000 ********************************************************************** 05000000 * 05200000 * ENTRY NAME - DFH$STCN 05400000 * 05600000 * FUNCTION - CONVERT A S/370 FORMAT TOD TO EBCDIC DATE AND TIME. 05800000 * 06000000 * CALLS TO OTHER ROUTINES - NONE 06200000 * 06400000 * OPERATION - 0. LOCATE TIME ZONE TABLE ENTRY TO BE USED FROM LINK 06600000 * TABLE SPECIFICATION, AND SAVE ITS ADDRESS. 06800000 * 07000000 * 1. CONVERT TIME AND DATE AND EDIT INTO USER 07200000 * SUPPLIED FIELD. 07400000 * 07600000 * 2. OBTAIN DAY OF THE WEEK AND TIME ZONE 07800000 * AND MOVE INTO USER SUPPLIED FIELD 08000000 * 08200000 * ENTRY - R1 = ADDRESS OF CALLER'S DOUBLEWORD ALIGNED 08400000 * FIELD, 120 BYTES IN LENGTH, OF THE FOLLOWING 08600000 * INITIAL FORMAT: 08800000 * 09000000 * DC XL4 First byte contains clock-type (S or T) 09200000 * DC XL44 2 bytes 09400000 * 4 bytes containing time to be converted 09600000 * 2 bytes filler 09800000 * 4 bytes containing time zone 10000000 * 30 bytes for output 10200000 * 2 bytes filler 10400000 * 6 - MMDDYY 10600000 * 1 filler 10900000 * 14 - stopwatch 11200000 * 7 filler 11500000 * 2 bytes filler 11800000 * 12100000 * 12400000 * EXIT - DATE, TIME, AND TIME ZONE HAVE BEEN GENERATED AND MOVED TO 12700000 * THE SPECIFIED OUTPUT AREA. 13000000 * 13300000 * RESPONSES - NONE 13600000 * 13900000 * ERROR MESSAGES - NONE 14200000 * 14500000 ********************************************************************** 14800000 SPACE 2 15100000 FIRSTDAY EQU 1 JANUARY 1, 1900, WAS A MONDAY 15400000 EJECT 15700000 CLOCK_FIELDS DSECT 16000000 CLOCK_TYPE DS XL4 16300000 CLOCK_FIELD DS XL44 16600000 SPACE 2 16900000 DFHEISTG DSECT 17200000 MMDDYYHH DC 1D'0' TO HOLD NEW HOUR CALCULATION IN DEC 17500000 DC 1D'0' FOR APPENDING MMDDYYHH TO MMSSMMMM 17800000 MMSSMMMM DC 1D'0' TO RECEIVE DECIMAL MINUTE AND SECOND 18100000 DAYNUMBR DC 1A(0) TO RECEIVE COMPUTED DAY OF WEEK 0->6 18400000 TODEBCON DC F'-1' TO HOLD LAST CALC ELAPSED HRS 18700000 DC A(0+4) SWITCH, USED AS AN INDEX, FOR STD VS. DLT TIME 19000000 DC A(0) SAVE AREA FOR ZONE ENTRY ADDR 19300000 TODPARMS DC 4F'0' 19600000 EJECT 19900000 DFH$STCN DFHEIENT CODEREG=(R12) 20200000 DFH$STCN AMODE 31 20500000 DFH$STCN RMODE ANY 20800000 *********************************************************************** 20840000 * Get callers parameters * 20880000 * IF clock type not stopwatch 'S' or timestamp 'T' THEN * 20920000 * return to caller * 20960000 * prepare output area according to clock type * 21000000 *********************************************************************** 21050000 L R1,DFHEICAP 21100000 USING CLOCK_FIELDS,R1 21400000 LA R4,CLOCK_TYPE GET CALLERS PARMS 21700000 LA R5,CLOCK_FIELD GET CALLERS PARMS 22000000 DROP R1 22300000 CLI 0(R4),C'S' STOPWATCH? 22600000 BE FLDCLPRT YES, 22900000 CLI 0(R4),C'T' TIMESTAMP? 23200000 BE FLDCLDBL YES, 23500000 B RETURN NO, RETURN TO CALLER 23800000 SPACE 24100000 FLDCLPRT DS 0H 24400000 LM R0,R2,0(R5) LOAD STOPWATCH AND TIME ZONE 24700000 LA R3,12(R5) ADDRESS OF OUTPUT AREA 25000000 MVC 12(24,R5),TODMASK1 LOAD EDIT MASK INTO O/P AREA 25300000 B CONTINUE AND CONTINUE 25600000 FLDCLDBL DS 0H 25900000 LM R0,R2,0(R5) LOAD TIMESTAMP AND TIME ZONE 26200000 LA R3,12(R5) ADDRESS OF OUTPUT AREA 26500000 MVC 12(23,R5),TODMASK LOAD EDIT MASK INTO O/P AREA 26800000 B CONTINUE AND CONTINUE 27100000 EJECT 27400000 ********************************************************************** 27430000 * Validate time zone 27460000 * If invalid set to default GMT 27470000 * Calculate offset into Timezone table 27480000 * Calculate microseconds 27490000 * Adjust timezone difference from GMT 27500000 * Calculate minutes 27520000 * IF hour is same as for last conversion THEN 27550000 * CONTINUE 27580000 * ELSE calculate all other information (branch to NEWHOUR) 27620000 ********************************************************************** 27660000 CONTINUE DS 0H 27700000 MVC TODEBCON,=F'-1' INITIALIZE HOUR COMPUTATION FIELD 28000000 MVC TODEBCON+4,=F'4' INITIALIZE TIMEZONE SUB-ENTRY FIELD 28300000 SPACE 28600000 STM R0,R3,TODPARMS SAVE PARAMETER REGISTERS 28900000 CL R2,F24 IS TIME ZONE LEGAL? 29200000 BNH TODEZOK YES - LEAVE IT ALONE 29500000 SR R2,R2 OTHERWISE, SET DEFAULT (GMT) 29800000 TODEZOK DS 0H 30100000 SLL R2,4 *16 = TABLE DISPLACEMENT BYTES 30400000 LA R2,TODZONES+4(R2) ADDR OF SPECIFIED ENTRY +4 30700000 ST R2,TODEBCON+8 SAVE ENTRY ADDR FOR LATER 31000000 TODRETRY DS 0H 31300000 SRDL R0,12 RIGHT JUST TIME OF DAY MICROSECONDS 31600000 LM R3,R5,TODEBCON LOAD KEY VALUES FROM LAST COMP 31900000 D R0,F60MEG 370 TOD BY 60,000,000(NO. USEC/MIN) 32200000 LR R10,R0 R10=ODD MICROSECONDS LESS THAN A MIN 32500000 SLR R0,R0 CLEAR R0 FOR MORE DIVIDING 32800000 AH R1,0(R4,R5) ADJUST TIMEZONE DIFFERENCE FROM GMT 33100000 D R0,F60 DIVIDE MINUTES BY 60 TO GET HOURS 33400000 LR R9,R0 R9=ODD MINUTES LESS THAN AN HOUR 33700000 CLR R1,R3 HOUR SAME AS FOR THE LAST CONV? 34000000 BNE NEWHOUR NOPE-GOTTA GO DO A COMPLETE COMP 34300000 *********************************************************************** 34350000 * Convert and edit minutes, second and milliseconds * 34400000 * edit month, day, year and hours into output area * 34450000 * RETURN * 34500000 *********************************************************************** 34550000 TODFINIS DS 0H 34600000 LR R1,R10 R1=ODD MICROSECONDS LESS THAN A MIN 34900000 SLR R0,R0 CLEAR R0 FOR DIVIDE 35200000 D R0,F10 R1=SECONDS TO FIVE DECIMAL PLACES 35500000 M R8,F10MEG SHIFT MINUTES LEFT SEVEN PLACES DEC 35800000 ALR R9,R1 SET SEC AND FRACTION TO RIGHT OF MIN 36100000 CVD R9,MMSSMMMM FIELD=DECIMAL '000000MMSSMMMMMZ' 36400000 IC R0,MMSSMMMM+3 SAVE DECIMAL MINUTES THROUGH MVO 36700000 MVO MMSSMMMM-2(6),MMDDYYHH+3(5) APPEND DATE AND HOUR 37000000 STC R0,MMSSMMMM+3 RESTORE MINUTES CLOBBERED BY ZONE 37300000 L R6,TODPARMS+12 RESTORE USERS O/P AREA ADDRESS 37600000 SR R0,R0 CLEAR WORK REG 37900000 ST R0,TODPARMS ZERO 1ST WORD OF I/P PARMS 38200000 MVC TODPARMS+3(9),MMSSMMMM-1 MVE PACKED D&T TO I/P PARMS 38500000 SLR R1,R1 CLEAR R1 FOR RETURN FIELD LEN 38800000 IC R1,0(R6) R1=LENGTH OF CALLER'S EDIT MASK 39100000 MVI 0(R6),C' ' SET FILL CHAR OF MASK TO BLANK 39400000 EX R1,TODEDIT EDIT OUTPUT INTO CALLER'S FIELD 39700000 L R5,TODEBCON+8 ZONE TABLE ENTRY USED 40000000 AL R5,TODEBCON+4 SUB-ENTRY ACTUALLY USED 40300000 LA R6,2(R1,R6) R6 = RETURN ADDR FOR ZONE NAME 40600000 MVC 0(6,R6),2(R5) GIVE CALLER EBCDIC ZONE NAME 40900000 RETURN DS 0H 41500000 EXEC CICS RETURN 41800000 EJECT 42100000 TODEDIT ED 0(0,R6),MMSSMMMM-1 EDIT EXECUTED BY ABOVE CODE 42400000 SPACE 42700000 ********************************************************************** 42750000 * Save hour computation and calculate hours 42800000 * Calculate and save day number 42850000 * calculate year allowing for leap year 42900000 ********************************************************************** 42950000 NEWHOUR DS 0H 43000000 ST R1,TODEBCON SAVE HOUR COMPUTATION FOR NEXT CALL 43300000 SLR R0,R0 CLEAR R0 FOR MORE DIVIDING 43600000 D R0,F24 DIV HRS BY 24 TO GET DAYS AND ODD HR 43900000 LR R8,R0 R8=ODD HOURS LESS THAN ONE DAY 44200000 LA R3,FIRSTDAY(R1) R3=DAY COUNT SINCE SUNDAY LONG PAST 44500000 SLR R2,R2 CLEAR R2 FOR DIVIDE TO FOLLOW 44800000 D R2,F7 R2=CURRENT WEEKDAY NUMBER 0 -> 6 45100000 ST R2,DAYNUMBR SAVE WEEKDAY FOR LATER REF AND RET 45400000 SLR R7,R7 ASSUME NO LEAPYEAR FOR NOW 45700000 S R1,F365 SUBTRACT THE DAYS IN 1900 46000000 BM YEAR1900 DEAL WITH SPEC PROB IF YEAR IS 1900 46300000 SLR R0,R0 CLEAR R0 FOR YET MORE DIVIDING 46600000 D R0,F1461 DIV DYS BY DYS IN 4 YEARS((4*365)+1) 46900000 SLL R1,2 MULT QUOTIENT BY FOUR TO GET YEARS 47200000 LA R5,1(R1) R5=YEARS LESS ODD YEARS NORM TO 1900 47500000 LR R3,R0 R3=REMAINING DAYS 47800000 SLR R2,R2 CLEAR R2 FOR IMPENDING DIVIDE 48100000 D R2,F365 GET NUM OF ODD YRS AND ODD DYS LEFT 48400000 CL R3,F3 CHECK FOR PRESENCE OF LEAPYEAR 48700000 BL YEARSET GO FIN YEAR NUMBER IF NOT LEAPYEAR 49000000 LA R7,1 ADJUST EXTRA DAY REG FOR LEAPYEAR 49300000 BE YEARSET COMP YEAR NUM IF NO SPECIAL PROB 49600000 BCTR R3,0 OTHERWISE SET ODD YEAR REG BACK TO 3 49900000 LA R2,365 SET DY OF YR TO LAST DAY OF LEAPYEAR 50200000 YEARSET DS 0H 50500000 ALR R5,R3 ADD ODD YRS TO FORM EXACT YEAR IN R5 50800000 DATECALC DS 0H 51100000 LA R2,1(R2) BUMP DATE TO STA AT ONE RATH THAN 0 51400000 LA R1,59(R7) R1=60 IF LEAPYEAR, 59 IF NOT 51700000 CLR R2,R1 IS THE DATE PAST FEBRUARY? 52000000 BNH WINTER NOPE - LET THE DATE STAND AS IT IS 52300000 LA R2,2(R2) SET FOR NON LEAPYEAR INITIALLY... 52600000 SLR R2,R7 DEC BY ONE IF DATE IS OF A LEAPYEAR 52900000 ********************************************************************** 52970000 * calculate month and day 53040000 * The day of the month and month of the year are calculated using 53050000 * an algorithm written by R.A. Stone entitled 'Tableless Date 53060000 * Conversion' which is described in 'Communications of the ACM, Vol.13 53080000 * No.10, P621. 53100000 ********************************************************************** 53180000 WINTER DS 0H 53200000 LA R3,91(R2) R3=DATE OF YEAR + 91 53500000 LR R7,R3 R7=SAME THING 53800000 M R2,F2145 MULTIPLY BY 2145 AND THEN DIVIDE 54100000 SRL R3,16 BY 65536 TO GET MONTH NUMBER + 2 54400000 LR R6,R3 R6=NUMBER OF MONTH + 2 54700000 BCTR R6,0 R6=NUMBER OF MONTH + 1 55000000 BCTR R6,0 R6=NUMBER OF MONTH EXACTLY 55300000 M R2,F1955 MULTIPLY BY 1955 AND THEN DIVIDE 55600000 SRL R3,6 BY 64 GET TOT DYS IN PAST MONTH+91 55900000 SLR R7,R3 R7=EXACT DATE OF MONTH 56200000 *********************************************************************** 56500000 * ALLOW FOR THE POSSIBILITY OF DAYLIGHT SAVING TIME. THE ABOVE * 56800000 * CALCULATION USED THE TIME DIFFERENCE SELECTED PREVIOUSLY, SO WE * 57100000 * MUST CHECK THAT IT APPLIES NOW, AND RESELECT/RECALCULATE IF NOT. * 57400000 *********************************************************************** 57700000 L R2,TODEBCON+8 RESTORE ZONE TABLE POINTER 58000000 S R2,F4 ADDRESS STANDARD TIME ENTRY 58300000 CLC 0(2,R2),8(R2) SAME AS DAYLIGHT TIME? 58600000 BE HOURSOK YES, CORRECT VALUE WAS USED 58900000 LA R0,4 SET TIME TYPE FLAG TO DIFF TABLE DIS 59200000 LCR R0,R0 SET FLAG TO STAN TIME (-4) INITIALLY 59500000 CL R6,F4 COMPARE MONTH NUMBER TO APRIL NUMBER 59800000 BL FLAGCHEK FLAG IS CORRECT GO LOOK AT CALC FLAG 60100000 LA R1,0 INIT MON INDICATOR INCASE OF BRANCH 60400000 BE DETAILS DO A CLOSE INSP IF DATE IS IN APRIL 60700000 CL R6,F10 AFTER APRIL-COMPARE MONTH TO OCT 61000000 BH FLAGCHEK DATE IS AFT OCT-STANDARD TIME SET OK 61300000 LA R0,4 OTHERWISE RESET FLAG TO DAYLITE TIME 61600000 BL FLAGCHEK FLAG SET PROP IF AFT APR BEFORE OCT 61900000 LA R1,1 MUST CHECK CLOSELY - SET OCT IND 62200000 DETAILS DS 0H 62500000 LA R2,30(R1) R2=DAYS IN MONTH - APRIL OR OCTOBER 62800000 LA R4,7(R7) R4=COMPUTED DATE OF MONTH + 7 63100000 SR R4,R2 R4=NUM OF DAYS PAST IN LAST WK OF MO 63400000 BM FLAGCHEK DATE COMP IS PRIOR TO STA OF LAST WK 63700000 CL R4,DAYNUMBR WILL SUNDAY OCCUR BETWEEN 64000000 * TOMORROW AND THE END OF THE MONTH? 64300000 BNH FLAGCHEK YES - TIME FLAG IS SET PROPERLY 64600000 CLI DAYNUMBR+3,X'00' IS COMPUTED DATE SUNDAY, PERHAPS? 64900000 BNE INVERT NOPE-AFTER SUN-INVERT FLAG AND CONT 65200000 L R4,TODEBCON+4 R4=FLAG USED IN PRIOR COMPUTATION 65500000 SRA R4,4 R4=-1 IF STAN USD; 0 IF DAYLITE USD 65800000 LCR R1,R1 R1=0 IF MONTH APR; -1 IF MONTH OCT 66100000 LA R2,3(R1,R4) R2=HOUR CHANGE COMP: 1, 2, OR 3 66400000 CLR R8,R2 IS COMPUTED TIME BEFORE TIME CHANGE? 66700000 BL FLAGCHEK YES - FLAG HAS BEEN PROPERLY SET 67000000 INVERT DS 0H 67300000 LCR R0,R0 INVERT TIME FLAG TO PROPER SETTING 67600000 ********************************************************************** 67660000 * IF correct time zone used THEN continue 67720000 * ELSE recalculate (go to SETRETRY) 67780000 ********************************************************************** 67840000 FLAGCHEK DS 0H 67900000 CL R0,TODEBCON+4 NOW - DID WE USE THE RIGHT TIME ZONE? 68200000 BNE SETRETRY NO-MUST DO THE WHOLE COMP OVER AGAIN 68500000 ********************************************************************** 68560000 * Convert month, day, year and hours 68620000 * return to main code to complete (go to TODFINIS) 68680000 ********************************************************************** 68740000 HOURSOK DS 0H 68800000 LA R2,100 SET DIVISOR FOR DEC MANIPULATIONS 69100000 LR R1,R7 R1=HEXADECIMAL MONTH NUMBER 69400000 MR R0,R2 SHIFT MONTH LEFT TWO PLACES DECIMAL 69700000 ALR R1,R6 SET DAY NUMBER INTO ACCUMULATION 70000000 MR R0,R2 SHIFT MMDD LEFT TWO PLACES DECIMAL 70300000 SLR R4,R4 CLEAR R4 FOR R5 YEAR DIVIDE 70600000 DR R4,R2 R4=YEAR NUMBER MODULO CENTURY 70900000 ALR R1,R4 SET TRUNCATED YEAR NUM INTO ACCUM 71200000 MR R0,R2 SHIFT MMDDYY LEFT TWO PLACES DECIMAL 71500000 ALR R1,R8 SET HOUR NUMBER INTO ACCUMULATION 71800000 CVD R1,MMDDYYHH FIELD=DECIMAL '0000000MMDDYYHHZ' 72100000 B TODFINIS GO BACK TO MAINLINE CODE TO FIN UP 72400000 EJECT 72700000 YEAR1900 DS 0H 73000000 LA R2,365(R1) UNDO DAMAGE TO DATE OF YEAR 73300000 SLR R5,R5 SET YEAR NUMBER TO ZERO 73600000 B DATECALC AND GO CALCULATE THE DATE OF YEAR 73900000 SPACE 74200000 ********************************************************************** 74260000 * Reset registers and hour value 74320000 * restore callers registers and start again (go to TODRETRY) 74380000 ********************************************************************** 74440000 SETRETRY DS 0H 74500000 SLR R1,R1 SET R1 TO ZERO AND... 74800000 BCTR R1,0 DECREMENT TO SET R1 TO -1 75100000 ST R1,TODEBCON DUM UP LAST HR VAL TO FORCE RECAL 75400000 ST R0,TODEBCON+4 SET PROP TIME TYPE FLAG FOR NEXT TRY 75700000 LM R0,R2,TODPARMS RESTORE CALLER'S REGISTERS 76000000 B TODRETRY AND START FROM THE TOP AGAIN 76300000 EJECT 76600000 *********************************************************************** 76900000 * * 77200000 * STORAGE AREAS FOR PROGRAM * 77500000 * * 77800000 *********************************************************************** 78100000 SPACE 1 78400000 F3 DC F'3' 78700000 F4 DC F'4' 79000000 F7 DC F'7' 79300000 F10 DC F'10' 79600000 F24 DC F'24' 79900000 F60 DC F'60' 80200000 F365 DC F'365' 80500000 F1461 DC F'1461' 80800000 F1955 DC F'1955' 81100000 F2145 DC F'2145' 81400000 F10MEG DC F'10000000' 81700000 F60MEG DC F'60000000' 82000000 * 82300000 TODMASK DC X'16402020202020204020207A20207A20204B2020202040' 82600000 TODMASK1 DC X'17402020202020204020207A20207A20204B202020202040' 82900000 SPACE 83200000 LTORG 83500000 EJECT 83800000 TODZONES DC 0D'0' 84100000 DC Y(0-0*60),CL6'G.M.T.' GREENWICH MEAN 84400000 DC Y(0-0*60),CL6'G.M.T.' GREENWICH MEAN 84700000 DC Y(0-1*60),CL6'GMT-1 ' NAME? 85000000 DC Y(0-1*60),CL6'GMT-1 ' NAME? 85300000 DC Y(0-2*60),CL6'GMT-2 ' NAME? 85600000 DC Y(0-2*60),CL6'GMT-2 ' NAME? 85900000 DC Y(0-3*60),CL6'GMT-3 ' NAME? 86200000 DC Y(0-3*60),CL6'GMT-3 ' NAME? 86500000 DC Y(0-4*60),CL6'A.S.T.' ATLANTIC TIME (STANDARD) 86800000 DC Y(0-4*60),CL6'A.S.T.' ATLANTIC TIME (STANDARD) 87100000 DC Y(0-5*60),CL6'E.S.T.' EASTERN TIME (STANDARD) 87400000 DC Y(0-4*60),CL6'E.D.T.' EASTERN TIME (DAYLIGHT) 87700000 DC Y(0-6*60),CL6'C.S.T.' CENTRAL TIME (STANDARD) 88000000 DC Y(0-5*60),CL6'C.D.T.' CENTRAL TIME (DAYLIGHT) 88300000 DC Y(0-7*60),CL6'M.S.T.' MOUNTAIN TIME (STANDARD) 88600000 DC Y(0-6*60),CL6'M.D.T.' MOUNTAIN TIME (DAYLIGHT) 88900000 DC Y(0-8*60),CL6'P.S.T.' PACIFIC TIME (STANDARD) 89200000 DC Y(0-7*60),CL6'P.D.T.' PACIFIC TIME (DAYLIGHT) 89500000 DC Y(0-9*60),CL6'Y.S.T.' YUKON TIME (STANDARD) 89800000 DC Y(0-8*60),CL6'Y.D.T.' YUKON TIME (DAYLIGHT) 90100000 DC Y(0-10*60),CL6'H.S.T.' ALASKA-HAWAII (STANDARD) 90400000 DC Y(0-9*60),CL6'H.D.T.' ALASKA-HAWAII (DAYLIGHT) 90700000 DC Y(0-11*60),CL6'B.S.T.' BERING TIME (STANDARD) 91000000 DC Y(0-10*60),CL6'B.D.T.' BERING TIME (DAYLIGHT) 91300000 DC Y(0-12*60),CL6'GMT-12' WEST OF DATE LINE 91600000 DC Y(0-12*60),CL6'GMT-12' WEST OF DATE LINE 91900000 DC Y(0+12*60),CL6'GMT+12' EAST OF DATE LINE 92200000 DC Y(0+12*60),CL6'GMT+12' EAST OF DATE LINE 92500000 DC Y(0+11*60),CL6'GMT+11' NAME? 92800000 DC Y(0+11*60),CL6'GMT+11' NAME? 93100000 DC Y(0+10*60),CL6'GMT+10' NAME? 93400000 DC Y(0+10*60),CL6'GMT+10' NAME? 93700000 DC Y(0+9*60),CL6'GMT+9 ' NAME? 94000000 DC Y(0+9*60),CL6'GMT+9 ' NAME? 94300000 DC Y(0+8*60),CL6'GMT+8 ' NAME? 94600000 DC Y(0+8*60),CL6'GMT+8 ' NAME? 94900000 DC Y(0+7*60),CL6'GMT+7 ' NAME? 95200000 DC Y(0+7*60),CL6'GMT+7 ' NAME? 95500000 DC Y(0+6*60),CL6'GMT+6 ' NAME? 95800000 DC Y(0+6*60),CL6'GMT+6 ' NAME? 96100000 DC Y(0+5*60),CL6'GMT+5 ' NAME? 96400000 DC Y(0+5*60),CL6'GMT+5 ' NAME? 96700000 DC Y(0+4*60),CL6'GMT+4 ' NAME? 97000000 DC Y(0+4*60),CL6'GMT+4 ' NAME? 97300000 DC Y(0+3*60),CL6'GMT+3 ' NAME? 97600000 DC Y(0+3*60),CL6'GMT+3 ' NAME? 97900000 DC Y(0+2*60),CL6'GMT+2 ' NAME? 98200000 DC Y(0+2*60),CL6'GMT+2 ' NAME? 98500000 DC Y(0+1*60),CL6'GMT+1 ' NAME? 98800000 DC Y(0+1*60),CL6'GMT+1 ' NAME? 99100000 SPACE 99400000 END 99700000