XBUPCASE	; IHS/ADC/GTH - UPCASE VALUE IN X ; [ 02/07/97   3:02 PM ]
	;;4.0;XB;;Jul 20, 2009;Build 2
	;
	; Upcase value in X
	;
START	;
	S X=$$UP^XLFSTR(X)
	Q
	;