I have two iSeries' that share a common tape device. I modified each backup program to call my CLP utility program that checks the local system tape status, and if there are errors will vary off the remote tape and then varies on the local tape. Currently, this simple code contains hardcoded values. You will need to change the tape device name, iSeries IP address and password. Use compile option ALWRTVSRC(*NO); then edit out the password after compiling.
PGM CHKTAP DEV(TAP01) MONMSG MSGID(CPF6760) EXEC(GOTO CMDLBL(ENDJOB))/* Device not ready */ /* Cannot allocate device or Not able to allocate object */ MONMSG MSGID(CPF6718 CPF5729) EXEC(DO) RUNRMTCMD CMD('VRYCFG CFGOBJ(TAP01)+ CFGTYPE(*DEV)STATUS(*OFF)') + RMTLOCNAME('100.101.150.20' *IP) + RMTUSER(QSYSOPR) RMTPWD(XXXXXX) MONMSG MSGID(CPF0000) ENDDO DLYJOB JOB(30) VRYCFG CFGOBJ(TAP01) CFGTYPE(*DEV) + STATUS(*ON) MONMSG MSGID(CPF0000) ENDPGM
MORE INFORMATION ON THIS TOPIC
The Best Web Links: tips, tutorials and more.
Ask your programming questions--or help out your peers by answering them--in our live discussion forums.
Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.