I have used REXX to do this. One flavour uses IDCAMS REPRO, the other uses EXECIO.
It builds the member list from a LISTDS MEMBERS. It adds ./ADD IEBUPDTE statements to the flat file in order to move to other systems. It's a readable option compared to using XMIT on a PDS> On Thu, May 28, 2020 at 11:05 AM Lizette Koehler <stars...@mindspring.com> wrote: > Personally I would use REXX and LM functions to read through PDS members > and > action them. > > I did that when I needed to update all Members in a PDS to insert some > additional control cards > > REXX with ISPF LM (Library Management) functions work very well for this. > > Lizette > > > -----Original Message----- > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf > Of > Sri h Kolusu > Sent: Wednesday, May 27, 2020 3:08 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Sort extracting values in PDS members > > ITschak, > > I already responded to this topic. Not sure where it went, but I did > respond > before your email. You can use IEPTPCH to flatten the PDS to a sequential > file. If you use STOPAFT=5 then it will only print the 5 lines of the PDS. > So don't have to use SUPERC > > Thanks, > Kolusu > DFSORT Development > IBM Corporation > > IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on > 05/27/2020 02:50:28 PM: > > > From: ITschak Mugzach <imugz...@gmail.com> > > To: IBM-MAIN@LISTSERV.UA.EDU > > Date: 05/27/2020 02:51 PM > > Subject: [EXTERNAL] Re: Sort extracting values in PDS members Sent by: > > IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > > > I would start with creating a single file using a ISRSUPC (it works > outside > > of ISPF, try opt 3.14 background option to generate the JCL) searching > for > > the two keywords you are looking for. > > > > ITschak > > ITschak Mugzach > > *|** IronSphere Platform* *|* *Information Security Continuous > > Monitoring for z/OS, x/Linux & IBM I **| z/VM comming son * > > > > > > > > > > On Wed, May 27, 2020 at 11:41 PM Billy Ashton <bill00ash...@gmail.com> > > wrote: > > > > > Hi again! This group has been so helpful - especially Kolusu - and I > > > have one more question as I learn how to use SORT more creatively. > > > > > > I have a bunch of PDS files where I have to read through each member > and > > > create some control cards based on the content in the member (due to > the > > > nature of these files, the request needs to be vague). So here are > > > the > > > questions: > > > 1. Is there a way to automatically read all members of a PDS? If > > > not, I can generate the individual file names with member in a > > > separate process. > > > 2. When I read each member, I will be looking for KEYWORD(value) - > > > the keyword will be either "KEYWORD1" or "LONGKEYWORD2" and will be > > > within the first 5 lines of the member, at which point I stop > > > reading (some of the members have 25000 lines!), and the Keyword > > > could be anywhere on > the > > > line, in column 1 or with a space delimiter. Keyword can be 8 or 12 > > > characters long, and Value can be 2 to 8 characters. > > > 3. I then need to create a string of -ADD- Value.Keyword.Dyyyymmdd > > > (Today's date) that I will use in my further processing. > > > > > > Note that I could write a program to manage this, but am trying to > > > keep the processing in a control member rather than a program, as > > > utility programs seem to get lost around here. > > > > > > Since I can't show you the real input, here is some contrived data: > > > > > > Member1: > > > KEYWORD1(val) Otherkw(val) Otherkey2(anothervalue) > > > Line2 > > > Line3 > > > etc. > > > > > > Member 2: > > > Line 1 > > > Line 2 > > > Otherkw(val) Otherkw2(val) LONGKEYWORD2(longvalu) Otherkw3(val) etc. > > > > > > Member 3: > > > Line 1 > > > Otherkw1(withitslongvalue) LONGKEYWORD2(valu) Line 3 etc. > > > > > > Member 4: > > > Line 1 > > > Line 2 > > > Line 3 > > > Line4 > > > KW(val) Anotherkw(anditsvalue) Alongkeywordhere(withalongvalue) > > > KEYWORD1(va) > > > etc. > > > > > > This would create the output (either in a single MOD file, or > > > separate files I can put together myself: > > > VAL.KEYWORD1.D20200527 > > > LONGVALU.LONGKEYWORD2.D20200527 > > > VALU.LONGKEYWORD2.D20200527 > > > VA.KEYWORD1.D20200527 > > > > > > Can something like this be done in a DFSORT step? If not, I can > > > write the various utilities myself in Rexx and/or COBOL, so you > > > don't need to suggest that. > > > > > > Thanks for your help once more! > > > Billy > > > > > > -------------------------------------------------------------------- > > > -- For IBM-MAIN subscribe / signoff / archive access instructions, > > > send email to lists...@listserv.ua.edu with the message: INFO > > > IBM-MAIN > > > > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, send > > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Wayne V. Bickerdike ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
