Someone wrote "how can I delete all the members of a PDS" which got me thinking. Can I do this using Rexx? We have an Assembler program owned by IBM Global Services (we're outsourced) which will reset a PDS and optionally change the number of directory blocks as requested in the parm field.
So far all that I have been to accomplish is to destroy my test PDS. I am opening my test PDS with OLD REUS and specifying a RECFM of F and LRECL and BLKSIZE of 256. I perform a Do Loop to initialize the stem variable to the number of directory blocks that I want and then write to the file. the test file is now trashed. Does anyone know what I am doing wrong? I'm beginning to think this is beyond Rexx. Thanks, Ray Baraniecki Morgan Stanley Smith Barney 18th Floor 1 New York Plaza New York, NY 10004 Office - 212-276-5641 Cell - 917-597-5692 [email protected]<mailto:[email protected]> BE CARBON CONSCIOUS. PLEASE CONSIDER OUR ENVIRONMENT BEFORE PRINTING THIS E-MAIL. -------------------------------------------------------------------------- Important Notice to Recipients: It is important that you do not use e-mail to request, authorize or effect the purchase or sale of any security or commodity, to send fund transfer instructions, or to effect any other transactions. Any such request, orders, or instructions that you send will not be accepted and will not be processed by Morgan Stanley Smith Barney. The Global Wealth Management Group of Morgan Stanley & Co. Incorporated and the Smith Barney division of Citigroup Global Markets Inc. have combined into Morgan Stanley Smith Barney LLC, a new investment adviser and broker-dealer registered with the Securities and Exchange Commission. The sender of this email is an employee of Morgan Stanley Smith Barney. Important disclosures on Morgan Stanley and Citi Investment Research & Analysis research reports may relate in part to the separate businesses of Citigroup Global Markets Inc. and Morgan Stanley that now form Morgan Stanley Smith Barney LLC. To view these important research disclosures, go to http://www.morganstanley.com/researchdisclosures and https://www.citigroupgeo.com/geopublic/Disclosures/index_a.html. If received in error, please destroy and notify sender. Sender does not intend to waive confidentiality or privilege. Use of this email is prohibited when received in error. We may monitor and store emails to the extent permitted by applicable law. ---------------------------------------------------------------------- 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
