PROGRAM SETTD
C
C  This Fortran task runs on a target LABSTATION 23 node.
C  It sets the time and date from data sent by the host node
C  task SENTIM.
C
	COMMON /BUFFER/ TIME(8),NAME(6)
	INTEGER*2 TIME,DATA,STATUS(2),MSGTYP,IDSW
	LOGICAL*1 MAILBF(50)
	LOGICAL*1 NAME
	INTEGER*2 IMMED
C
	IMMED = -1
C
C  Open the network and get the local node name .
C
	CALL OPNNTW(1)
	CALL GLNNTW(STATUS,6,NAME)	
C
C  Get the network data and accept the connect request.
C
	CALL GNDNTW(STATUS,MSGTYP,50,MAILBF)
	CALL ACCNTW(2,STATUS,MAILBF)
C
C  Get the time and date buffer from the host.
C
	CALL RECNTW(2,STATUS,16,TIME)
C
C  Set the time and date.
C
	CALL SETTIM (TIME,,IDSW)
C
C  Send the status return back to the host.
C
	CALL SNDNTW(2,STATUS,2,IDSW)
C
	CALL CLSNTW
	CALL EXIT
	END