
PROC dum$dump_active_segment_table, dump_active_segment_table, dumast (output, o: file = ast)
 crev s status
 ast = $mem($sa(mmv$ast_p) 6)
 astel = $mem($sa(mmv$ast_p)+14 4)
 astl  = $mem($sa(mmv$ast_p)+6 4)/astel
 detf ast status=s
 setfa $value(output) pf=c op=$eoi
 dism ast astel o=$value(output) rc=astl
 setfa $value(output) op=$boi
 edif $value(output) o=$null
   d 'segment' a
   end
 PROCEND dum$dump_active_segment_table
