NAME	XUROUTINE OUT
DESCRIPTION	This routine will output routines to an external device such as a host file.
CREATOR	USER,ONE
DELEGABLE	NO
E ACTION PRESENT	YES
ENTRY ACTION	N % S %=$G(^%ZOSF("OS")) D @$S(%["GT.M":"^ZRO",%["OpenM":"^%RO",%["DTM":"^%rsave",1:"^%RS")
MENU TEXT	Output routines
TYPE	action
UPPERCASE MENU TEXT	OUTPUT ROUTINES