EsbLROListObjects() retrieves a list of all objects linked to cells in the active database for a given user name and/or modification date.
EsbLROListObjects (hCtx, userName, listDate, PulCount) ByVal hCtx As Long ByVal userName As String ByVal listDate As Long ByVal PulCount As Integer
hCtx | Essbase API context handle. |
userName | A user name. If specified, returns a list of all objects last modified by the given user. |
listDate | A modification date. If specified, returns a list of all objects modified on or before the given date. The time is a Long representing the number of seconds since January 1, 1970. |
PulCount | Number of LRO catalog entries returned. |
If successful, returns ESB_STS_NOERR. Otherwise, returns an error code.
A call to this function requires read privileges (ESB_PRIV_READ) to the date cell or the active database.
Declare Function EsbLROListObjects Lib "esbapin" _ (ByVal hCtx As Long, ByVal userName As String, _ ByVal listDate As Long, PulCount As Integer) As Long Public Sub ESB_LROListObjects() Dim userName As String * ESB_USERNAMELEN Dim listDate As Long Dim Items As Integer Dim Desc As ESB_LRODESC_API_T Dim i As Integer Dim CutOffDate As Date Const ESB_REFERENCE_DATE = #1/1/70# userName = "admin" CutOffDate = #8/1/97# listDate = DateDiff("s", CutOffDate, _ ESB_REFERENCE_DATE) sts = EsbLROListObjects(hCtx, userName, _ listDate, Items) If sts = 0 Then For i = 1 To Items '******************************* '* Get the next LRO description '* item from the list '******************************* sts = EsbGetNextItem(hCtx, ESB_LRO_TYPE, Desc) Next i End If End Sub
LRO Constant and Structure Definitions
EsbGetNextItem()
EsbLROGetCatalog()
EsbLROGetMemberCombo()
EsbLROPurgeObjects()