MVSFORUMS.com

[rk_pulikonda]

Hi,

My requirement is as follows.

Input FB 80 (1 to 6 is key). based on position 7 I need to eliminate group of similar records. If I get key value followed by only '2' then I need to eliminate those records. Duplicates are allowed. I want the order same as they appear in the input.

example:
AAAAAA1
AAAAAA1
AAAAAA1
AAAAAA2
AAAAAA2
BBBBBB2
BBBBBB2
CCCCC1
CCCCC1
CCCCC2
CCCCC3

Expected output is
AAAAAA1
AAAAAA1
AAAAAA1
AAAAAA2
AAAAAA2
CCCCC1
CCCCC1
CCCCC2
CCCCC3

I checked other topics using IFTHEN and GROUP. Can somebody help me how to do this ?

Thanks
_________________
Thanks
-Ram

[kolusu]

rk_pulikonda,

Try this JCL.

[rk_pulikonda]

Kolusu as always thanks for the quick reply.

I am getting the syntax error. Here is my sysout.

INREC IFTHEN=(WHEN=INIT,
OVERLAY=(81:SEQNUM,8,ZD,RESTART=(1,6),89:7,1)),
IFTHEN=(WHEN=GROUP,BEGIN=(81,8,ZD,EQ,1),PUSH=(90:7,1))
*
SORT FIELDS=COPY
OUTFIL OMIT=(89,2,ZD,EQ,22),BUILD=(1,80)
WER268A INREC STATEMENT : SYNTAX ERROR
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
_________________
Thanks
-Ram

[Frank Yaeger]

Kolusu's job works fine with DFSORT. But the WER messages indicate you're using Syncsort, not DFSORT.
_________________
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

[Brian Wood]

rk_pulikonda:

The WER268A syntax error message indicates that you are using an older level of SyncSort for z/OS that does not include support for WHEN=GROUP. Support for WHEN=GROUP was included in SyncSort for z/OS 1.3.2 (Release 1.3, TPF2 maintenance level), which has been available since January 2009. This is a free upgrade to licensed SyncSort customers.
_________________
Brian Wood
SyncSort Mainframe Product Services
201-930-8260
zos_tech@syncsort.com

[rk_pulikonda]

Thank you Kolusu, Frank, Brain wood for the responses.

I really appreciate your time.

Thanks
_________________
Thanks
-Ram