How to get the last but one duplicate record of the file
using Sort?
- 2 Answers
- 10341 Views
- Fidelity, I also Faced
- E-Mail Answers
Answer Posted / 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 View All Answers
Differentiate between addressing mode and run mode.
How to do automated restart when a job abend?
what are JCLLIB and STEPLIB in JCL?
Explain the function of //cntl statement?
What is the purpose of the dd keylen parameter?
What is notcat 2 - gs?
How to alter the parameters for the existing gdg?
How can a fb file convert to vb file using sort program?
Explain how can a stopped job be started again?
which utility is used to run a cobol-db2 program?
Name what parameter directs the output of the job log dataset?
Must tape dataset definitions include vol=ser specifications?
State the uses of syspring, sysin, sort fields, sum fields and dummy.
Explain how can the disposition of sysout datasets be set for an entire jobstream?
Is acct parameter mandatory?
