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

Products

• Librarian

Issue/Introduction

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

Resolution

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=hlq.mlq.CALIBR.MAST                
//OSJOB     DD DUMMY                                           
//SYSPUNCH  DD  SYSOUT=*                                     
//SYSPRINT  DD  SYSOUT=*                                     
//SYSIN     DD  *                                            
-SEL member,ARCLR=030101                                                
-END
/*