Option Explicit
ValidationMode = True
InteractiveMode = im_Batch

Dim level

' get the current active model
Dim mdl ' the current model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
   MsgBox "There is no Active Model"
Else
   level = -1
   ListPackages(mdl)
End If

'-----------------------------------------------------------------------------
' Sub procedure to recursively find all packages in the current model
'-----------------------------------------------------------------------------
Private Sub ListPackages(fldr)
   level = level + 1
   output Space(2*level) & fldr.Name & "  " & fldr.ObjectType
   ListTables fldr
   ' go into the sub-packages
   Dim f ' running folder
   For Each f In fldr.Packages
      'calling sub procedure to scan children package
      ListPackages f
   Next
   level = level -1
End Sub

'-----------------------------------------------------------------------------
' Sub procedure to find all tables in the current model
'-----------------------------------------------------------------------------
Private Sub ListTables(pck)
Dim tbl
Dim col
   For Each tbl In pck.Children
    If  tbl.IsKindOf(PdPDM.cls_Table) Then
'      output Space(2*(level+1)) & "Found table " + tbl.Name
     For Each col In tbl.Columns
'      output Space(2*(level+2)) & "Columns: " + col.Name     
      col.DataType = LCase(col.DataType)
     Next 
    End If
    Set col = Nothing ' free memory   
   Next
' Refresh the view
Set tbl = Nothing ' free memory   
End Sub