.NOERROR
.DEL FAILSA.CMD
.ERROR
.RUN DTAPE
*MOUNT
*FAILSA
*DPSOR
*-3
*0
*OUTPUT
*DPBAK
*EXIT
.MOUNT @FAILSA.CMD
.R FAILSA
*/W
*/U
*/U
*/U
*/W
^C
.DIRECT TTY:=FAILSA:/SLOW/TITLES
.UNLOAD FAILSA:
.RUN DTAPE
*REPORT
*CATALOG
*DPSOR
*-3
*-1
*EXIT
;********** NO RUNNING OF DTAPE SHOULD BE ALLOWED ********************
;********** WHILE ISAM IS PACKING AND RE-BUILDING DTAPE.VID **********
.R ISAM
*DTAPE.SEQ=DTAPE.IDX/P
*ASCII
*0
^C
.R ISAM
*DTAPE.IDX,DTAPE.VID=DTAPE.SEQ/B
*ASCII
*SIXBIT
*66
*X1.10
*0
*10
*5
*100
*50
*50
*50
*1000
^C
%FIN::
.NOERROR
.Q LPT:=DTAPE.LPT/LIMIT:50/COPIES:3/DIS:DEL
.DEL DLIST.LOG
.SUB DLIST.CTP/TIME:15:00
.DEL FAILSA.CMD,DTAPE.SEQ