How to retrieve an older archived level of a member and route it directly to a PDS.

Document ID : KB000056553
Last Modified Date : 14/02/2018
Show Technical Document Details

To retrieve an older archived member and route it directly to a PDS use the -OPT Utility. The JCL listed below is a two-step process.

//STEP1    EXEC PGM=AFOLIBR,PARM='NJTA,NRJS'
//SYSPRINT DD SYSOUT=*
//MASTER   DD DISP=SHR,DSN=YOUR.LIBRARIAN.MASTERFILE
//INDEX    DD SYSOUT=*
//OSJOB    DD DSN=&&UTI,DISP=(,PASS),UNIT=SYSDA,
//       SPACE=(CYL,(1,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//SYSIN    DD  *
-OPT UTILITY
-SEL member,EXEC,ARC=-n
-END
//STEP2    EXEC PGM=AFOLIBR,PARM='NJTA,NRJS'
//SYSPRINT DD SYSOUT=*
//MASTER   DD DISP=SHR,DSN=YOUR.LIBRARIAN.MASTERFILE
//OSJOB    DD DISP=SHR,DSN=YOUR.PDS.LIBRARY
//SYSIN    DD DISP=OLD,DSN=&&UTI
//

For more information on using the -OPT UTILITY and the -SEL statement please refer to Chapter 3 - Control Commands in the Batch Command Reference Guide.