.DO TSU
.MOUNT TAPE:/REELID:TSU/READ/REMARK:"BB-V552B-SB IBMCOM/HASP V1"
.RUN BACKUP
*TAPE TAPE:
*INTERCHANGE
*PROTECT 055
*REWIND
*SKIP 1
*RESTORE IHSSYS:=*.*
*RESTORE IHSSRC:=*.*
*REWIND
*EXIT
.DISMOUNT TAPE:
.MOUNT TAPE2:/REELID:TSU/READ/REMARK:"BB-PANHA-BB IBMCOM HASP KEYS"
.RUN BACKUP
*TAPE TAPE2:
*INTERCHANGE
*PROTECT 055
*REWIND
*SKIP 1
*RESTORE IHSSYS:=IHSSYS.KEY
*RESTORE IHSSRC:=IHSSRC.KEY
*REWIND
*EXIT
.DISMOUNT TAPE2: