How to iterate through all tables and look at their properties

This job runs through all tables in the application and displays a couple of properties:

 static void TableGroup(Args _args)
{    
   Dictionary  dictionary = new Dictionary();    
   DictTable   dictTable;    
   ;   
   dictTable = dictionary.tableObject(dictionary.tableNext(0));
   
   while (dictTable)    
   {        
      info(strFmt("%1: %2", dictTable.name(), dictTable.tableGroup()));        
      dictTable = dictionary.tableObject(dictionary.tableNext(dictTable.id()));    
   }
}

This posting is provided "AS IS" with no warranties, and confers no rights.