IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

Combine groups of lines in one line


 
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: :: View next topic  
Author Message
knobi

New User


Joined: 16 Aug 2005
Posts: 53

PostPosted: Fri Jun 20, 2014 3:43 am
Reply with quote

hello, would be possible to this with sort ?

Basically, retrieve only the groups of 4 lines and merge the lines one after the other.

Input:
Code:

lines...before/after
cccc blablabla
    zzzz blabla
    yyyy blabla
    aaaa blabla
    bbbb blabla
lines...before/after
cccc blablabla
    zzzz blabla
    yyyy blabla
    aaaa blabla
    bbbb blabla
lines...before/after


Code:

cccc blablabla     zzzz blabla    yyyy blabla    aaaa blabla    bbbb blabla
cccc blablabla     zzzz blabla    yyyy blabla    aaaa blabla    bbbb blabla
Back to top
View user's profile Send private message
knobi

New User


Joined: 16 Aug 2005
Posts: 53

PostPosted: Fri Jun 20, 2014 5:27 am
Reply with quote

small correction.. this are 5 lines groups...
and the second piece of code, from the above post is how would be the output.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7312
Location: Inside the Matrix

PostPosted: Fri Jun 20, 2014 5:49 am
Reply with quote

Yes, if you can identify them sufficiently.

Look at ICETOOL's RESIZE operator. OMIT COND= for the stuff you don't want (or INCLUDE COND= for the stuff you want) in a USING which also includes an OUTFIL for your final processing.

Search for RESIZE examples. If you get stuck, show us what you've done and we should be able to move you on with it.
Back to top
View user's profile Send private message
knobi

New User


Joined: 16 Aug 2005
Posts: 53

PostPosted: Fri Jun 20, 2014 5:52 am
Reply with quote

i was trying to fit the code below on my jcl.. but not too much lucky so far...
any advise would be great

INREC IFTHEN=(WHEN=INIT,

OVERLAY=(134:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(2,7,CH,EQ,C'WARNING'),
OVERLAY=(142:SEQNUM,8,ZD,
134:134,8,ZD,SUB,142,8,ZD,M11,LENGTH=8)),


IFTHEN=(WHEN=NONE,
OVERLAY=(134:SEQNUM,8,ZD))
Back to top
View user's profile Send private message
knobi

New User


Joined: 16 Aug 2005
Posts: 53

PostPosted: Fri Jun 20, 2014 6:08 am
Reply with quote

i'm little behind on icetool... wasn't aware of resize... worked pretty good !
thanks !
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7312
Location: Inside the Matrix

PostPosted: Fri Jun 20, 2014 11:26 am
Reply with quote

Well, at just 19 minutes after my suggestion, you're catching up fast. Good work.

If you can post your solution, it may help others with a similar requirement.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts Need to split single line into two li... DFSORT/ICETOOL 7
No new posts Join lines with dfsort DFSORT/ICETOOL 5
No new posts Am Getting a vertical line in ISPF SC... TSO/ISPF 3
No new posts Print next line strings when a condit... DFSORT/ICETOOL 9
No new posts using TXT2PDF to colour specific lines All Other Mainframe Topics 3

Back to Top