Re: virtual savsys and CPIBC05

[DrFranken <midrange@xxxxxxxxxxxx>]

Nocando boss.

Can't run a SAVSYS to a virtual tape. Virtual optical yes, not tape.

        - Larry "DrFranken" Bolhuis

www.Frankeni.com
www.iDevCloud.com - Personal Development IBM i timeshare service.
www.iInTheCloud.com - Commercial IBM i Cloud Hosting.

On 4/13/2020 12:02 PM, iseriesstuff wrote:
> 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