Joined: 20 Oct 2006 Posts: 1411 Topics: 26 Location: germany
Posted: Sat Oct 06, 2007 3:43 am Post subject: Parse ISRSUPC output with DFSORT
First of all, I have to admit that if I looked, and looked, and looked I would probably beable to piece the answer together. But, I am lazy, like most of the posters here and am hoping that Frank, Kolusu or someone else that already has the necessary parm cards will share it with me and thus saving much trial and error.
If i was home, I could look thru the tips,tricks and how-to's that I have PDFd and collected. But I am at a client site and have not transfered my complete library here and as a result, have to pray someone will take pity on me, show me mercy and also the necessary parsing parms.
anyway, thx to Kolusu, using IDPFX as one of the ISRSUPC PARMs, I can return output like this:
Code:
AZB001 114 009600 INCLUDE JCT041
AZB001 120 009705 INCLUDE HLT006
AZB001 126 009720 INCLUDE HYT014
AZB001 132 009780 INCLUDE SQLCA
AZB001 279 016797 INCLUDE HZC500
which saves a parsing pass. my goal is to extract from each non-blank line:
Cols 1-10 - whatever is there (is a pds member name in this case)
and after either ' copy ' or ' include ', whatever comes next. preferably without the period.
so my desired output is:
whatever is in 1 thru 10 (non-blank lines) in 1-10. The extracted value after the ' COPY ' or ' INCLUDE ' would be in 15 thru whatever. The extracted value would be variable in length and end with a space.
I imagine I can generate a control card to remove the period. as well as sort out the space lines.
I hope someone will notice that I was so good to use a 'really good' topic title, something that could become a 'STICKY', perhaps?
holding my breath, dbz _________________ Dick Brenholtz
American living in Varel, Germany
Joined: 02 Dec 2002 Posts: 1618 Topics: 31 Location: San Jose
Posted: Sat Oct 06, 2007 1:45 pm Post subject:
Dick,
You don't need to apologe for asking for help. That's what this board is for and we're happy to help.
Kolusu's DFSORT control statements work, but here's an improved version that doesn't require OUTREC or ALTSEQ. The trick is to use ENDBEFR for a blank or a period.
Enjoy your vacation and stop worrying about mvsforums. _________________ Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Joined: 20 Oct 2006 Posts: 1411 Topics: 26 Location: germany
Posted: Sun Oct 07, 2007 5:58 am Post subject:
Frank & Kolusu,
thank you both. Unfortunately, the mainframe is on vacation during sundays (at least from us developers).
Modification of the STARTAFT parms will allow me to parse for anything that I 'searched for' with ISRSUPC.
I have rexx's to do this, but when you have 3000+ modules with 8000+ copybooks, after a while the output gets too large for a REXX. Also, I can use this as an example to help my current client to start using DFSORT instead of writing one-off cobol programs to rip&strip. Thx again for helping me, help my client.
dbz
dbz _________________ Dick Brenholtz
American living in Varel, Germany
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
