Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
ICETOOL SPLICE - Simple duplicate - Need help

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

Active User


Joined: 04 Oct 2006
Posts: 118
Location: NJ, USA

PostPosted: Tue Dec 28, 2010 3:16 am    Post subject: ICETOOL SPLICE - Simple duplicate - Need help
Reply with quote

Hi,
I have 2 files and want to find out duplicates based on two fields.
The two files are FB Lrecl= 800
Here is my control card. I get my duplicate file as empty! though there are dups
Code:
//TOOLIN DD *                                                   
COPY FROM(IN1) TO(T1) USING(CTL1)                               
COPY FROM(IN2) TO(T1) USING(CTL2)                               
SPLICE FROM(T1) TO(DUPL) ON(130,8,CH) ON(362,9,ZD) -             
  KEEPNODUPS KEEPBASE WITHALL WITH(1,800) USING(CTL3)           
/*                                                               
//CTL1CNTL DD *                                                 
  INREC OVERLAY=(800:C'11')                                     
/*                                                               
//CTL2CNTL DD *                                                 
  INREC OVERLAY=(800:C'22')                                     
/*                                                               
//CTL3CNTL DD *                                                 
  OUTFIL FNAMES=DUPL,INCLUDE=(800,2,CH,EQ,C'12'),BUILD=(1,800)   
  OUTFIL FNAMES=F1ONLY,INCLUDE=(800,2,CH,EQ,C'11'),BUILD=(1,800)
  OUTFIL FNAMES=F2ONLY,INCLUDE=(800,2,CH,EQ,C'22'),BUILD=(1,800)
/*                                                               
//                                                               


Any help will be appreciated.
Thanks,
Viji
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: Tue Dec 28, 2010 7:20 am    Post subject:
Reply with quote

Please show an example of the records in each input file (relevant fields only) and what you expect for output. Explain the "rules" for getting from input to output. Give the starting position, length and format of each relevant field. If file1 can have duplicates within it, show that in your example. If file2 can have duplicates within it, show that in your example.

Also, run this job and show the //SYSOUT messages you receive, so I can see what level you're at:

Code:

//S1    EXEC  PGM=SORT
//SYSOUT    DD  SYSOUT=*
//SORTIN DD *
RECORD
//SORTOUT DD DUMMY
//SYSIN    DD    *
    OPTION COPY
/*
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 WRITE to VSAM giving duplicate RC picus_mf CICS 1 Fri Feb 23, 2018 2:52 pm
No new posts add sequence number for duplicate rec... SRUTHI DRAVIDAMANI COBOL Programming 11 Thu Feb 22, 2018 5:37 pm
No new posts how to add the amount for duplicate r... SRUTHI DRAVIDAMANI COBOL Programming 6 Wed Feb 21, 2018 7:21 pm
No new posts ICETOOL - RESIZE DYNAMICALLY kranthikumarb DFSORT/ICETOOL 0 Tue Nov 21, 2017 5:30 pm
No new posts Splice more than 50 occurances rajatbagga DFSORT/ICETOOL 1 Wed Oct 11, 2017 9:36 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us