Just remember that using ALLDUPS to do this assumes there aren't already dupes in either of the files. I usually run the inputs through ICETOOL to drop dupes first and then use those files as input to ALLDUPS.
//STEP1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DISP=SHR,DSN=INPUT1 //OUT DD DISP=(,CATLG),DSN=INPUT1.NODUPES, // SPACE=(CYL,(100,100),RLSE,UNIT=SYSDA,DCB=*.IN //TOOLIN DD * SELECT FROM(IN) TO(OUT) ON(01,10,CH) FIRST /* //* The use INPUT1.NODUPES and INPUT2 as input to the example below. Have a nice day, Dave Betten DFSORT Development, Performance Lead IBM Corporation email: [EMAIL PROTECTED] DFSORT/MVSontheweb at http://www.ibm.com/storage/dfsort/ IBM Mainframe Discussion List <IBM-MAIN@BAMA.UA.EDU> wrote on 04/25/2008 03:05:54 PM: > Thanks, I did go looking for examples in the DFHSORT web site but > couldn't locate them. What is this link? > > Thanks > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On > Behalf Of Tony B. > Sent: Friday, April 25, 2008 12:04 PM > To: IBM-MAIN@BAMA.UA.EDU > Subject: Re: Identify matching records > > From various examples in the DF/SORT web site..... > > > > > > //STEP1 EXEC PGM=ICETOOL > //TOOLMSG DD SYSOUT=* > //DFSMSG DD SYSOUT=* > //I DD DISP=SHR,DSN=INPUT1 > // DD DISP=SHR,DSN=INPUT2 > //MATCH DD SYSOUT=* > //NONMATCH DD SYSOUT=* > //TOOLIN DD * > SELECT FROM(I) TO(MATCH) ON(01,10,CH) ALLDUPS DISCARD(NONMATCH) > > > matching on columns 1-10. > > > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf > Of George, William (DHCS-ITSD) > Sent: Friday, April 25, 2008 1:06 PM > To: IBM-MAIN@BAMA.UA.EDU > Subject: Identify matching records > > We have an IMMEDIATE need to identify records in two files that match. > > One file has several million records while the other has about ½ million. > We need to locate all records in the smaller file that are also in the > larger file ASAP. > > > > I pose this to the group just in case someone can identify a means via SORT, > SUPERC or some other means faster than I can research to find an existing > method or building one. > > > > Thank You for any insights. > > > > Bill > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > > No virus found in this incoming message. > Checked by AVG. > Version: 7.5.524 / Virus Database: 269.23.4/1397 - Release Date: 4/25/2008 > 7:42 AM > > > No virus found in this outgoing message. > Checked by AVG. > Version: 7.5.524 / Virus Database: 269.23.4/1397 - Release Date: 4/25/2008 > 7:42 AM > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > > No virus found in this outgoing message. > Checked by AVG. > Version: 7.5.524 / Virus Database: 269.23.4/1397 - Release Date: 4/25/2008 > 7:42 AM > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
