> -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:ibm-m...@bama.ua.edu] On Behalf Of Baraniecki, Ray > Sent: Wednesday, July 08, 2009 10:33 AM > To: IBM-MAIN@bama.ua.edu > Subject: Deleting All the Members of a PDS > > 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
The directory portion of a PDS has a LRECL of 256, but also use 8 byte hardware keys. I don't think you can process the hardware keys in REXX. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
