49 lines
1.4 KiB
Plaintext
Executable File
49 lines
1.4 KiB
Plaintext
Executable File
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
|