subroutine U0230( Resultat, Status )
*******************************************************************************
*
*	passage de parametre de tsp vers basic
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/14/98 23801 SAP Change copyrights. 
*	01/14/91 7930  JWT Added new Ucode for Siemens/Nixdorf
*	17/07/89   -	creation du source
*
*******************************************************************************
*
	Resultat = ""
	OPEN "","VOC" TO FileVOC ELSE
		RETURN
	END
	Temp = CONVERT( " ",@FM,TRIM(@SENTENCE))
	READV VerbType FROM FileVOC,Temp<1>,3 ELSE
		VerbType = "B"
	END
	VerbType = UPCASE(VerbType[1,1])
	argc = DCOUNT(Temp,@FM)
	IF VerbType = "I" THEN
***		RUN command or synonym
		IF argc < 2 THEN
***			no arguments
			UARGS = ""
		END ELSE
			UARGS = FIELD(Temp,@FM,2,999)
		END
	END ELSE
***	CATALOGed program
		UARGS = FIELD(Temp,@FM,2,999)
	END
	Resultat = CONVERT( @FM," ",UARGS)
	RETURN
END