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
 

 

Query regarding ICETOOL

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

Active User


Joined: 29 Dec 2005
Posts: 181
Location: Canada

PostPosted: Mon Apr 24, 2006 10:28 am    Post subject: Query regarding ICETOOL
Reply with quote

Hi,
This is my first use of ICETOOL, but I am not getting desired results.
I want to write the common records between the two datasets into another dataset.
Code:

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=XXXXXXXX.COMP,DISP=SHR
//*N2 DD DSN=YYYYYYY.COMP.A,DISP=SHR
//IN2 DD DSN=ZZZZZZZZZZ,DISP=SHR
//OUT12 DD  SYSOUT=*
//OUT1  DD  SYSOUT=*
//OUT2  DD  SYSOUT=*
//T1   DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),
//        DISP=(MOD,PASS)
//TOOLIN DD *
COPY FROM(IN2) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(OUT1) USING(CTL1)
COPY FROM(IN1) TO(T1) USING(CTL2)
COPY FROM(IN1) TO(OUT2) USING(CTL2)
SPLICE FROM(T1) TO(OUT12) ON(1,16,CH) WITH(6503,1) -
USING(CTL3)
//CTL1CNTL DD *
  OUTREC FIELDS=(1,6500,6502:C'11')
/*
//CTL2CNTL DD *
  OUTREC FIELDS=(1,96,6502:C'22')
/*
//CTL3CNTL DD *
  OUTFIL FNAMES=OUT12,INCLUDE=(6502,2,CH,EQ,C'12')
/*


I am not getting anything in OUT12?? can anybody tell me why??

Thanks
Back to top
View user's profile Send private message

sril.krishy

Active User


Joined: 30 Jul 2005
Posts: 183
Location: hyderabad

PostPosted: Mon Apr 24, 2006 4:38 pm    Post subject:
Reply with quote

Hi,
Could you please provide the sample data for the 2 i/p files.Do you have any duplicate values either of the files etc.. will need to be known before getting the desired results.

Please put some dummy data for both the files and the desired o/p as well.

Thank you
Krishy
Back to top
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Mon Apr 24, 2006 6:05 pm    Post subject: Re: Query regarding ICETOOL
Reply with quote

What is LRECL for IN1 & IN2 ...??

Regards,
Priyesh.
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 Need DB2 query to fetch previous row ! Chandan1993 DB2 10 Sat Jun 03, 2017 10:43 am
No new posts Using ICETOOL, how we can seperate th... bshkris SYNCSORT 5 Tue May 09, 2017 8:33 pm
No new posts Group elements using ICETOOL Learncoholic DFSORT/ICETOOL 2 Fri Apr 14, 2017 11:01 am
No new posts JCL to Set Return code based on DB2 S... vinu78 DB2 17 Mon Mar 13, 2017 9:47 pm
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm


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