; @ECHO OFF
; IF %1!==! GOTO OOPS
; IF %2!==! GOTO OOPS
; c:\nbak400a\rst )c:\images\log\%1%2.log {s,g2,x,f%1,i=(25)} c:\images\log
; GOTO DONE
; 
; :OOPS
; ECHO Usage: %0 tape_name backup_set
; ECHO  where tape_name  = EU9501 (e.g.; whatever is on tape label)
; ECHO        backup_set = 1, 2, ...
; 
; :DONE
; ECHO ON
PRO nova_rst,tape,set

file=spc(12,char='_')
STRPUT,file,tape,0
STRPUT,file,STRING(set,FORMAT='(I2.2)'),6
STRPUT,file,'.BAT',8
com='c:\nbak400a\rst )c:\images\log\'
com=com+STRMID(file,0,9)+'log {s,g2,x,f'
com=com+STRTRIM(set,2)+',i=(25)} c:\images\log\*.*'
HELP,com
file='c:\batch\'+file
HELP,file
OPENW,lun,file,/GET_LUN
PRINTF,lun,com
FREE_LUN,lun
SPAWN,file
RETURN
END