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

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

book

Article ID: 96863

calendar_today

Updated On:

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