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
