mooAllStat

Opens the status of all dimensions within the currently attached Analytic Workspace.

Syntax

mooAllStat

Return Value

BOOLEAN

Example

Public Sub mooAllstat()

'Limits all dimensions in the current AW to all

Dim boo As Boolean

If Not oregistered Then: boo = regQ:

'Check Im connected if not connect

If Not o.connected Then

boo = o.connect

Else

boo = True

End If

'Connected so execute

If boo = True Then

boo = o.mooAwAttach("EXPRESS", "FIRST")

boo = o.wrap_runNonQ("lmt INTL.MLANG to 1")

Debug.Print o.mooStatlen("INTL.MLANG")

boo = o.mooAllstat

Debug.Print o.mooStatlen("INTL.MLANG")

Else

'Something went wrong print any error information

Debug.Print "Unable to Connect"

Debug.Print o.getlastmooerr

End If