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

Products

• Librarian

Issue/Introduction

Is there a way to retrieve an older archived version of a member and route it directly to a PDS? 

Environment

Release 4.4 

Resolution

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.