
PROC make_qcu_phase_9, makqcu9 (
qcu_ident, q: name = $required
status )


"******************************************************************************
"*******************************************************************************
crev count  v=1
crev work k=string
crev ignore k=status
crev qi k=string v=$string($value(qcu_ident))
crev wev$working_catalog k=string s=xref

" Special case 1.4.2 until product table mods are incorporated
IF $substr(qi,2,3) = '716' THEN
 EXIT_PROC
IFEND

crev sc_path k=string v='.'//$job(user)//'.'//$strrep(qi)//'_SC'
crev wv_path k=string v=wev$working_catalog//'.wef$feature_list'

detf $fname(sc_path) status=ignore
delf $fname(sc_path) status=ignore
attf $fname(wv_path) status=ignore

copf $fname(wv_path) $fname(sc_path) status=ignore


putl 'INCM SCW_7069' o=$fname(sc_path//'.$EOI')
putl 'INCM SCW_7078' o=$fname(sc_path//'.$EOI')



detf $fname(sc_path) status=ignore
detf $fname(wv_path) status=ignore


PROCEND make_qcu_phase_9
