IBM Mainframe Forum

Hi,

I got a scenario to write a jcl to sort the two files and write the matched and unmatched records into 2 different files using ICETOOL utility.Can anyone give the job code explaining it in detail....I am new to ICETOOL utility....

why not search the forum Yourself, there are zillions of examples
and the most of them are explained very clearly

being new to something does not exempt you from doing a bit of work Yourself
and from asking people who spend time helping to write and post over and over the same things/suggestions/code snippets

Why would it have to be ICETOOL?

Just plain SORT with JOINKEYS, assuming your program level is close to up-to-date.

Can you post the ICE201I message from the sysout of any sort step, please?

Are you wanting the JCL or the control cards?

i have been searching....but couldn't understand the syntax of MATACNTL DD * and MATBCNTL DD * MATCCNTL DD * in the code.could u please xplain?

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//F1IN DD DSN=A123456.SORT.SAMPIN,DISP=SHR
//F2IN DD DSN=A123456.SORT.SAMPADD,DISP=SHR
//T1 DD DSN=&&&T1,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//MATCH DD DSN=COURSE.MATCH,DISP=(NEW,CATLG,DELETE),
//F1ONLY DD DSN=COURSE.INONLY,DISP=(NEW,CATLG,DELETE),
//F2ONLY DD DSN=COURSE.ADDONLY,DISP=(NEW,CATLG,DELETE),
//TOOLIN DD *
COPY FROM(F1IN) TO(T1) USING(MATA)
COPY FROM(F2IN) TO(T1) USING(MATB)

SPLICE FROM(T1) TO(MATCH) ON(1,5,CH) -
WITH(32,1) KEEPNODUPS USING(MATC)
/*
//MATACNTL DD *
OUTREC FIELDS=(1:115,5, Course number
6:120,25, Course name
31:C'11') '11' id for File1 records
/*
//MATBCNTL DD *

OUTREC FIELDS=(1:115,5, Course number
6:120,25, Course name
31:C'22') '22' id for File2 records
/*
//MATCCNTL DD *

OUTFIL FNAMES=MATCH,INCLUDE=(31,2,CH,EQ,C'12'),OUTREC=(1,30)
OUTFIL FNAMES=F1ONLY,INCLUDE=(31,2,CH,EQ,C'11'),OUTREC=(1,30)
OUTFIL FNAMES=F2ONLY,INCLUDE=(31,2,CH,EQ,C'22'),OUTREC=(1,30)
/*

OK, forget this example for the moment. Find a very simple JOINKEYS example. Try to run it. If it runs, forget the SPLICE solution. JOINKEYS supercedes SPLICE solutions for matching files.

Do that, then we can explain the "cntl" files. Please show the sysout from your step when you run the JOINKEYS so that we can see what functions/product you have available.

This this one, for instance: syncsort-synctool/compare-two-files-t8101.html#p38049