
PROC make_qcu_phase_10, makqcu10 (
qcu_ident, qi: name = $required
status )

putl ''
putl ' Establish Platform and Level environment'
putl ''
crev ignore k=status
crev wev$working_catalog k=string s=xref
crev qev$os_level k=string v= $string($value(qcu_ident)) s=xref
crev qev$release_level k=string s=xref
crev qev$release_date k=string v=$date(mdy) s=xref
crev qi k=string v=$string($value(qcu_ident))

crev pa_path k=string v='.'//$job(user)//'.'//$value(qcu_ident)//'_PA'
     pa_path = pa_path//'.NOSVE_MAINTENANCE'

crev pb_path k=string v='.'//$job(user)//'.'//$value(qcu_ident)//'_PB'
     pb_path = pb_path//'.NOSVE_MAINTENANCE'

crev e1_path k=string v='.'//$job(user)//'.'//$value(qcu_ident)//'_CF'
crev e2_path k=string v='.'//$job(user)//'.'//$value(qcu_ident)//'_QF'
crev e3_path k=string v='.'//$job(user)//'.'//$value(qcu_ident)//'_FC'
crev sc_path k=string v='.'//$job(user)//'.'//$value(qcu_ident)//'_SC'

"*************************************************************************
" Initialize the PACS catalogs (base and correction)
"*************************************************************************
  delcc $fname(pa_path) status=ignore
  delcc $fname(pb_path) status=ignore
  delf $fname(e1_path) status=ignore
  delf $fname(e2_path) status=ignore
  delcc $fname(e3_path) status=ignore
  delc $fname(e3_path) status=ignore



"*************************************************************************
" Go expand the raf$ product tables to identify the subproduct under
" construction.
"*************************************************************************

" Special case 1.4.2 until product table mods are incorporated
IF $substr(qi,2,3) = '727' THEN
  makqcu9,$value(qcu_ident)
  coms d=qcm$base_product_table sc=$fname(sc_path) l=$null
  makqcu9,$value(qcu_ident)
  coms d=qcm$qcu_product_table sc=$fname(sc_path)
ELSE
  makqcu9,$value(qcu_ident)
  coms d=qcm$base_product_table l=$null
  makqcu9,$value(qcu_ident)
  coms d=qcm$qcu_product_table  l=$null
IFEND

  delf $fname(sc_path) status=ignore


"*************************************************************************
" Go get rid of unnecessary libraries in qcf$ decks
"*************************************************************************
  makqcu6 $value(qcu_ident)


"*************************************************************************
" Go generate the base platform tables and the level tables
"*************************************************************************
  genpf $value(qcu_ident)
  genls $value(qcu_ident)




PROCEND make_qcu_phase_10
