About member copy from BKUPTAPE file to PO file

Products

• Librarian

Issue/Introduction

How to copy members from BKUPTAPE file to PO file by using -OPT GPO.

Environment

Release : ALL

Resolution

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)
//