Problem solve Get help with specific problems with your technologies, process and projects.

Sharing a tape device

Share a common tape device.

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.

Dig Deeper on iSeries CL programming

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close