Requests server to apply a list of outline change files.
Syntax
EsbPartitionApplyOtlChangeFile (hCtx, usFileNum, fileList) ByVal hCtx As Long ByVal usfilenum As Integer ByVal filelist As String
| Parameter | Description |
|---|---|
hCtx | Handle to API context. |
usFileNum | The number of outline change files. |
fileList | A string of filenames delimited by CR/LF. The size of the array is defined by usFileNum. |
Notes
Obtain filename by calling EsbPartitionGetOtlChanges.
Return Value
Returns zero if successful, error code if unsuccessful.
Access
Database Manager privilege is required.
Example
Public Sub ESB_PartitionApplyOtlChangeFile()
Dim FileItems As Integer
Dim Filelist As String
Dim ProcState As ESB_PROCSTATE_T
FileItems = 1
Filelist = "C:\ESSBASE\APP\SAMPPART\COMPANY\ESS00001.CHG"
sts = EsbPartitionApplyOtlChangeFile(hCtx, FileItems, Filelist)
If sts = 0 Then
sts = EsbGetProcessState(hCtx, ProcState)
Do Until ProcState.State = ESB_STATE_DONE
sts = EsbGetProcessState(hCtx, ProcState)
Loop
End If
End SubSee Also