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

  create_variable from_file kind=string

  set_file_attributes $value(to) file_contents=object file_structure=library 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=$value(to) from=$name(from_file) data_conversion=b56 user=$value(user)
  ELSE
    get_file to=$value(to) from=$name(from_file) data_conversion=b56
  IFEND

PROCEND get_object_library
