I'd write an ISPF dialog using Library Services.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of Sean Gleann <[email protected]> Sent: Monday, June 25, 2018 5:52 AM To: [email protected] Subject: ICEGENER to the rescue again? 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 [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
