Re: [SYS21] FW: Media errors on Magstar tape backup

Hey, Art. Just read your note about using the DSPOBJD command to handle the
CPF5349 media error that's killing your unattended backup. That idea will
work!

Here's a sample of the code you need (nothing fancy)...

            DSPOBJD OBJ(OSLFILES) OBJTYPE(*LIB) OUTPUT(*OUTFILE)
OUTFILE(QTEMP/QADSPOBJ) OUTMBR(*FIRST *REPLACE)

READ:       RCVF  DEV(QADSPOBJ) RCDFMT(QLIDOBJD)
            MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF))

SAVE:       SAVLIB LIB(&ODLBNM) DEV(TAP02) ENDOPT(*LEAVE)
            MONMSG MSGID(CPF5349) EXEC(GOTO CMDLBL(EJECT_TAPE))

            GOTO CMDLBL(READ)

EOF:        CHKTAP DEV(TAP02) VOL(*MOUNTED) ENDOPT(*UNLOAD)

            GOTO CMDLBL(END_PROGRAM)

EJECT_TAPE: CHKTAP DEV(TAP02) VOL(*MOUNTED) ENDOPT(*UNLOAD)

            GOTO CMDLBL(SAVE)

Is it worth doing? In my opinion, yes. Backups are like insurance - you
hope you'll never need to use them, but you'll sure be glad, if you do.

Good luck.