Universe integrity check using VBA macro for objects

Hi All,

I hope all are doing good. I am working in DWH which is having Universe. As per our release process, every month we create and modify # of objects in Universe. before moving this change to production we perform testing in development and staging phase.

This testing mainly include parsing of the objects. Since this is a manual activity and take lots of time to verify the objects, we have written VBA macro code to automate this activity.

I have created small test Universe (with around 50 objects) to test this macro and was working fine and given result in 2-3 mins.

however when I tried to run the same macro in actual universe, it is taking long time. Universe contains aroung 750 objects.

I understand since the universe is having quite more # of objects hence taking time.

I would like to know if I could run the macro for only set of objects or for only set of buckets in order to get faster result and can avoid to check entire Universe.

The code which I am using is given below:

Function Check_Integrity(Univ) As Integer

   Dim Universe As Designer.Universe

   Dim Check_Object As Designer.CheckedItem

   Dim Check_Structure As Designer.CheckedItem

   Dim Check_Objects As Designer.CheckedItems

   Dim Check_Structures As Designer.CheckedItems

   Dim i As Integer

   Set Universe = Univ

   ' Integrity test for objects

      ' Objets

      Set Check_Objects = Universe.CheckIntegrity(dsCheckObject, dsCheckThoroughParsing)

      For Each Check_Object In Check_Objects

        If Not IsNull(Check_Object.CheckError) Then

            Insert_Message Rownum, "Objets", Check_Object.CheckErrorDescription   ' function to output result in excel

            Rownum = Rownum + 1

         End If

      Next Check_Object

end sub

Any help with this will be extreamly appreciated and helpful

Thanks in Advance

Ajay (ASE)

TCS, Mumbai