Many thanks to all who responded. I opted to adapt and (try to) use the REXX that Andy Styles gave, but I'm tripping up over something that has to be one of those 'simple, basic' things. The "ISPEXEC CONTROL ERRORS RETURN" command gives me RC(20) as a result. I think I've got to use an 'ADDRESS ISPEXEC' command or something like that at the start of the REXX, but attempts at variants of this give the same result. Any clues, anyone... please?
Regards Sean On Mon, 11 Jan 2021 at 12:26, Lennie Bradshaw < [email protected]> wrote: > How about TSO EDIT (yes TSO, not ISPF) in batch. > Lennie > > -----Original Message----- > From: IBM Mainframe Discussion List <[email protected]> On Behalf > Of R.S. > Sent: 11 January 2021 10:21 > To: [email protected] > Subject: Re: Request for help with removing sequence numbers from PDS > members > > W dniu 11.01.2021 o 10:05, Sean Gleann pisze: > > 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... > > I don't know any tool, but I have some idea how to do it. > Use REXX script. > It's quite simple to get member list and do somethin in a loop until > last member is processed. > What to do? > Again, I don't know any tool, however it could be feasible to use > IEBGENER with non-empty SYSIN, ICEMAN, or TSO EDIT, or ISPF EDIT, or > something else. > Caution: things are simple when you just want to replace position 73-80 > despite of its actual content, that means without checking it. > > HTH > > -- > Radoslaw Skorupka > Lodz, Poland > > > > > > ====================================================================== > > Jeśli nie jesteś adresatem tej wiadomości: > > - powiadom nas o tym w mailu zwrotnym (dziękujemy!), > - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub > zapisałeś na dysku). > Wiadomość ta może zawierać chronione prawem informacje, które może > wykorzystać tylko adresat. Przypominamy, że każdy, kto rozpowszechnia > (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania, > narusza prawo i może podlegać karze. > > mBank S.A. z siedzibą w Warszawie, ul. Prosta 18, 00-850 Warszawa, > www.mBank.pl, e-mail: [email protected]. Sąd Rejonowy dla m. st. Warszawy > XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 0000025237, NIP: > 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na > 01.01.2020 r. wynosi 169.401.468 złotych. > > Jesteśmy administratorem twoich danych osobowych, które podałeś w związku > z prowadzoną z nami korespondencją. Przetwarzamy te dane dla celów, które > wynikają z przedmiotu korespondencji, w tym związanych z prowadzoną > działalnością bankową. > Więcej informacji o tym jak chroniony i przetwarzamy dane osobowe > znajdziesz w Pakietach RODO (w wersji polskiej i angielskiej), które są na > www.mbank.pl/rodo > > > If you are not the addressee of this message: > > - let us know by replying to this e-mail (thank you!), > - delete this message permanently (including all the copies which you have > printed out or saved). > This message may contain legally protected information, which may be used > exclusively by the addressee.Please be reminded that anyone who > disseminates (copies, distributes) this message or takes any similar > action, violates the law and may be penalised. > > mBank S.A. with its registered office in Warsaw, ul. Prosta 18, 00-850 > Warszawa,www.mBank.pl, e-mail: [email protected]. District Court for the > Capital City of Warsaw, 12th Commercial Division of the National Court > Register, KRS 0000025237, NIP: 526-021-50-88. Fully paid-up share capital > amounting to PLN 169.401.468 as at 1 January 2020. > > We are the controller of your personal data, which you provided in > connection with correspondence with us. We process your data for purposes > resulting from the subject of correspondence, including those related to > the banking services. > More information on how we protect and process personal data can be found > in the GDPR Packages (in English and Polish), which are on > www.mbank.pl/rodo. > > ---------------------------------------------------------------------- > 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 > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
