mooPopDims("[object name]")


Executes a POP of an Oracle OLAP Dimension if the dimension exists.


Syntax


               mooPopDims("[object name]")



Return Value


               BOOLEAN


Example


Public Sub mooPushMooPopExample()

'Example Using mooPush mooPop and mooStatlen


Dim boo As Boolean


If Not oregistered Then:   boo = regQ:


'Check Im connected if not connect

If Not o.connected Then

   boo = o.connect

   boo = o.connected

   Else

   boo = True

End If


'Connected so execute

If boo = True Then

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

   'show the current length of the INTL.MLANG dimension

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

   'push the dimension

   boo = o.mooPushDims("INTL.MLANG")

   'limit INTL.MLANG dimension to 1 value                    

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

   'show the current length of the INTL.MLANG dimension    

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

   'pop the dimension

   boo = o.mooPopDims("INTL.MLANG")                        

   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


End Sub