How do I delete an archive version of a member on a master file?

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

Description:

Need to delete an archive level of a member off a master file.

Solution:

Using the SAMPLEJCL below specifying ARC= level that needs to be deleted.

 //STEP1      EXEC PGM=AFOLIBR, PARM='NJTA, NRJS?         
 //MASTER     DD       DSN=your.master.file,DISP=SHR    
 //OSJOB       DD       DUMMY                             
 //INDEX       DD       SYSOUT=*                          
 //SYSPUNCH DD       SYSOUT=*                          
 //SYSPRINT  DD       SYSOUT=*                          
 //SYSIN       DD       *                                 
 -OPT UTILITY                                              
 -DLM member,ARC=-1                                       
 -END