Need to delete some of the archive levels of a member on a master file.

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

Description:

Need to delete archive levels of a member on a master file. Need to delete anything before 2003.

Solution:

Using the JCL below specify the member name in the -SEL and the date in ARCLR=YYMMDD. In the example below all archive levels will be delete that are older than 030101.

/STEP1       EXEC PGM=AFOLIBR,PARM='NJTA,NRJS'                     
//MASTER      DD DISP=SHR,DSN=ADASH01.JIM.MAST                
//OSJOB        DD DSN=your.arclr.file,DISP=(,CATLG),UNIT=SYSDA,                
//              SPACE=(TRK,(3,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000),  
//              VOL=SER=nnnnnn                                           
//SYSPUNCH  DD       SYSOUT=*                                     
//SYSPRINT   DD       SYSOUT=*                                     
//SYSIN        DD       *                                            
-SEL member,ARCLR=030101                                                
-END