C
C   Module:	WATCHACCT.INC	- COMMON ACCOUNT INFORMATION
C
C   Original:	George H. Walrod III
C
C   Corrected Modification:
C		None
C
*
	PARAMETER
     +		MAX_ACCOUNT_LEN			! Maximum Account Name Length
     +				= 12,
     +		MAX_NO_ACCOUNT	= 64		! Maximum No Account Rest's

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

	INTEGER*2
     +	  	MAX_ACCOUNT			! Number of Account Restricted

	RECORD	/ACCOUNT_RECORD/		! Restricted Account List
     +		ACCOUNT_LIST(MAX_NO_ACCOUNT)

	COMMON	/ACCOUNT_TABLE/
     +		MAX_ACCOUNT, 	ACCOUNT_LIST