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
 

 

To Keep the Duplicates..

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
genesis786

Active User


Joined: 28 Sep 2005
Posts: 210
Location: St Katherine's Dock London

PostPosted: Thu Apr 23, 2009 3:56 pm    Post subject: To Keep the Duplicates..
Reply with quote

Hi

i am using the below code to join two files. but the duplicates of the key (pos 19 len 15) are being missed in the output file. how can i keep the duplicates in the output file?

Code:

 COPY FROM(IN1) TO(T1)                           
 COPY FROM(IN2) TO(T1) USING(CTL1)               
 SPLICE FROM(T1) TO(T2) ON(19,15,CH) WITH(50,75) 
 COPY FROM(IN2) TO(T2) USING(CTL2)               
 SPLICE FROM(T2) TO(OUT) ON(19,15,CH) WITH(56,75)
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: Thu Apr 23, 2009 9:36 pm    Post subject:
Reply with quote

You didn't give enough information about what you're doing for a complete answer. I suspect WITHALL is part of the solution, but there's probably more that has to be done as well depending on exactly what you're trying to do. It's not clear why you're using two SPLICE operators either.

Are you using DFSORT or Syncsort?
Back to top
View user's profile Send private message
genesis786

Active User


Joined: 28 Sep 2005
Posts: 210
Location: St Katherine's Dock London

PostPosted: Thu Apr 23, 2009 10:26 pm    Post subject:
Reply with quote

SYNCSORT Frank. icon_sad.gif I know you don't answer syncsort questions.

This is IN1:

lrecl=75 .. used bytes till 48

Code:

IE600RNT00   IE600RNT   600RNT00   600RNT
UK600RNT00   UK600RNT   600RNT00   600RNT
UKAAEFIN01   UKAAEFIN   AAEFIN01   AAEFINZ
UKACC2NF00   UKACC2NF   ACC2NF00   ACC2NFZ
UKADFXD1BO   UKADFXD1   ADFXD1BO   ADFXD
UKAISPICBO   UKAISPIC   AISPICBO   AISPIC


IN2:

Code:

101600RNT00 ...... <<till POS 90>> UKC93
102600RNT00 ...... <<till POS 90>> IEA5M
101AAEFIN01 ...... <<till POS 90>> UKDKG
101ACC2NF00 ...... <<till POS 90>> UKDAG
101ADFXD1BO ...... <<till POS 90>> UKC0L
101AISPICBO ...... <<till POS 90>> UKC6P


In the output file i need the output as

Code:

IE600RNT00   IE600RNT   600RNT00   600RNT  UKC93 IEA5M
UK600RNT00   UK600RNT   600RNT00   600RNT  UKC93 IEA5M
UKAAEFIN01   UKAAEFIN   AAEFIN01   AAEFINZ UKDKG
UKACC2NF00   UKACC2NF   ACC2NF00   ACC2NFZ UKDAG
UKADFXD1BO   UKADFXD1   ADFXD1BO   ADFXD   UKC0L
UKAISPICBO   UKAISPIC   AISPICBO   AISPIC  UKC6P


but comes as

Code:

IE600RNT00   IE600RNT   600RNT00   600RNT  UKC93 IEA5M
UKAAEFIN01   UKAAEFIN   AAEFIN01   AAEFINZ UKDKG
UKACC2NF00   UKACC2NF   ACC2NF00   ACC2NFZ UKDAG
UKADFXD1BO   UKADFXD1   ADFXD1BO   ADFXD   UKC0L
UKAISPICBO   UKAISPIC   AISPICBO   AISPIC  UKC6P


Whoa! WITHALL worked! icon_smile.gif thanks..
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Removing Duplicates based on certain ... chandracdac DFSORT/ICETOOL 8 Fri Dec 09, 2016 4:40 am
No new posts Updating the counters after eliminati... PANDU1 DFSORT/ICETOOL 12 Mon Nov 21, 2016 9:47 am
No new posts SORT CARD to remove duplicates & ... mkk157 DFSORT/ICETOOL 17 Tue Jul 08, 2014 9:04 pm
No new posts Remove the duplicates without sorting... maki_psg JCL & VSAM 13 Tue May 13, 2014 10:32 pm
No new posts Having issues removing duplicates thesumitk JCL & VSAM 8 Sat Apr 26, 2014 4:01 pm


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