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