EsbOtlVerifyOutline() verifies that an outline is correct. The function returns both global outline errors and errors for each incorrect member.
EsbOtlVerifyOutline (hOutline, pulErrors, pulCount)
ByVal hOutline As Long
pulErrors As Long
pulCount As Long
| hOutline | Outline context handle. |
| pulErrors | Return variable representing the bitmask for return of global outline errors. Currently, this field has only one value: ESB_OUTERROR_CURTOOMANYDIMS |
| pulCount | Count of members with errors. |
Returns 0 if successful; otherwise one of the following:
ESB_OUTERROR_SHAREUDA
ESB_OUTERROR_DUPGENLEVNAME
Declare Function EsbOtlVerifyOutline Lib
"ESBOTLW" (ByVal hOutline As Long, pulErrors As Long,
pulCount As Long) As Long
Sub ESB_OtlVerifyOutline()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim ulErrors As Long
Dim ulCount As Long
Dim pOutError As ESB_OUTERROR_T
Object.hCtx = hCtx
Object.Type = ESB_OBJTYPE_OUTLINE
Object.AppName = "Sample"
Object.DbName = "Basic"
Object.FileName = "Basic"
sts = EsbOtlOpenOutline(hCtx, Object,
ESB_YES, ESB_YES, hOutline)
'body of code
If sts = 0 Then
sts = EsbOtlVerifyOutline(hOutline,
ulErrors, ulCount)
Do While sts = 0 And ulCount > 0
sts = EsbGetNextItem(hCtx,
ESB_OUTERROR_TYPE, pOutError)
ulCount = ulCount - 1
'do something with the error value
Loop
End If
End Sub