PROC delete_catalog_contents, delcc (
  catalog, c : file = $required
  status     : var of status = $optional
  )

  $system.delete_catalog catalog=$value(catalog) delete_option=contents_only

PROCEND delete_catalog_contents
