Conference turris::fortran

1322.0. "UTC Time Routines" by CSC32::L_WEBER () Fri May 30 1997 18:37

      Customer is running VMS V6.1 on a VAX 6000-630 in a VAXcluster.

	$show log sys$timezone*/system
	"SYS$TIMEZONE_DIFFERENTIAL" = "-14400"

	$show time
	  30-MAY-1997 12:00:36

	$run test.exe   ( code shown below )
	30-MAY-1997 12:00:46.77

      Customer suspects UTC time routines not working properly because
	"The displayed time is the same as the current time.
	 This does not seem correct, I expect to see a time
         offset by 14400 seconds (4 hours)."
  
  ------------------------
	program test
        implicit none
        INCLUDE '($RMSDEF)'
        character*23    timbuf
        integer*4   status,sys$ascutc,timadr64(2)
        integer*4   utctim(4),sys$timcon,sys$bintim,sys$asctim
        status=SYS$ASCTIM (,%descr(timbuf),,)   !Get local time stamp
C         Convert to 64 bit time
        status=SYS$BINTIM (%descr(timbuf),%ref(timadr64)) 
C         Request convert to UTC time
        status=SYS$TIMCON (%ref(timadr64),%ref(utctim),%val(1)) 
C         Convert to ascii time to display
        status=SYS$ASCUTC (,%descr(timbuf),%ref(utctim),) 
        type *,timbuf
        CALL EXIT
        END
  ------------------------

	Regards, Larry Weber
        Customer Support Center - LST

        C970530-2846

    This is unrelated to Fortran, other than that Fortran is the language 
    the program is written in.  Ask in VAXAXP::VMSNOTES.
    
    				Steve