!++
    !
    !	mail_table.cld
    !
    !	Command language commands for the MAILUAF Utility
    !	 "Compile" with the DCL command SET COMMAND/OBJECT mail_table.cld
    !
    !--

	MODULE MAIL_COMMANDS
    	IDENT "V1.00"

	DEFINE VERB	ADD
		ROUTINE		ADD_ROUTINE
		PARAMETER P1,
			LABEL = UNAME
		QUALIFIER FORWARD
			LABEL FORWARD_NAME
			VALUE
		QUALIFIER NAME
			LABEL MAIL_NAME
			VALUE
		QUALIFIER DIRECTORY
			LABEL DIR_NAME
			VALUE

	DEFINE VERB	EXIT
		ROUTINE		EXIT_ROUTINE

	DEFINE VERB	HELP
		ROUTINE		HELP_ROUTINE
		PARAMETER P1,
			LABEL = HELP_TOPIC
			VALUE(DEFAULT=" ")

	DEFINE VERB	RESET
		ROUTINE		RESET_ROUTINE
		PARAMETER P1,
			LABEL = UNAME

	DEFINE VERB	MODIFY
		ROUTINE		MODIFY_ROUTINE
		PARAMETER P1,
			LABEL = UNAME
		QUALIFIER FORWARD
			LABEL FORWARD_NAME
			VALUE
		QUALIFIER NAME
			LABEL MAIL_NAME
			VALUE
		QUALIFIER DIRECTORY
			LABEL DIR_NAME
			VALUE

	DEFINE VERB	DELETE
		ROUTINE		DELETE_ROUTINE
		PARAMETER P1,
			LABEL = UNAME

	DEFINE VERB	SHOW
		ROUTINE		SHOW_ROUTINE
		PARAMETER P1,
			LABEL = UNAME
		QUALIFIER ALL
		QUALIFIER FULL
!++
!	end of MAILUAF_TABLE definitions
!--