
PROC qcp$display_correction (
correction_identifier, ci: name = $required
output, o: file = $output
)


crev ignore k=status
crev check k=boolean v=FALSE
crev msg k=string



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

crev cb_path k=string v=':$SYSTEM.$SYSTEM.FIELD_MAINTENANCE.'
     cb_path = cb_path//$string($value(correction_identifier))//'.HEADER'
check = $file($fname(cb_path),permanent)

IF NOT check THEN
  putl ' ' o=$fname(ofile)
  putl '                   STOP '        o=$fname(ofile//'.$eoi')
  putl '     There is no information available relating'  o=$fname(ofile//'.$eoi')
  putl '     to correction '//$string($value(correction_identifier)) o=$fname(ofile//'.$eoi')
  putl ' '  o=$fname(ofile//'.$eoi')
  EXIT_PROC
IFEND

copf $fname(cb_path) $fname(ofile//'.$eoi')


PROCEND qcp$display_correction
