

PROCEDURE qcp$commit_system (
  set_flag, sf: boolean = true
  output, o: file = $output
  status)

VAR
  local_status: status
  ignore: status
VAREND


      IF $file($value(output) open_position) = '$BOI' THEN
        rewind_file $value(output) status=ignore
        ofile = $string($value(output))//'.$ASIS'
      ELSE
        ofile = $string($value(output))
      IFEND

  IF NOT $job(system) THEN
    putl '                   STOP ' o=$fname(ofile)
    putl '    The command COMMIT_CORRECTION_SYSTEM must' o=$fname(ofile)
    putl '    be initiated from a system job.'           o=$fname(ofile)
    putl ' '                                             o=$fname(ofile)
    EXIT_PROC
  IFEND


  crev qcu_base k=string v='$SYSTEM.QCU_MAINTENANCE'
  crev df_path  k=string v='$SYSTEM.QCU_MAINTENANCE.LINK_INPUT_FILES'
  crev qcu_id   k=string v='$SYSTEM.QCU_MAINTENANCE.IDENTIFICATION'
  crev work k=string
   accl work i=$fname(qcu_id)
    al = $size(work)
    qcu_base = qcu_base//'.'//$substr(work,1,al)

      IF NOT $file($fname(qcu_base),catalog) THEN
       putl '               STOP ' o=$fname(ofile//'.$eoi')
       putl '      It is necessary to invoke the commands' o=$fname(ofile//'.$eoi')
       putl '      Generate_Correction_System and Establish_' o=$fname(ofile//'.$eoi')
       putl '      Correction_System prior to calling'        o=$fname(ofile//'.$eoi')
       putl '      Commit_Correction_System.'                 o=$fname(ofile//'.$eoi')
       putl ' '                                               o=$fname(ofile//'.$eoi')
       EXIT_PROC
      IFEND

    dsp$commit_new_system set_flag status=local_status





PROCEND qcp$commit_system
