IBM Mainframe Forum

by **denis.dhimitri** » Thu May 22, 2008 3:44 pm

Hello Mr. Yaeger,

I'm here again with a request for you if you'll have some time to deal with this:

I have 2 INPUT files LRECL=80 both. The 1-st File has no duplicate values in it and the 2-nd one has duplicates.

INPUT 1:
DENIS01AAA
MARCO01AAA
PAOLO01AAA

INPUT 2:
DENIS01CCC
DENIS02CCC
DENIS03CCC
MARCO01CCC
MARCO02CCC
PAOLO01CCC
PAOLO02CCC
PAOLO03CCC
PAOLO04CCC
JOHN01CCC
JOHN02CCC
PETER01CCC
PETER02CCC
PETER03CCC

The 1-st OUTPUT should have all values that are present in 1-st INPUT repeted for how many times those are present in the 2-nd INPUT:

OUTPUT 1:
DENIS01AAA
DENIS02AAA
DENIS03AAA
MARCO01AAA
MARCO02AAA
PAOLO01AAA
PAOLO02AAA
PAOLO03AAA
PAOLO04AAA

The 2-nd OUTPUT should have all values that are not present in 1-st INPUT but exists in the 2-nd INPUT:

OUTPUT 2:
JOHN01CCC
JOHN02CCC
PETER01CCC
PETER02CCC
PETER03CCC

How can this can be done with ICETOOL or ICEMAN. Thank you very much in advance Mr. Yaeger. Hope you'll help me out.

Best regards
Denis Dhimitri

by **skolusu** » Thu May 22, 2008 11:29 pm

The following DFSORT/ICETOOL JCL will give you the desired results

Select all

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD *
----+----1----+----2----+----3----+----4----+----5----+
DENIS 01 AAA
MARCO 01 AAA
PAOLO 01 AAA
//IN2 DD *
DENIS 01 CCC
DENIS 02 CCC
DENIS 03 CCC
MARCO 01 CCC
MARCO 02 CCC
PAOLO 01 CCC
PAOLO 02 CCC
PAOLO 03 CCC
PAOLO 04 CCC
JOHN 01 CCC
JOHN 02 CCC
PETER 01 CCC
PETER 02 CCC
PETER 03 CCC
//T1 DD DSN=&&T1,DISP=(MOD,PASS),SPACE=(CYL,(1,1),RLSE)
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN1) USING(CTL1)
COPY FROM(IN2) USING(CTL2)
SPLICE FROM(T1) TO(OUT1) ON(1,10,CH) -
WITHALL WITH(01,80) KEEPBASE KEEPNODUPS USING(CTL3)
//CTL1CNTL DD *
OUTFIL FNAMES=T1,BUILD=(1,10,70X'FF',1,10)
//CTL2CNTL DD *
OUTFIL FNAMES=T1,OVERLAY=(81:10X)
//CTL3CNTL DD *
OUTFIL FNAMES=OUT1,BUILD=(01,80),
INCLUDE=((1,10,CH,EQ,81,10,CH),AND,11,1,CH,NE,X'FF')
OUTFIL FNAMES=OUT2,BUILD=(01,80),
INCLUDE=(11,1,CH,NE,X'FF',AND,81,10,CH,EQ,C' ')

The output for OUT1 is

Select all

DENIS 01 CCC
DENIS 02 CCC
DENIS 03 CCC
MARCO 01 CCC
MARCO 02 CCC
PAOLO 01 CCC
PAOLO 02 CCC
PAOLO 03 CCC
PAOLO 04 CCC

The output for OUT2 is

Select all

JOHN 01 CCC
JOHN 02 CCC
PETER 01 CCC
PETER 02 CCC
PETER 03 CCC

by **denis.dhimitri** » Fri May 23, 2008 4:07 pm

Thanks a lot for helping me Mr.Skolusu, the card you gave me worked fine. I appreciate it very much.

Best regards
Denis Dhimitri

IBM Mainframe Forum

ICETOOL/ICEMAN Help needed !

ICETOOL/ICEMAN Help needed !

Re: ICETOOL/ICEMAN Help needed !

Re: ICETOOL/ICEMAN Help needed !