How to get the last but one duplicate record of the file using Sort?

How to get the last but one duplicate record of the file
using Sort?

Question Posted / khbnaidu

2 Answers
10956 Views
Fidelity, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

How to get the last but one duplicate record of the file using Sort?..

Answer / vikas pujar

Sort Dataset SORTXSUM will hold the duplicate records if in
Sysin dd *, we give option XSUM, after SUM FIELDS=NONE. So
last but one record in dataset should be the answer.

Is This Answer Correct ?

4 Yes

2 No

How to get the last but one duplicate record of the file using Sort?..

Answer / anju

//step1 exec pgm=sort
//sortin dd dsn=file1,disp=shr
//sortout dd dsn=file2,disp=(new,catlg,delete),
// unit=disk,space=(cyl(20,10),rlse)
// dcb=(recfm=fb,lrecl=80,blksize=800)
//sortxsum dd dsn=file3,disp=(new,catlg,delete),
// unit=disk,space=(cyl(20,10),rlse)
// dcb=(recfm=fb,lrecl=80,blksize=800)
//sysin dd *
sortfields=none,xsum
/*
//step2 exec pgm=sort
//sortin dd dsn=*.step1.sortxsum
//sortof01 dd dsn=file4,disp=(new,catlg,delete),
// unit=disk,space=(cyl(20,10),rlse)
// dcb=(recfm=fb,lrecl=80,blksize=800)
//sortof02 dd dsn=file5,disp=(new,catlg,delete),
// unit=disk,space=(cyl(20,10),rlse)
// dcb=(recfm=fb,lrecl=80,blksize=800)
sysin dd *
sortfields=copy
outfil files=01,startrec=2,endrec=2
outfil files=02,startrec=3,ENDREC=5
/*

I did not test this. Hope this will work and file4 will give
the last but 1 duplicate record.

Is This Answer Correct ?

1 Yes

2 No

Post New Answer