/* REXX */ /* from http://www.mainframesupport.dk/tips/tip0344.html */ /* 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
On Wed, 23 Jun 2010 19:37:40 -0500, gsg <gsg_...@yahoo.com> wrote: >Does anyone know of a way to delete all of the members of a PDS which is >allocated by job scheduler software? We currently use an assembler program >that does a reset(I think), but management wants us to not use assembler. I >know that IEHPROGM can delete a specific member, but the members change >from day to day. I don't think you can wild card it. > >TIA > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO >Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
