.enable substitution
.ask ques Are you running on a privileged account
.ift ques .goto 10
;
; Please log onto a privileged account
;
/
.10:
.asks tap What device is the tape on
all 'tap'
.asks tapact What account are the sources on
.asks dsk What disk is the destination
.asks dskact What account
;
; Ignore errors from the *.hlb files
;
flx 'dsk''dskact'/rs='tap''tapact'*.*/do
flx 'dsk'[1,2]/rs='tap''tapact'*.hlb/im:512./do
pip [1,2]*.hlb/pr/fo/wo:r
.ask fcs Are you using FCSRES
.iff fcs .goto 20
pip edrsx.cmd;*/de
pip edrsx.cmd=edfcs.cmd/re
pip edrsx.odl;*/de
pip edrsx.odl=edfcs.odl/re
.20:
asn sy:=ob:
tkb @edrsx
.ask ques Did it build ok
.iff ques .goto 100
.asks act What account should the task be stored on <[1,54]>
.if act ne "" .goto 30
.sets act "[1,54]"
.30:
pip 'act'/nv/en=ed.tsk
pip 'act'ed.tsk/pu
pip 'act'*.*;1='act'ed.tsk/re
pip 'act'ed.tsk/pr/wo:r
pip ed.tsk;0/rm
ins 'act'ed
ins 'act'ed/task=...sed
.100: