Respectfully, I disagree, especially since you mention REXX. Using the WORD function, parsing is a snap. If word 1 is NONVSAM, word 3 is the dataset name. I.e., If Word(line_read,1) = 'NONVSAM' THEN gdgent = WORD(line_read,3) ;
The last 'gdgent' filled in will be the last GDG. How does it get simpler? It's pretty simple to make that look like your desired function - and without a lot of work. Jim Horne From: IBM Mainframe Discussion List <[email protected]> On Behalf Of John McKown {sigh} I parsing LISTCAT is a bother. Using IGGCSI00 is not simple, IMO at least. I really wish there were a REXX function to do it like: absolute=RESGDG('basegdg(0)') where "absolute" would have "basegdg.g0000v00" in it. So much simpler. Am I am a simple person. You really _don't_ want to see the kludge I am cooking up use Co:Z and UNIX directories. Which are, for me, a lot easier to use that a <redacted> PDS. ________________________________ NOTICE: All information in and attached to the e-mails below may be proprietary, confidential, privileged and otherwise protected from improper or erroneous disclosure. If you are not the sender's intended recipient, you are not authorized to intercept, read, print, retain, copy, forward, or disseminate this message. If you have erroneously received this communication, please notify the sender immediately by phone (704-758-1000) or by e-mail and destroy all copies of this message electronic, paper, or otherwise. By transmitting documents via this email: Users, Customers, Suppliers and Vendors collectively acknowledge and agree the transmittal of information via email is voluntary, is offered as a convenience, and is not a secured method of communication; Not to transmit any payment information E.G. credit card, debit card, checking account, wire transfer information, passwords, or sensitive and personal information E.G. Driver's license, DOB, social security, or any other information the user wishes to remain confidential; To transmit only non-confidential information such as plans, pictures and drawings and to assume all risk and liability for and indemnify Lowe's from any claims, losses or damages that may arise from the transmittal of documents or including non-confidential information in the body of an email transmittal. Thank you. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
