Hallo HS,
vielleicht eine Möglichkeit:
Sharing a tape device

Richard Cranston
28 Aug 2002, Rating 4.00 (out of 5)
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.


Code

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