Copyright 2004 Ray Ontko & Co.  All rights reserved.


!------------------------------------------------------------------------
begin-program
show 'Tom''s children'
do get_children('Tom')
end-program

!------------------------------------------------------------------------
begin-procedure get_children($parent)

add 1 to #_level

begin-select
parent
child
child_order
  let $prefix = rpad(' ', #_level * 2, ' ')
  show &parent $prefix &child '  ' &child_order
  do get_children(&child)
from recurse
where parent = $parent
order by child_order
end-select

subtract 1 from #_level
   
end-procedure get_children