PROCEDURE qcp$commit_base_system (
  set_flag, sf: boolean = true
  status)

VAR
  local_status: status
VAREND




    dsp$commit_new_system set_flag status=local_status
   putl ''
   putl '      The next deadstart will reinstate the base system'
   putl ''



PROCEND qcp$commit_base_system

