PDSEDIT can do this real quick, do a BOUNDS 73 80 and C '0' ' ', etc., and supply the list of members. Use PARM='TEST' until satisfied with expected result, then change to NOTEST. http://gsf-soft.com/Products/PDSEDIT.html
IBM suggests the FILE MANAGER FIND/CHANGE utility. https://www.ibm.com/support/knowledgecenter/en/SSXJAV_13.1.0/com.ibm.filemanager.doc_13.1/base/fchuse.html On Mon, Jun 25, 2018 at 4:53 AM Sean Gleann <sean.gle...@gmail.com> wrote: > > I'm wondering if someone can point me in the right direction with a problem > that I've had handed to me... > > I have a PDS of a reasonable number of FB80 members (>100). Some of the > members have sequence numbers in character positions 73-80, some don't and > some are 'partially' numbered, with gaps in the sequencing, depending on > who last updated the specific member. > > I want to replace anything in cols 73-80 with 8 spaces, no matter what is > there. > > I can think of numerous ways of doing something similar with a straight > sequential dataset, but when it comes to an unknown number of members in a > PDS, I get stumped. > > My latest attempt featured IEBPTPCH to unload the PDS to a sequential file, > then SORT to write only cols 1-72 from each record to another output file. > That part works fine, but - given that I don't know how many members there > are, nor the names of them - how do I get the serialised members back in to > a PDS? > > I'm fairly certain that ICEGENER would be able to do this, but have not yet > found an example that comes anywhere close, that I can then adapt to my > requirements. > > Any help or pointers on this would be greatly appreciated > > Sean > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
