Is there a utility to punch out all members in a Librarian Master file

Products

• Librarian

Issue/Introduction

Need a way to punch out all members in a Master file without having to explicitly coding each member.  Can it be done?

Environment

 
 

Resolution

Yes, listed below is a VSE JCL example that uses the punch option.

 // JOB LIBGPO LIBRARIAN 
 // OPTION LOG 
 // ASSGN SYS008,DISK,VOL=volser,SHR 
 // DLBL JOBSTR,'librarian.workfile.JOBSTR' 
 // EXTENT SYS008,VSEWK8,1,0,reltrk,ntrks 
 // ASSGN SYS004,DISK,VOL=volser,SHR 
 /* FROM MASTER FILE 
 // DLBL MASTER,'librarian.master.file',,DA 
 // EXTENT SYS004,volser 
 // EXEC LIBRPROG 
 -OPT GPO 
 -OPT UTILITY 
 -PUNCH NAME= 
 -END 
 /* 
 // ASSGN SYS008,DISK,VOL=volser,SHR 
 // DLBL JOBSTR,'librarian.workfile.JOBSTR2' 
 // EXTENT SYS008,VSEWK8,1,0,reltrk,ntrks 
 /* DEFINE OUTPUT FILE - SEQ OR EVEN A TAPE. 
 // DLBL IJSYSPH,'librarian.output.SYSPUN' 
 // EXTENT SYSPCH,volser,1,0,reltrk,ntrks 
 // ASSGN SYSPCH,DISK,VOL=volser,SHR 
 /* FROM MASTER FILE 
 // ASSGN SYS004,DISK,VOL=volser,SHR 
 // DLBL MASTER,'librarian.master.file',,DA 
 // EXTENT SYS004,volser 
 /* INPUT FROM PREVIOUS STEP 
 // DLBL IJSYSIN,'librarian.workfile.JOBSTR'
 // EXTENT SYSIPT,volser 
 // ASSGN SYSIPT,DISK,VOL=volser,SHR 
 // EXEC LIBRPROG 
 /* 
  CLOSE SYSIPT,SYSRDR 
  CLOSE SYSPCH,00D 
/* 
/& 
* $$ EOJ