
PROCEDURE qcp$establish_deadstart_catalog (
  status)

  VAR
    local_status: status
    ignore_status: status
  VAREND

  WHEN any_fault DO
    put_line l=' Establish Correction System failed with:'
    put_line l=$string(osv$status)
    EXIT PROCEDURE WITH osv$status
  WHENEND
   move_ds_catalog  status=local_status

  EXIT PROCEDURE WITH local_status
PROCEND qcp$establish_deadstart_catalog

