Change Company in ax 2009

static void DataDic_ChangeCompany(Args _args)
{
         DataArea dataArea;
         CustTable custTable;
         ;
         while select dataArea
        {
             if (!dataArea.isVirtual)
            {
                     info(strfmt("Company: %1", dataArea.id));
                      changeCompany(dataArea.id)
                     {
                        custTable = null;
                        while select custTable
                         {
                              info(strfmt("%1, %2", custTable.dataAreaId, custTable.accountNum));
                          }
                      }
             }
         }
}