Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Regarding matching and non-matching records using Icetool

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
suganthyprabha

New User


Joined: 28 Jul 2005
Posts: 58

PostPosted: Mon Aug 22, 2005 12:30 pm    Post subject: Regarding matching and non-matching records using Icetool
Reply with quote

Hi Friends,

I am trying to get the matching and non-matching records.
I am getting out1 and out2 results, but iam not getting out12 records.
Can u please let me know what is the mistake i made.

Code:
                                             
//S1 EXEC PGM=ICETOOL                                               
//TOOLMSG DD SYSOUT=*                                               
//DFSMSG  DD SYSOUT=*                                               
//IN1     DD DSN=A.B.PS1,DISP=SHR                           
//IN2     DD DSN=A.B.PS2,DISP=SHR                           
//OUT12   DD SYSOUT=*                                               
//OUT1    DD SYSOUT=*                                               
//OUT2    DD SYSOUT=*                                               
//T1      DD DSN=&&T1,DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(3,3))     
//T2      DD DSN=&&T2,DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(3,3))     
//CONCAT  DD DSN=*.T1,VOL=REF=*.T1,DISP=(OLD,DELETE)                 
//        DD DSN=*.T2,VOL=REF=*.T2,DISP=(OLD,DELETE)                 
//TOOLIN  DD *                                                       
    COPY FROM(IN1) TO(T1) USING(CTL1)                               
    COPY FROM(IN2) TO(T2) USING(CTL2)                               
    SPLICE FROM(CONCAT) TO(OUT12) ON(1,12,CH) WITH(15,1) -           
    USING(CTL3) KEEPNODUPS   

/*                                                                 
//CTL1CNTL DD *                                                   
    OUTREC FIELDS=(1,12,15:C'11')                                 
//CTL2CNTL DD *                                                   
    OUTREC FIELDS=(1,12,15:C'22')                                 
//CTL3CNTL DD *                                                   
    OUTFIL FNAMES=OUT12,INCLUDE=(15,2,CH,EQ,C'12'),OUTREC=(1,12)   
    OUTFIL FNAMES=OUT1,INCLUDE=(15,2,CH,EQ,C'11'),OUTREC=(1,12)   
    OUTFIL FNAMES=OUT2,INCLUDE=(15,2,CH,EQ,C'22'),OUTREC=(1,12)   
/*                                                                                                       


Thanks and Regards,
Prabha.
Back to top
View user's profile Send private message

Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Mon Aug 22, 2005 9:02 pm    Post subject:
Reply with quote

You need WITH(16,1) instead of WITH(15,1). Go back to the original "Smart DFSORT Trick" at:

http://www.ibm.com/servers/storage/support/software/sort/mvs/tricks/srtmst02.html#t05

and you'll see that you missed that.

Also note that I changed the trick to use a MOD T1 data set instead of concatenated T1/T2 data sets. This avoids a problematical system restriction. So your job should be:

Code:

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG  DD SYSOUT=*
//IN1     DD DSN=A.B.PS1,DISP=SHR
//IN2     DD DSN=A.B.PS2,DISP=SHR
//OUT12   DD SYSOUT=*
//OUT1    DD SYSOUT=*
//OUT2    DD SYSOUT=*
//T1      DD DSN=&&T1,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(TRK,(6,6))
//TOOLIN  DD *
    COPY FROM(IN1) TO(T1) USING(CTL1)
    COPY FROM(IN2) TO(T1) USING(CTL2)
    SPLICE FROM(T1) TO(OUT12) ON(1,12,CH) WITH(16,1) -
    USING(CTL3) KEEPNODUPS
/*
//CTL1CNTL DD *
    OUTREC FIELDS=(1,12,15:C'11')
//CTL2CNTL DD *
    OUTREC FIELDS=(1,12,15:C'22')
//CTL3CNTL DD *
    OUTFIL FNAMES=OUT12,INCLUDE=(15,2,CH,EQ,C'12'),OUTREC=(1,12)
    OUTFIL FNAMES=OUT1,INCLUDE=(15,2,CH,EQ,C'11'),OUTREC=(1,12)
    OUTFIL FNAMES=OUT2,INCLUDE=(15,2,CH,EQ,C'22'),OUTREC=(1,12)
/*
Back to top
View user's profile Send private message
suganthyprabha

New User


Joined: 28 Jul 2005
Posts: 58

PostPosted: Tue Aug 23, 2005 10:20 am    Post subject: Re: Regarding matching and non-matching records using Icetoo
Reply with quote

Hi Frank,

Thank u so much. i have corrected it.

Thanks and Regards,
Prabha.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Using ICETOOL, how we can seperate th... bshkris SYNCSORT 5 Tue May 09, 2017 8:33 pm
No new posts Check if any Detail records and extra... V S Amarendra Reddy SYNCSORT 19 Mon May 08, 2017 8:54 pm
No new posts Group elements using ICETOOL Learncoholic DFSORT/ICETOOL 2 Fri Apr 14, 2017 11:01 am
No new posts Join giving more records than expected Danielle.Filteau SYNCSORT 2 Thu Mar 09, 2017 3:28 am
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us