Need a way to punch out all members in a Master file without having to explicitly coding each member. Can it be done?
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