
PROC make_qcu_phase_12, makqcu12 (
     check, c: VAR of boolean
     status )

crev work k=string
crev count
$value(check) = TRUE

"***********************************************************************
" This procedure provides help information
"***********************************************************************

putl '-'
putl '     MAKQCU uses the output produced by the COMS procedure'
putl '     to generates a binary code correction set suitable for    '
putl '     transmitting electronically via various link methods.  '
putl ' '
putl '     The binary correction set produced is moved to files in'
putl '     the user catalog of :CSERV.ARHOPS on system ORANGE and'
putl '     it is also moved to :DSB.SERVICE on system SYSTEMB for'
putl '     access by external customers. '
putl ''
putl '     The requirments of this procedure are that the   '
putl '     working environment be established in terms of    '
putl '     build level and working catalog and that the features  '
putl '     making up the QCU have been compiled. The MAKQCU    '
putl '     performs its own link.'



putl ''
putl ' Enter QUIT if you do not wish to continue'
putl '        else, NEXT/RETURN'
accl v=work p='   ' i=input lc=count
  IF $TRANSLATE(LTU,$substr(work,1,1)) = 'Q' THEN
      $value(check) = FALSE
  IFEND


PROCEND make_qcu_phase_12
