mooFreePages

Reports the FREEPAGES of the current analytic workspace. If no analytic workspace is attached zero will be returned.

Syntax

mooFreePages()

Return Value

STRING

Example

Public Sub mooFreePages()

'Shows the freepages of the current AW

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")

Debug.Print o.mooFreePages()

Else

'Something went wrong print any error information

Debug.Print "Unable to Connect"

Debug.Print o.getlastmooerr

End If

End Sub