DBC_SetSP Procedure
This function set source code or fxp code of stored procedures.
=
DBC_SetSP
Parameter
lcAlias
DBC Alias
Type Character
Direction Input
Alias of opened DBC as table.
liType
Type of set information.
Type Integer
Direction Input
ValueDescription
_DBC_SP_TSourceSource code
_DBC_SP_TFXPFXP code
luValue
Source code or FXP code
By reference  
Direction Input
Return value Integer
If the function succeeds, the return value is _DBC_ObjectFound.

If the function fails, the return value is _DBC_ObjectNotFound.
Example
#INCLUDE "dbc.h"
#DEFINE CRLF CHR(13)+CHR(10)
SET PROCEDURE TO dfo.prg ADDITIVE
LOCAL lcAlias,lcDBC,luValue,lcFile
lcAlias=SYS(2015)
lcDBC=HOME(2)+"\Tastrade\Data\tastrade.dbc"
USE (lcDBC) ALIAS (lcAlias) IN 0
* Read Stored procedures
=DBC_GetSP(lcAlias,_DBC_SP_TSource,@luValue)
* Add new procedure
luValue=luValue+;
        [PROCEDURE TestProcedure]+CRLF+;
        [   ?time()]+CRLF+;
        [ENDPROC]+CRLF
* Save Stored procedures
=DBC_SetSP(lcAlias,_DBC_SP_TSource,@luValue)

* Compile source code
lcFile=SYS(2023)+"\"+SYS(2015)
=STRTOFILE(luValue,lcFile+".prg")
COMPILE (lcFile+".prg")
luValue=FILETOSTR(lcFile+".fxp")
* Save FXP code
=DBC_SetSP(lcAlias,_DBC_SP_TFXP,@luValue)
USE IN (lcAlias)
RELEASE PROCEDURE dfo.prg

* Test
OPEN DATA (lcDBC)
=TestProcedure()
CLOSE DATA


See also
Expand/Collapse source code of procedure DBC_SetSP Source Code
LPARAMETERS lcAlias,liType,luValue
* lcAlias  - Alias of opended DBC
* liType   - Type (Source code/ P-Code)
* @luValue - (output) Stored procedures source code/P-Code


SELE (lcAlias) && Skip to DBC 
* Find object
LOCATE FOR OBJECTTYPE=_DBC_DataBase AND ;
       UPPER(ObjectName)==UPPER(IIF(liType=_DBC_SP_TSource,_DBC_SP_Source,_DBC_SP_FXP))
IF !FOUND() && If not found
   RETURN _DBC_ObjectNotFound && Get out
ENDIF
REPLACE CODE WITH luValue
RETURN _DBC_ObjectFound