SetSP Method
Class: _DBC
This method set source code or fxp code of stored procedures.
=
Object.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 method succeeds, the return value is _DBC_ObjectFound .

If the method fails, the return value is _DBC_ObjectNotFound .
Example
#INCLUDE "dbc.h"
#DEFINE CRLF CHR(13)+CHR(10)
SET PROCEDURE TO dbc.prg ADDITIVE
LOCAL lcAlias,loDBC,luValue,lcFile
loDBC=CREATEOBJECT("_DBC")
lcAlias=SYS(2015)
=loDBC.OpenTable(HOME(2)+"\Tastrade\Data\tastrade.dbc",lcAlias,"")
* Read Stored procedures
=loDBC.GetSP(lcAlias,_DBC_SP_TSource,@luValue)
* Add new procedure
luValue=luValue+;
        [PROCEDURE TestProcedure]+CRLF+;
        [   ?time()]+CRLF+;
        [ENDPROC]+CRLF
* Save Stored procedures
=loDBC.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
=loDBC.SetSP(lcAlias,_DBC_SP_TFXP,@luValue)
loDBC.CloseTable(lcAlias)
RELEASE loDBC
RELEASE PROCEDURE dbc.prg

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


See also
Expand/Collapse source code of procedure SetSP Source Code
      LPARAMETERS lcAlias,liType,luValue
      * lcAlias  - Alias of opened 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