Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

	SUBROUTINE	VETXXX(UDATA,IERROR,ERRMSG,FNAME)
C
C	This is the VET-ROUTINE entry point and must reflect the
C	real name of the VET-ROUTINE, i.e. the 'XXX' must be
C	replaced by a 3 digit number, e.g. VET011.
C
C
C	UDATA contains the data read from the screen. It is
C	available to this subroutine for either read (for verification)
C	or write (for modification). The number of words allocated
C	must match that of the record description file.
C
	DIMENSION	UDATA(XXX)
C
C	IERROR is the return status code from this subroutine. It
C	may be set to any of the following:
C
C	IERROR =  1	Rewrite the field on the screen
C	IERROR =  0	Normal return
C	IERROR = -1	Rewrite the field and issue message
C	IERROR = -2	Issue message only
C	IERROR = -3	Issue message and reread the field
C	IERROR = -4	Issue message and force exit (end-ind =8)
C
C	ERRMSG is available for sending messages to the user via
C	the error line of the form. In order for the message to
C	be sent, IERROR must be negative. ERRMSG should end with
C	a zero word.
C
	DIMENSION	ERRMSG(16)
C
C	FNAME contains the name of the field whose data has been
C	placed in UDATA. This can be used to determine the specific
C	testing required.
C
	DIMENSION	FNAME(2)
C
C
C
C
	RETURN
	END