.DO TSU
.MOUNT TAPE:/REELID:TSU/READ/REMARK:"BB-J992D-SB IBMCOM/ET V4"
.RUN BACKUP
*TAPE TAPE:
*INTERCHANGE
*PROTECT 055
*REWIND
*SKIP 1
*RESTORE IETSYS:=*.*
*RESTORE IETSRC:=*.*
*REWIND
*EXIT
.DISMOUNT TAPE:
.MOUNT TAPE2:/REELID:TSU/READ/REMARK:"BB-PANJA-BB IBMCOM ET KEYS"
.RUN BACKUP
*TAPE TAPE2:
*INTERCHANGE
*PROTECT 055
*REWIND
*SKIP 1
*RESTORE IETSYS:=IETSYS.KEY
*RESTORE IETSRC:=IETSRC.KEY
*REWIND
*EXIT
.DISMOUNT TAPE2: