virtual savsys and CPIBC05

I'm trying to create a virtual savsys process (code below) and  I keep getting error CPIBC05 stopping the process.

We have 2 ASP's. 1 (250gb 25% capacity), 2 (750gb 2% capacity, encrypted).

I would like to perform this backup on asp 2 since there is more room there but not sure if this is the solution or how to do it.

Any suggestions?


Code:

ENDHOSTSVR *ALL
ENDTCPSVR *ALL
monmsg TCP1A77
ENDTCP
ENDSBS SBS(*ALL) OPTION(*IMMED) ENDSBSOPT(*NOJOBLOG)

callsubr crtdev

LODIMGCLG  IMGCLG(VIRTUALTAP) OPTION(*UNLOAD)
monmsg cpf0000

DLTIMGCLG  IMGCLG(VIRTUALTAP) KEEP(*NO) DEPIMGCLG(*DELETE)
monmsg cpf0000

CRTIMGCLG IMGCLG(VIRTUALTAP) DIR('/backup_savsys') TYPE(*TAP) CRTDIR(*YES)
ADDIMGCLGE VIRTUALTAP FROMFILE(*NEW) TOFILE(VOL001) IMGSIZ(250000) ALCSTG(*MIN) VOLNAM(VOL001)
LODIMGCLG IMGCLG(VIRTUALTAP) DEV(TAPVRT01)
retry:
SAVSYS DEV(TAPVRT01) ENDOPT(*LEAVE)
monmsg CPF3785 exec(do)
  dlyjob 30
  goto retry
enddo

ADDIMGCLGE VIRTUALTAP FROMFILE(*NEW) TOFILE(VOL002) IMGSIZ(250000) ALCSTG(*MIN) VOLNAM(VOL002)
LODIMGCLG IMGCLG(VIRTUALTAP) DEV(TAPVRT01)
SAVLIB LIB(*NONSYS) DEV(TAPVRT01) ACCPTH(*YES) ENDOPT(*LEAVE)

ADDIMGCLGE VIRTUALTAP FROMFILE(*NEW) TOFILE(VOL003) IMGSIZ(250000) ALCSTG(*MIN) VOLNAM(VOL003)
LODIMGCLG IMGCLG(VIRTUALTAP) DEV(TAPVRT01)
SAVDLO DLO(*ALL) DEV(TAPVRT01) ENDOPT(*LEAVE)

ADDIMGCLGE VIRTUALTAP FROMFILE(*NEW) TOFILE(VOL004) IMGSIZ(250000) ALCSTG(*MIN) VOLNAM(VOL004)
LODIMGCLG IMGCLG(VIRTUALTAP) DEV(TAPVRT01)
SAV DEV('/QSYS.LIB/TAPVRT01.DEVD') OBJ(('/*') ('/QSYS.LIB' *OMIT) ('/QDLS' *OMIT)) +
    SAVACT(*YES) SAVACTOPT(*ALL) ENDOPT(*UNLOAD) UPDHST(*YES)

/* STRSBS QCTL */

subr crtdev
  SNDPGMMSG  MSG('Processing: create tape') TOPGMQ(*PRV) TOMSGQ(*HSTLOG)
  VRYCFG CFGOBJ(TAPVRT01) CFGTYPE(*DEV) STATUS(*Off)
  monmsg cpf0000

  DLTDEVD DEVD(TAPVRT01)
  monmsg cpf0000

  CRTDEVTAP DEVD(TAPVRT01) RSRCNAME(*VRT)
  monmsg cpf0000

  VRYCFG CFGOBJ(TAPVRT01) CFGTYPE(*DEV) STATUS(*ON)
  monmsg cpf0000
endsubr