How to copy members from BKUPTAPE file to PO file by using -OPT GPO.
Release : ALL
Can not copy members directly from BKUPTAPE file to PO file.
So, have to copy members to the PO file via Temporary master file.
The following is a sample JCL.
//STEP01 EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//STEPLIB DD DISP=SHR,DSN=Prefix.libr.CALJLINK
//SYSPRINT DD SYSOUT=*
//MASTIN DD DISP=SHR,DSN=User.libr.master.bkup
//OSJOB DD DISP=(,PASS),DSN=&&Sysin.temp1,UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSAF01 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSAF02 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSIN DD *
-OPT GPO
-COPY UPDA=101519
-END
/*
//*
//STEP02 EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//STEPLIB DD DISP=SHR,DSN=Prefix.libr.CALJLINK
//SYSPRINT DD SYSOUT=*
//MASTIN DD DISP=SHR,DSN=User.libr.master.bkup
//OSJOB DD DISP=(,PASS),DSN=&&Sysin.temp2,UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSAF01 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSAF02 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSIN DD *
-OPT UTILITY
// DD DISP=(OLD,DELETE),DSN=&&Sysin.temp1
/*
//*
//STEP03 EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//STEPLIB DD DISP=SHR,DSN=Prefix.libr.CALJLINK
//SYSPRINT DD SYSOUT=*
//MASTER DD DISP=(,PASS),DSN=&&User.libr.master.temp,SPACE=(CYL,(1)),
// UNIT=SYSDA,VOL=SER=work01,DCB=(BLKSIZE=9040,DSORG=DA)
//OSJOB DD DUMMY
//SYSIN DD *
-OPT INIT,DISK,ARC=10,SEQ=/81,6,10,10/
-END
/*
//*
//STEP04 EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//STEPLIB DD DISP=SHR,DSN=Prefix.libr.CALJLINK
//SYSPRINT DD SYSOUT=*
//MASTER DD DISP=(OLD,PASS),DSN=&&User.libr.master.temp
//OSJOB DD DUMMY
//SYSIN DD DISP=(OLD,DELETE),DSN=&&Sysin.temp2
/*
//*
//STEP05 EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//STEPLIB DD DISP=SHR,DSN=Prefix.libr.CALJLINK
//SYSPRINT DD SYSOUT=*
//MASTER DD DISP=(OLD,DELETE),DSN=&&User.libr.master.temp,
//OSJOB DD DISP=(,PASS),DSN=&&OSJOB,UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSIN DD *
-OPT GPO
-SEL NAME=,EXEC(R)
-END
/*
//STEP06 EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//STEPLIB DD DISP=SHR,DSN=Prefix.libr.CALJLINK
//SYSPRINT DD SYSOUT=*
//MASTER DD DISP=(OLD,DELETE),DSN=&&User.libr.master.temp
//OSJOB DD DISP=(NEW,CATLG,DELETE),DSN=User.po.file,
// UNIT=SYSDA,SPACE=(TRK,(5,5,10),RLSE),
// DCB=(DSORG=PO,LRECL=80,BLKSIZE=3120,RECFM=FB)
//SYSIN DD DSN=&&OSJOB,DISP=(OLD,DELETE)
//