Catalogs the specified FlashBASIC program.
bValue = object.brCatalog(sRuleBase, sRuleFile, sRuleName, [bGlobal] )
| Parameter | Description |
|---|---|
| bValue | The return value is a Boolean data type, that is True if successful. |
| object | An object variable that represents a clsD3Connection object. |
| sRuleBase | A String specifying the account where the program resides. |
| sRuleFile | A String specifying the file where the program resides. |
| sRuleName | A String specifying the name of the program. |
| bGlobal | An optional Boolean specifying whether or not the catalog is global. The default is False (global catalog is not used). |
Sub Main()
Dim oEnv As New clsD3Environment
Dim oConn As clsD3Connection
Dim oRule As clsD3RuleModule
Dim vInput1 As Variant
Dim vInput2 As Variant
Dim vResult As Variant
Set oConn = oEnv.brOpenConnection("ODBC", "production")
oConn.brCompile "dm", "bp", "addit"
oConn.brCatalog"dm", "bp", "addit"
Set oRule = oConn.brOpenRuleModule("addit", "bp", "dm")
vInput1 = CVar(5)
vInput2 = CVar(7)
oRule.brCall vResult, vInput1, vInput2
MsgBox "The result is " & CInt(vResult)
vInput1 = CVar(2)
vInput2 = CVar(3)
oRule.brCall vResult, vInput1, vInput2
MsgBox "The result is " & CInt(vResult)
oConn.brCloseRuleModule oRule
oEnv.brCloseConnection oConn
Set oEnv = Nothing
End Sub
catalog