PROCEDURE dum$display_system_task_data, display_system_task_data, disstd (output, o: file = $output
 status)

" This procedures displays the system task table.
" This required RJT's enhanced dump analyzer.
" The system job must be selected to use this proc.
" If in anad use selajl 0, if in anas it must be done from the console.

 current = $default_module()
 chadm  osm$system_task_maint_113
 dispv system_task_table  o=output
 next_pointer = $pv(system_task_table)
 WHILE NOT $nil_pva(next_pointer) DO
   putl ' ------------------------------- ' o=output.$eoi
   dispv ?next_pointer.ost$system_task_table_entry o=output.$eoi
   next_pointer = $pv(?next_pointer.ost$system_task_table_entry.next_entry)
 WHILEND
 chadm $name(current)
PROCEND dum$display_system_task_data
