PROC makqcu_phase_2, makqcu2 (
qcu_ident           : name = $required
delivery_medium,  dm: boolean
no_pause, np : boolean
status )


crev ignore k=status
crev qi k=string v=$string($value(qcu_ident))
crev wev$working_catalog k=string s=xref
crev wev$build_level k=string s=xref
crev work k=string
crev count
crev qev$psr k=string s=xref



crev oc_path  k=string v='.'//$job(user)//'.'//$strrep(qi)//'_OC'
crev pack  k=string v='.'//$job(user)//'.'//$strrep(qi)//'_PL'
crev df_path  k=string v='.'//$job(user)//'.'//$strrep(qi)//'_DF'
crev pc_path  k=string v='.'//$job(user)//'.'//$strrep(qi)//'_FC'
crev pl_path  k=string v='.'//$job(user)//'.'//$strrep(qi)//'_OC.'
     pl_path = pl_path//'RAF$PACKING_LIST'

delcc $fname(oc_path) status=ignore
delc  $fname(oc_path) status=ignore
delf  $fname(df_path) status=ignore

crev ty_path k=string v=wev$development_base//'.OS.'
     ty_path = ty_path//wev$build_level//'.TYING'

incf $fname(ty_path)

putl ''
putl ' Building Repair Record'
putl ''
disv wev$release_level
PACS
   CREOD
     DEFINE_ORDER i=$value(qcu_ident) m=disk t=correction
        ADD_SUBPRODUCT  pc=$fname(pc_path)  l=wev$release_level
        WRITE_DEFINITION oc=$fname(oc_path)
     QUIT
   WRITE_ORDER oc=$fname(oc_path) df=$fname(df_path)

  putl ''
  putl ''
  putl ' The QCU attributes are:'
  putl ' '
   DISPLAY_PACKING_LIST $fname(pl_path)
   DISPLAY_PACKING_LIST $fname(pl_path) o=$fname(pack)
 QUIT


putl ''
IF NOT $value(no_pause) THEN
   putl ' Pause to review correction information. Please'
   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
      EXIT_PROC
  IFEND
IFEND

detf $fname(df_path) status=ignore
delcc $fname(oc_path) status=ignore
delc $fname(oc_path) status=ignore


makqcu3,$value(qcu_ident),$value(delivery_medium)


PROCEND makqcu_phase_2


