PROC display_working_catalog, diswc (
  output, o : file = $output
  status    : var of status = $optional
  )

  display_value v=$catalog o=$value(o)

PROCEND display_working_catalog
