
PROC makqcu_phase_5, makqcu5 (
qcu: name = $required
status )

"******************************************************************************
" This procedure creates a tape copy of the correction package.
"******************************************************************************

crev ignore k=status
crev qi k=string v=$string($value(qcu))
crev work k=string
crev wev$working_catalog k=string s=xref
crev cp_path k=string v='.'//$job(user)//'.'//$strrep(qi)//'_DF'
p1 = $substr(qi,5,2)
putl ' Generating QCU correction tape, VSN = '//$strrep(qi)
crev q_path k=string v=$strrep(qi)

work = 'REQMT $local.'//$strrep(q_path)//',t=mt9$6250,r=yes,evsn='
work=work//''''//$strrep(qi)//''''
incl work

work = 'BACPF l=$null bf= $local.'//$strrep(q_path)
work = work//'; BACF $user.'//$strrep(qi)//'_DF'
work = work//'; QUIT'

incl work

putl ''
putl ' Completed corrections tape '
putl ''

PROCEND makqcu_phase_5

