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

  create_variable from_file kind=string

  set_file_attributes $value(to) fc=legible fp=scu fs=library rt=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_source_library
