PROCEDURE dum$display_deadstart_phase, display_deadstart_phase, disdp (
  output, o: file = $output
  status)

  crev osv$ string d=0..2
  osv$(0) = 'INSTALLATION'
  osv$(1) = 'RECOVERY'
  osv$(2) = 'NORMAL'

  os_phase = $mem($sa(osv$deadstart_phase), 1)

  crev s status
  unique = $unique
  temp = '$local.'//unique//'.$eoi'
  tempboi = '$local.'//unique//'.$boi'
  detach_file $fname(temp) status=s

  putl '  osv$deadstart_phase = '//osv$(os_phase) o=$fname(temp)

  copy_file $fname(tempboi) $value(output)

  detach_file $fname(temp) status=s

PROCEND dum$display_deadstart_phase
