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