priyesh.agrawal
Senior Member
Joined: 28 Mar 2005 Posts: 1448 Location: Chicago, IL
|
|
|
|
DFSORT's ICETOOL with ALLDUPS option will do the need....
Code: |
//S010 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=RECORDS.INPUT1,DISP=SHR
// DD DSN=RECORDS.INPUT2,DISP=SHR
//OUT DD DSN=RECORDS.OUT,
// DISP=(,KEEP,DELETE),
//TOOLIN DD *
SELECT FROM(IN) TO(OUT) ON(1,L,CH) ALLDUPS
// |
Where L = Length of the record.
Regards,
Priyesh. |
|