local nLevel
update (m.cAlias) set LEVEL = 1 where empty(PARENT)
nLevel = 1
do while _tally > 0
   update (m.cAlias) ;
      set LEVEL = m.nLevel + 1 ;
      where PARENT in ( ;
         select DEPARTMENT from (m.cAlias) where LEVEL == m.nLevel  )
   nLevel = m.nLevel + 1
enddo