Need help with this dfsort problem

IBM Mainframe Forums -> DFSORT/ICETOOL

Quick References

View previous topic :: View next topic

Author

Message

kushkush

New User

Joined: 30 Jun 2005
Posts: 37
Location: Germany

Code:

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SORTIN DD *
++ REASON(ACTION)
22222BBBB
33333CCCC
44444DDDD
++
55555EEEE
++ REASON(ACTION)
Y3333CCCC
Z4444DDDD
++++
77777BBBB
88888FFFF
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(11,6,CH,EQ,C'ACTION'),
END=(1,2,CH,EQ,C'++'),PUSH=(31:ID=1))
OUTFIL INCLUDE=(31,1,CH,NE,C' '),BUILD=(1,30)

Result:
++ REASON(ACTION)
++ REASON(ACTION)

It is not picking up the end string as it is with '++'
What am i doing wrong?
We are at z/OS 2.2

dneufarth

Active User

Joined: 27 Apr 2005
Posts: 420
Location: Inside the SPEW (Southwest Ohio, USA)

Posted: Sun Feb 02, 2020 9:54 pm

Why not just INCLUDE "++ REASON" or "++++"

Joerg.Findeisen

Senior Member

Joined: 15 Aug 2015
Posts: 1255
Location: Bamberg, Germany

Code:

OPTION COPY
OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(1,4,CH,EQ,C'++ R'),
END=(1,2,CH,EQ,C'++',AND,1,4,CH,NE,C'++ R'),PUSH=(31:ID=1))
OUTFIL INCLUDE=(31,1,CH,NE,C' '),BUILD=(1,30)
END

should come up with what's wanted by the OP

Code:

++ REASON(ACTION)
22222BBBB
33333CCCC
44444DDDD
++
++ REASON(ACTION)
Y3333CCCC
Z4444DDDD
++++

sergeyken

Senior Member

Joined: 29 Apr 2008
Posts: 2023
Location: USA

Joerg.Findeisen wrote:

Code:

OPTION COPY
OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(1,4,CH,EQ,C'++ R'),
END=(1,2,CH,EQ,C'++',AND,1,4,CH,NE,C'++ R'),PUSH=(31:ID=1))
OUTFIL INCLUDE=(31,1,CH,NE,C' '),BUILD=(1,30)
END

Code:

OPTION COPY
OUTREC IFTHEN=(WHEN=GROUP,
BEGIN=(1,4,CH,EQ,C'++ R'),
END=(1,2,CH,EQ,C'++ '),
PUSH=(31:ID=1))
OUTFIL INCLUDE=(31,1,CH,NE,C' '),
BUILD=(1,30)
END

Joerg.Findeisen

Senior Member

Joined: 15 Aug 2015
Posts: 1255
Location: Bamberg, Germany

sergeyken wrote:

Code:

OPTION COPY
OUTREC IFTHEN=(WHEN=GROUP,
BEGIN=(1,4,CH,EQ,C'++ R'),
END=(1,2,CH,EQ,C'++ '),
PUSH=(31:ID=1))
OUTFIL INCLUDE=(31,1,CH,NE,C' '),
BUILD=(1,30)
END

Code:

++ REASON(ACTION)
++ REASON(ACTION)

Not exactly what the OP wanted. When you compare a string too long at the same positions as before nothing will change. When the END=() is of fixed length you could code that similar to yours. I assume that was the intention.

Code:

OPTION COPY
OUTREC IFTHEN=(WHEN=GROUP,
BEGIN=(1,4,CH,EQ,C'++ R'),
END=(1,30,CH,EQ,C'++'),
PUSH=(31:ID=1))
OUTFIL INCLUDE=(31,1,CH,NE,C' '),
BUILD=(1,30)
END

kushkush

New User

Joined: 30 Jun 2005
Posts: 37
Location: Germany

Posted: Tue Feb 04, 2020 12:42 am

Thank you Dneufarth and Joerg It is working as you have suggested Kushjush

Joerg.Findeisen

Senior Member

Joined: 15 Aug 2015
Posts: 1255
Location: Bamberg, Germany

Posted: Tue Feb 04, 2020 12:45 am

Guess it is part of IBM Kassandra Service and you are parsing ACTIONS out of it. Enjoy

sergeyken

Senior Member

Joined: 29 Apr 2008
Posts: 2023
Location: USA

Joerg.Findeisen wrote:

sergeyken wrote:

Code:

OPTION COPY
OUTREC IFTHEN=(WHEN=GROUP,
BEGIN=(1,4,CH,EQ,C'++ R'),
END=(1,2,CH,EQ,C'++ '),
PUSH=(31:ID=1))
OUTFIL INCLUDE=(31,1,CH,NE,C' '),
BUILD=(1,30)
END

Code:

++ REASON(ACTION)
++ REASON(ACTION)

Yes, you are right. Sorry.
Just forgot to increase field length in END= parameter.

View previous topic :: :: View next topic

View Bookmarks
All times are GMT + 6 Hours

Forum Index -> DFSORT/ICETOOL

Topic		Forum	Replies
Similar Topics
	Modifying Date Format Using DFSORT	DFSORT/ICETOOL	9
	Replace Multiple Field values to Othe...	DFSORT/ICETOOL	12
	Map Vols and Problem Dataset	All Other Mainframe Topics	2
	Calling DFSORT from Cobol, using OUTF...	DFSORT/ICETOOL	5
	DFsort help with SUM()	DFSORT/ICETOOL	12

Search our Forums:

IBMMainframes.com is not an official and/or affiliated with IBM^® in anyway
Board Rules \| FAQ \| Downloads \| Wiki \| SiteMap \| Contact Us