Address "ISPEXEC" "LMINIT DATAID(FDTID) DATASET('"dsn"') ENQ(SHRW)" Address "ISPEXEC" "LMOPEN DATAID("fdtid") OPTION(OUTPUT)" Address "ISPEXEC" "LMMLIST DATAID("fdtid") MEMBER(MEMNM)" Do While cc = 0 Address "ISPEXEC" "LMMDEL DATAID("fdtid") MEMBER("memnm") NOENQ" cc = rc Address "ISPEXEC" "LMMLIST DATAID("fdtid") MEMBER(MEMNM)" cc = rc End Address "ISPEXEC" "LMCLOSE DATAID("fdtid")" Address "ISPEXEC" "LMFREE DATAID("fdtid")"
Ren Ext 1448 -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Elardus Engelbrecht Sent: Friday, November 20, 2015 7:59 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: AW: Re: Deleting all members of a pds Peter Hunkeler wrote: >>(Had you come to SHARE, you might have known that--hint, hint. ;-) >Re: hint, hint, John, would you find some time to convince our upper level >management of many companies of the value of SHARE, etc? Hint, hint - the rarity of money beats the value of SHARE by a full knock-out... >Sorry, could not resist. Neither me. ;-) Groete / Greetings Elardus Engelbrecht PS: I know it is good to attend the SHARE in the sense you get information way before others and thus getting an advantage. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information contained in this message is proprietary and/or confidential. If you are not the intended recipient, please: (i) delete the message and all copies; (ii) do not disclose, distribute or use the message in any manner; and (iii) notify the sender immediately. In addition, please be aware that any message addressed to our domain is subject to archiving and review by persons other than the intended recipient. Thank you. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN