Here is something I am doing (for other reasons) but it might help Run IEBPTPCH against the old pds(e) Walk thru the IEBPTPCH output - grabbing the member name and doing what you need to do to each line or build iebgener control cards to clear the columns When you hit a new member, dispose of the previous lines by making them the sysut1 in the aforementioned iebcopy with sysut2 into the corresponding member in the new pds(e)
Clear as mud? Chris Hoelscher Lead Sys DBA IBM Global Technical Services on assignmemt to Humana Inc. T 502.476.2538 or 502.407.7266 -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Sean Gleann Sent: Monday, January 11, 2021 4:06 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [IBM-MAIN] Request for help with removing sequence numbers from PDS members [External Email: Use caution with links and attachments] This has almost certainly cropped up before but try as I might, I can't spot anything obvious in the archives. I have a need to strip sequence numbers from members in a PDS or PDSE. The input PDS(E) has DCB characteristics of REFCM=FB,LRECL-80, and contains an unknown number of members. Of those members, some will have records with 'old data' in character positions 73-80 (that is - sequence numbers, or whatever remains of them). I want to be able to copy this input PDS(E) to a new one with the same DCB info, but all records in all members must have spaces in positions 73-80. I thought that ICETOOL might be able to do this but as far as I can see, ICETOOL needs to be told which member names to process. That information is readily available while developing and testing a solution, but not when the result is used in a more general scenario. Can anyone point me at some sort of solution that I might adapt, please? Perhaps there is something on the CBT tape that might help... Regards Sean ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information. Humana Inc. and its subsidiaries comply with applicable Federal civil rights laws and do not discriminate on the basis of race, color, national origin, ancestry, age, disability, sex, marital status, gender, sexual orientation, gender identity, or religion. Humana Inc. and its subsidiaries do not exclude people or treat them differently because of race, color, national origin, ancestry, age, disability, sex, marital status, gender, sexual orientation, gender identity, or religion. English: ATTENTION: If you do not speak English, language assistance services, free of charge, are available to you. Call 1‐877‐320‐1235 (TTY: 711). Español (Spanish): ATENCIÓN: Si habla español, tiene a su disposición servicios gratuitos de asistencia lingüística. Llame al 1‐877‐320‐1235 (TTY: 711). 繁體中文(Chinese):注意:如果您使用繁體中文,您可以免費獲得語言援助 服務。請致電 1‐877‐320‐1235 (TTY: 711)。 Kreyòl Ayisyen (Haitian Creole): ATANSION: Si w pale Kreyòl Ayisyen, gen sèvis èd pou lang ki disponib gratis pou ou. Rele 1‐877‐320‐1235 (TTY: 711). Polski (Polish): UWAGA: Jeżeli mówisz po polsku, możesz skorzystać z bezpłatnej pomocy językowej. Zadzwoń pod numer 1‐877‐320‐1235 (TTY: 711). 한국어 (Korean): 주의: 한국어를 사용하시는 경우, 언어 지원 서비스를 무료로 이용하실 수 있습니다. 1‐877‐320‐1235 (TTY: 711)번으로 전화해 주십시오. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
