ICETOOL/ICEMAN Help needed !

[denis.dhimitri]

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

[skolusu]

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

Code: 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

Code: 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

Code: Select all

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


[denis.dhimitri]

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

Best regards
Denis Dhimitri