C
C   Module:	WATCHUSER.INC	- COMMON USERNAME INFORMATION
C
C   Original:	George H. Walrod III
C
C   Corrected Modification:
C		None
C
*
	PARAMETER
     +		MAX_USERNAME_LEN		! Maximum Username Name Length
     +				= 12,
     +		MAX_NO_USERNAME	= 64		! Maximum No Username Rest's

	STRUCTURE	/USERNAME_RECORD/
	  UNION
	    MAP
		LOGICAL*1
     +	        	WILDCARD		! Wildcard Entry
		INTEGER*2
     +			LENGTH			! Username String Length
		CHARACTER
						! Username Name
     +			NAME*(MAX_USERNAME_LEN)
		INTEGER*4
     +			START_MSG,		! Start Message Value
     +			STOP_PROC		! Stop Process Value
	    END MAP
	  END UNION
	END STRUCTURE

	INTEGER*2
     +	  	MAX_USERNAME			! Number of Username Restricted

	RECORD	/USERNAME_RECORD/		! Restricted Username List
     +		USERNAME_LIST(MAX_NO_USERNAME)

	COMMON	/USERNAME_TABLE/
     +		MAX_USERNAME, 	USERNAME_LIST