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