Classification: Public Quick and dirty - assumes the profile will put numbers in 73-80, and doesn't do much in the way of error checking:
/* REXX */ parse source . . me . arg dataset . "ISPEXEC CONTROL ERRORS RETURN" "ISREDIT MACRO" edMac = rc "ISPEXEC CONTROL ERRORS CANCEL" if edMac = 0 then do call macroMode exit end "ISPEXEC LMINIT DATAID(DSN) DATASET('"dataset"') ENQ(SHR)" "ISPEXEC LMOPEN DATAID(&DSN)" Do until RC > 0 "ISPEXEC LMMLIST DATAID(&DSN) OPTION(LIST) MEMBER(MEMBER) STATS(NO)" If RC = 8 Then Leave If RC = 0 Then "ISPEXEC EDIT DATAID(&DSN) MEMBER(&MEMBER) MACRO(&ME)" End "ISPEXEC LMCLOSE DATAID(&DSN)" "ISPEXEC LMFREE DATAID(&DSN)" Exit macroMode: "ISREDIT NUM" "ISREDIT UNNUM" "ISREDIT END" return Run it in batch ISPF with an ISPLOG, and you'll get a list of members updated (I called this MEMUPD): TSO - Command - - %MEMUPD MY.DATASET TSO - Command - - %MEMUPD Edit - Save - ISRE006 MY.DATASET(MAKEBIG) - member saved. TSO - Command - - %MEMUPD Edit - Save - ISRE006 MY.DATASET(PARMTEST) - member saved. TSO - Command - - %MEMUPD Edit - Save - ISRE006 MY.DATASET(UTF16) - member saved. Andy Styles z/Series System Programmer -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Chris Hoelscher Sent: 11 January 2021 10:26 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Request for help with removing sequence numbers from PDS members -- This email has reached the Bank via an external source -- 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 Lloyds Banking Group plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland no. SC95000. Telephone: 0131 225 4555. Lloyds Bank plc. Registered Office: 25 Gresham Street, London EC2V 7HN. Registered in England and Wales no. 2065. Telephone 0207626 1500. Bank of Scotland plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland no. SC327000. Telephone: 03457 801 801. Lloyds Bank Corporate Markets plc. Registered office: 25 Gresham Street, London EC2V 7HN. Registered in England and Wales no. 10399850. Scottish Widows Schroder Personal Wealth Limited. Registered Office: 25 Gresham Street, London EC2V 7HN. Registered in England and Wales no. 11722983. Lloyds Bank plc, Bank of Scotland plc and Lloyds Bank Corporate Markets plc are authorised by the Prudential Regulation Authority and regulated by the Financial Conduct Authority and Prudential Regulation Authority. Scottish Widows Schroder Personal Wealth Limited is authorised and regulated by the Financial Conduct Authority. Lloyds Bank Corporate Markets Wertpapierhandelsbank GmbH is a wholly-owned subsidiary of Lloyds Bank Corporate Markets plc. Lloyds Bank Corporate Markets Wertpapierhandelsbank GmbH has its registered office at Thurn-und-Taxis Platz 6, 60313 Frankfurt, Germany. The company is registered with the Amtsgericht Frankfurt am Main, HRB 111650. Lloyds Bank Corporate Markets Wertpapierhandelsbank GmbH is supervised by the Bundesanstalt für Finanzdienstleistungsaufsicht. Halifax is a division of Bank of Scotland plc. HBOS plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland no. SC218813. This e-mail (including any attachments) is private and confidential and may contain privileged material. If you have received this e-mail in error, please notify the sender and delete it (including any attachments) immediately. You must not copy, distribute, disclose or use any of the information in it or any attachments. Telephone calls may be monitored or recorded. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN