Need to delete two records with common key in EZ Program

anumalar · New User Joined: 20 Oct 2006 Posts: 3 Location: singapore

i have one seq file with few records . Among these i need to delete two records with common key . After matching , how to remove both records from seq file . Pls advise. I need very simple step using ez program.

IQofaGerbil · Posted: Fri Oct 20, 2006 9:33 pm

Your request suggests that there is only one possible match of two records in you file , is this definitely the case?
or
could there be more than one pair of matching records?
or
more than two records with same key?

program logic differs depending on specification.

Would you consider using a SORT utility which could do this for you in one simple step?

anumalar · New User Joined: 20 Oct 2006 Posts: 3 Location: singapore

Reply :

Your request suggests that there is only one possible match of two records in you file , is this definitely the case?

reply : one possible match only

or
could there be more than one pair of matching records?
more than one pair of matching records

or
more than two records with same key?

reply : two records with same key . But only one pair .
Every pair have diff common keys .

program logic differs depending on specification.

IQofaGerbil · Posted: Tue Oct 24, 2006 4:42 pm

still confused!
Give inputs and expected outputs.

anumalar · New User Joined: 20 Oct 2006 Posts: 3 Location: singapore

Thks for yr reply .

I got the answer from other forum replies .

using dfsort

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file
//OUT DD DSN=... output file
//TOOLIN DD *
SELECT FROM(IN) TO(OUT) ON(1,3,CH) NODUPS
/*

It will remove duplicate records from seq file .