Appending Flag for record for duplicates in a file

kvkchaitanya · New User Joined: 21 May 2009 Posts: 5 Location: India

I have a File in Below FORMAT

A1 X
A1 X
A2 X
A2 Y

I want the out put as

A1 X Y
A1 X Y
A2 X N
A2 Y N

Here in the input file is sorted A1 and X feilds. On match of the feilds I want the Y at End and On no duplicate record should have N at end.

Please advice.

Regards,
Chaitanya KVK

gcicchet · Posted: Thu May 21, 2009 4:48 pm

Hi,

try this

kvkchaitanya · New User Joined: 21 May 2009 Posts: 5 Location: India

Thanks a Lot!! Its working

Skolusu · Posted: Thu May 21, 2009 10:42 pm

kvkchaitanya,

As your data is already sorted on the key, the following 1 pass DFSORT JCL will give you the desired results

kvkchaitanya · New User Joined: 21 May 2009 Posts: 5 Location: India

Thanks!!

One Small addition If the data to be comapred is not in first 4 Bytes

i.e

A1 is at 1st position
I have some data and then
X at 12 th posiiton.

Like

A1 abcdef X
A1 deftgx X
A2 abcdef X
How can I modify the Tool to get the desired output.

A1 abcdef X Y
A1 deftgx X Y
A2 abcdef X N

Skolusu · Posted: Thu May 21, 2009 11:28 pm

kvkchaitanya,

*Sigh*

1. Tell me your Input LRECL and RECFM
2. What is the Postion of the keys (a,x) , are they 1 and 12?
3. What about the length of the keys (a,x) are they 4 and 1?
4. What is the output LRECL and RECFM?
5. What is the position of the flag in the OUTPUT file?

kvkchaitanya · New User Joined: 21 May 2009 Posts: 5 Location: India

1) LRECL = 1220 and RECFM= FB
2) A is in Position 1
X is in Position 350
3) A is of 11 bytes length
X is of 10 Bytes lenth
4) Output LRECL = 1220 and RECFM= FB
5) Flag position is 1219

Skolusu · Posted: Thu May 21, 2009 11:52 pm

kvkchaitanya,

use the following control cards

kvkchaitanya · New User Joined: 21 May 2009 Posts: 5 Location: India

On using the above sort card it is giving the following error kindly suggest.

SYSIN :
INREC IFTHEN=(WHEN=INIT,
OVERLAY=(1221:1,11,350,10,SEQNUM,8,ZD,RESTART=(1221,21)))
SORT FIELDS=(1221,21,CH,A,1242,8,CH,D)
OUTREC IFOUTLEN=1220,IFTHEN=(WHEN=INIT,
*
OVERLAY=(1219:C'N',1250:SEQNUM,8,ZD,RESTART=(1221,21))),
IFTHEN=(WHEN=GROUP,BEGIN=(1250,8,ZD,EQ,1),PUSH=(1242:1242,8)),
IFTHEN=(WHEN=(1242,8,ZD,GT,1),OVERLAY=(1219:C'Y'))
WER161B ALTERNATE PARM USED
WER268A OUTREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

dick scherrer · Posted: Fri May 29, 2009 8:27 pm

Hello,

You are using Syncsort rather than DFSORT.

Suggest you talk with your system support people to have the current version of Syncsort installed if you are not running Syncsort 1.3.n.

Arun Raj · Posted: Mon Jun 01, 2009 4:49 pm

kvkchaitanya,

We dont really need a 'WHEN=GROUP' clause here. I have modified Kolusu's job to achieve the same without the 'WHEN=GROUP' clause.
May be you can try this out which should work for SyncSort for z/OS 1.2.