Is there a utility to punch out all members at once

Document ID : KB000096863
Last Modified Date : 18/05/2018
Show Technical Document Details
Question:
Librarian V4.1 on z/VSE - rel 5.2 - Is there a utility to punch out all members at once?
Environment:
Librarian V4.1
OS - z/VSE 5.2
Answer:
Yes, listed below is a VSE JCL example that uses the punch option.
VSEJOBCARD 
 // JOB LIBGPO LIBRARIAN 
 // OPTION LOG 
 // ASSGN SYS008,DISK,VOL=VSEWK8,SHR 
 // DLBL JOBSTR,'LIBR.CHIWA01.JOBSTR' 
 // EXTENT SYS008,VSEWK8,1,0,850,20 
 // ASSGN SYS004,DISK,VOL=VSEWK8,SHR 
 * FROM MASTER FILE 
 // DLBL MASTER,'LIBR.CHIWA01.CHITEST',,DA 
 // EXTENT SYS004,VSEWK8 
 // EXEC LIBRPROG 
 -OPT GPO 
 -OPT UTILITY 
 -PUNCH NAME= 
 -END 
 /* 
 // ASSGN SYS008,DISK,VOL=VSEWK8,SHR 
 // DLBL JOBSTR,'LIBR.CHIWA01.JOBSTR2' 
 // EXTENT SYS008,VSEWK8,1,0,870,20 
  * DEFINE TO FILE - SEQ OR EVEN A TAPE. 
 // DLBL IJSYSPH,'LIBR.CHIWA01.SYSPUN2' 
 // EXTENT SYSPCH,VSEWK6,1,0,691,208 
 // ASSGN SYSPCH,DISK,VOL=VSEWK6,SHR 
   * FROM MASTER FILE 
 // ASSGN SYS004,DISK,VOL=VSEWK8,SHR 
 // DLBL MASTER,'LIBR.CHIWA01.CHITEST',,DA 
 // EXTENT SYS004,VSEWK8 
   /* INPUT FROM PREVIOUS STEP 
 // DLBL IJSYSIN,'LIBR.CHIWA01.JOBSTR' 
 // EXTENT SYSIPT,VSEWK8 
 // ASSGN SYSIPT,DISK,VOL=VSEWK8,SHR 
 // EXEC LIBRPROG 
 /* 
  CLOSE SYSIPT,SYSRDR 
  CLOSE SYSPCH,00D 
/* 
/& 
* $$ EOJ