The below REXX [from one of the dino sites, forgot which one] does the job.
Can even be used as an "action" against a given PDS on the DSLIST panel.
/* REXX */
/* DELETE ALL MEMBERS OF A GIVEN LIBRARY DSN */
TRACE 'N'
/* TRACE 'R' */
/* TRACE 'O' */
PARSE UPPER ARG DSNAME
DSN = STRIP(DSNAME, 'BOTH', '''') /* IN CASE IT'S IN QUOTES */
QUOTE = "'"
QDSN = QUOTE||DSN||QUOTE /* FULLY QUOTED DSN */
ADDRESS ISPEXEC
"LMINIT DATAID( MYDATAID) DATASET(" QDSN ") ENQ(SHRW)"
"LMOPEN DATAID("MYDATAID") OPTION(OUTPUT)"
"LMMDEL DATAID("MYDATAID") MEMBER(*)"
"LMCLOSE DATAID("MYDATAID")"
"LMFREE DATAID("MYDATAID")"
SAY DSN " IS NOW EMPTY"
EXIT
HTH,
-Victor-
On Tue, 19 Jan 2010 16:45:33 -0800, John Mattson
<[email protected]> wrote:
>Some folks have asked about how to delete all members from a PDS without
>deleting the PDS. I just stumbled across this while doing a receive from
>ServerPac CPP. I noticed this REXX in and amongst the JCL.
>SCPPCENU(CPPEDELM) Everyone who has used CPP should have a copy. Its
only
>about 100 lines of nicely written and documented REXX.
> Below is the basic JCL, of course you need your LOCAL ISPF/TSO
>data sets as in your logon proc...
>
>//DELMEM EXEC PGM=IKJEFT1B,COND=(4000,LT)
>//*
***********************************************************
***
>//* * DELETE ALL MEMBERS OF MASTER DIALOG DATA SETS *
>//* * (EXCEPT SCPPTENU) *
>//*
***********************************************************
***
>//SYSEXEC DD DISP=SHR,DSN=MSYS.ZOS111.OS120544.SCPPCENU
>//SYSPROC DD DISP=SHR,DSN=MSYS.ZOS111.OS120544.SCPPCENU
>//ISPMLIB DD DISP=SHR,DSN=MSYS.ZOS111.OS120544.SCPPMENU
>//ISPPLIB DD DISP=SHR,DSN=MSYS.ZOS111.OS120544.SCPPPENU
>//ISPSLIB DD DISP=SHR,DSN=MSYS.ZOS111.OS120544.SCPPSENU
>//ISPLLIB DD DISP=SHR,DSN=MSYS.ZOS111.OS120544.SCPPLOAD
>//ISPTLIB DD DISP=SHR,DSN=MSYS.ZOS111.OS120544.SCPPTENU
>//ISPPROF DD UNIT=SYSALLDA,DISP=(NEW,DELETE),
>// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB),
>// SPACE=(CYL,(1,1,1))
>//SYSTSPRT DD SYSOUT=*
>//SYSPRINT DD SYSOUT=*
>//SYSTSIN DD *
> PROFILE PREFIX(AFITSUP)
> ISPSTART CMD(CPPEDELM)
>//SYSIN DD *
>MSYS.CPP.D091130.SCPPCENU
>MSYS.CPP.D091130.SCPPLOAD
>MSYS.CPP.D091130.SCPPMENU
>MSYS.CPP.D091130.SCPPPENU
>MSYS.CPP.D091130.SCPPSENU
>/*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
