How to get dataAreaId ?

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));
                }
            }
        }
    }
}