Copy Library File Gets Bad Archive Level in ELIPS.

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

Description:

Why when using the Librarian online COPY UTILITY to copy an entire Master file with an ARCLVL of -2 to a PDS, the data from ARCLVL -0 is copied. When a copy is done at an individual member the correct results are delivered.

Solution:

The Online Utility Copy ALL was never intended to copy lower level archive levels. This can only be done on an individual member basis. To copy all members with the -2 archive level, use batch to copy from a master file to a PDS.

The sample JCL is listed below:

//STEP1      EXEC PGM=AFOLIBR,PARM='NJTA,NRJS'
//STEPLIB    DD DSN=YOUR.XXXX.XXXX.CAILIB,DISP=SHR
//SYSPRINT   DD SYSOUT=*
//LIST       DD SYSOUT=*
//MASTER     DD DSN=YOUR.MASTER.FILE,DISP=SHR
//OSJOB      DD DSN=YOUR.PDS.DATASET,DISP=(,CATLG,DELETE),
//                   UNIT=3390,SPACE=(CYL,(5,1)),VOL=SER=XXXX,
//                   DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//SYSIN      DD *
-OPT GPO
-SEL NAME=,ARC=-2,EXEC(R)
-END
//
//STEP2      EXEC PGM=AFOLIBR,PARM='NJTA,NRJS'
//STEPLIB    DD DSN=YOUR.XXXX.XXXX.CAILIB,DISP=SHR
//MASTER     DD DSN=YOUR.MASTER.FILE,DISP=SHR
//SYSIN      DD DSN=YOUR.WORK.FILE,DISP=SHR
//SYSPRINT   DD SYSOUT=*
//OSJOB      DD DSN=YOUR.PDS.DATASET,DISP=SHR
//