
PROC qcm$validate_qcu_base, validate_qcu_base, valqcb (
qcu_ident, qi: name = $required
valid: VAR of boolean
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//'.$asis'


$value(valid) = FALSE
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,11,4) = $substr(qi,1,4) THEN
      " This is a valid QCU level
      $value(valid) = TRUE
    IFEND
  IFEND
 accl v=work i=$fname(temp) lc=count
WHILEND

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



PROCEND qcm$validate_qcu_base

