Thanks Sri. Haven't seen your post. Actually nice idea. בתאריך יום ה׳, 28 במאי 2020, 1:08, מאת Sri h Kolusu <skol...@us.ibm.com>:
> 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
