How to copy the -1 & -2 versions of Librarian Master file members to a pds

Products

• Librarian

Issue/Introduction

Trying to copy in Elips a small master file and would only like the -1 & -2 versions to be copied over to a pds. Would like to do all members and not have to specify each name.

 

Environment

Release: 4.4
 

Resolution

There is no way to do this in the ELIPS interface. It must be done in batch.

Use the following batch JCL to accomplish this -

//STEP1         EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'                  
//SYSPRINT      DD SYSOUT=*                                         
//MASTER        DD DSN=user.master.file,DISP=SHR                   
//OSJOB         DD DSN=&&GPO,DISP=(,PASS),UNIT=SYSDA,               
//              SPACE=(CYL,(1,1)),                                 
//              DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)                
//SYSIN DD *                                                       
-OPT GPO,SKIPERR        <== skiperr in case arc level does not exist     
-SEL NAME=,EXEC,ARC=-n  <== n will change for each different arclvl            
-END     
//STEP2         EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'                
//SYSPRINT      DD SYSOUT=*                                       
//MASTER        DD DSN=user.master.file,DISP=SHR                 
//OSJOB         DD DSN=user.work.pds,DISP=SHR                
//SYSIN         DD DSN=&&GPO,DISP=(OLD,PASS)
/*

The job must be run twice.  The first job will copy the -1 version of all the members on the Master file to a PDS or PDSE. The JCL should be changed to copy all the -2 version to a different PDS or PDSE then what was specified in the first job.