PROC convert_object_file, conof (
  to, t: file = $required
  from, f: name
  user, u: name
  status)

  create_variable check kind=status
  create_variable ignore kind=status
  create_variable scratch kind=string value=$unique
  create_variable from_file kind=string

  set_file_attributes $value(to) file_contents=object file_structure=data record_type=undefined

  IF $specified(from) THEN
    from_file = $string($value(from))
  ELSE
    from_file = $path($value(to) last)
  IFEND

  IF $specified(user) THEN
    get_file to=$fname(scratch) from=$name(from_file) data_conversion=b60 user=$value(user)
  ELSE
    get_file to=$fname(scratch) from=$name(from_file) data_conversion=b60
  IFEND

  convert_ci_to_ii $fname(scratch) $value(to) status=check

  detach_file $fname(scratch) status=ignore
  EXIT_PROC WITH check

PROCEND convert_object_file
