PROC qcm$validate_qcu (
qcu_ident, qi: name
status )

crev work k=string
crev count v=0
crev ignore k=status

crev qi k=string v=$string($value(qcu_ident))
crev path k=string v=':CSERV.CSERV.QCU'
crev temp k=string v=$unique
crev valid k=boolean v=FALSE


$value(status.normal) = TRUE
disc $fname(path) o=$fname(temp)
rewf $fname(temp) status=ignore

accl v=work i=$fname(temp) lc=count

WHILE count > 0 DO
  IF  $substr(work,2,8) = 'CATALOG:' THEN
    IF $substr(work,10,4) = $substr(qi,1,4) THEN
      " This is a valid QCU level
      valid = TRUE
    IFEND
  IFEND
 accl v=work i=$fname(temp) lc=count
WHILEND

delf $fname(path) status=ignore
delf $fname(temp) status=ignore


   IF NOT valid THEN
     $value(status.normal) = FALSE
   IFEND

PROCEND qcm$validate_qcu
