Victor's Rexx works fine. I just tested it. On my system there is a PDS utility installed, and this also works. I just tested it from a batch TSO job: //TSO EXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * PDS 'BOLAN.JUNK.JCL' FIX RESET /*
On Mon, Jan 25, 2010 at 6:12 AM, Stocker, Herman < [email protected]> wrote: > Very nice Victor. Thank you. > Regards, > > Herman Stocker > > It is impossible to make anything foolproof, because fools are so > ingenious. > -- Robert Heinlein > > <Snip> > > 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- > </snip> > > > The sender believes that this E-mail and any attachments were free of any > virus, worm, Trojan horse, and/or malicious code when sent. This message > and > its attachments could have been infected during transmission. By reading > the > message and opening any attachments, the recipient accepts full > responsibility for taking protective and remedial action about viruses and > other defects. The sender's employer is not liable for any loss or damage > arising in any way from this message or its attachments. > > ---------------------------------------------------------------------- > 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 > ---------------------------------------------------------------------- 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
