Module  SHR_CLD
     
Define Verb HELP
        Routine Shr_Help
        Parameter P1, Label=HELP_LINE, Value(Type=$Rest_of_line)
     
Define Verb CLEAR
        Routine Shr_Clear
	Qualifier USER, Value
	Qualifier TERMINAL, Value
	Qualifier HOST, Value
	Qualifier ROUTER_HOST
	Qualifier NETWORK, Value
	Qualifier LOCAL_HOST
	Qualifier ORGANIZATION
	Qualifier ALL
     
Define Verb ADD
	Routine Shr_Add
	Qualifier USER, Value
	Qualifier UAF
	Qualifier PERSONALNAME, Value(Required)
	Qualifier TERMINAL, Value(Required)
	Qualifier LOCATION, Value(Required)
	Qualifier TTTYPE, Value(Required)
	Qualifier HOST, Value(Required)
	Qualifier ROUTER_HOST, Value(Required)
	Qualifier NETWORK, Value(Required)
	Qualifier TYPE, Value(Default=D), Default
	Qualifier LINK, Value
	Qualifier ROUTE, Value
	Qualifier LOCAL_HOST, Value(Required)
	Qualifier ORGANIZATION, Value(Required)

Define Verb SHOW
	Routine Shr_Show
	Qualifier USER, Value
	Qualifier TERMINAL, Value
	Qualifier HOST, Value
	Qualifier ROUTER_HOST, Value
	Qualifier NETWORK, Value
	Qualifier LOCAL_HOST
	Qualifier ORGANIZATION
	Qualifier ALL
	Qualifier STATISTICS

Define Verb EXIT
	Routine Shr_Exit