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

My experience with magstar has been in loads the next tape as soon as you
unload one.
Art Heffner

-----Original Message-----
From: Jeff_Klipa/Harvard@xxxxxxxxxxxxxx
[mailto:Jeff_Klipa/Harvard@xxxxxxxxxxxxxx]
Sent: Friday, February 21, 2003 10:16 AM
To: CN=GEAC/O=JBA System 21 Users
Subject: Re: [SYS21] FW: Media errors on Magstar tape backup


That's kinda what I had in mind...
My question is - if the media error is encountered how does the system load
the
next tape...?
Is operator intervention required or will the Magstar 'know' enough to grab
the
next available tape and mount it...?








ALlanes@xxxxxxxxxxxxx on 02/21/2003 10:20:29 AM

Please respond to "GEAC/JBA System 21 Users" <jbausers-l@xxxxxxxxxxxx>
                                                              
                                                              
                                                              
  To:          GEAC/JBA System 21 Users                       
               <jbausers-l@xxxxxxxxxxxx>                      
                                                              
  cc:          (bcc: Jeff Klipa/Harvard)                      
                                                              
                                                              
                                                              
  Subject      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.



_______________________________________________
This is the GEAC/JBA System 21 Users (JBAUSERS-L) mailing list
To post a message email: JBAUSERS-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/jbausers-l
or email: JBAUSERS-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/jbausers-l.




_______________________________________________
This is the GEAC/JBA System 21 Users (JBAUSERS-L) mailing list
To post a message email: JBAUSERS-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/jbausers-l
or email: JBAUSERS-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/jbausers-l.