--	Test the RPC_Caller Address procedure

package whosub is

type	mystring is	string(40);

procedure who_am_i(
		status:		OUT	rpc_long;
		my_name:	OUT	mystring);

end whosub;