!	V A L I D T B L . C L D
!
! This module is the parsing module for the validation string
! which is read from the named data in the form
!
! Convert this to an object module with the command:
! $ SET COMMAND/OBJECT VALIDTBL
!
	MODULE VALIDATION_TABLES

	DEFINE VERB VALIDATE
		QUALIFIER LEGAL
			NONNEGATABLE
			VALUE (REQUIRED,LIST)
		QUALIFIER LOWER
			NONNEGATABLE
			VALUE (REQUIRED)
		QUALIFIER UPPER
			NONNEGATABLE
			VALUE (REQUIRED)
		QUALIFIER MESSAGE
			DEFAULT
			NONNEGATABLE
			VALUE (DEFAULT="Validation Error")
		QUALIFIER RADIX
			NONNEGATABLE
			VALUE (REQUIRED)
		QUALIFIER SPACES
			DEFAULT
		QUALIFIER CLEAR_ON_ERROR
			NONNEGATABLE