MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Splice Every record should be spliced with every prev match

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
naveen_summary
Beginner


Joined: 12 Feb 2007
Posts: 26
Topics: 13

PostPosted: Tue May 29, 2007 11:34 am    Post subject: Splice Every record should be spliced with every prev match Reply with quote

Gurus,

Can this be achieved via Splice/ICETOOL.

File1:

Quote:
00037NCU8AA200604AA
00037NCU8BB200604BB

File2:

Quote:
00037NCU8YY20070201
00037NCU8ZZ20070209

Outfile:

Quote:
00037NCU8AA20070201
00037NCU8BB20070201
00037NCU8AA20070209
00037NCU8BB20070209

The Splice should be done ON(1,8 - 00037NCU8) and the WITH should be (12,8 i.e, 20070201/20070209)

Here, every record in the file2 should splice with every record in File1

Regards,
Back to top
View user's profile Send private message
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose

PostPosted: Tue May 29, 2007 11:46 am    Post subject: Reply with quote

SPLICE cannot do that kind of Cartesian join.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Tue May 29, 2007 1:49 pm    Post subject: Reply with quote

naveen_summary,

You can try the trick listed here

http://www.mvsforums.com/helpboards/viewtopic.php?t=6271&highlight=cartesian

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose

PostPosted: Tue May 29, 2007 4:57 pm    Post subject: Reply with quote

Hmmm ... I forgot about that Trick.

naveen,

Let us know if this is actually practical in your situation.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Wed May 30, 2007 8:59 am    Post subject: Reply with quote

I am updating the trick in our JCL/SORT FAQ Page (2 places). Please see the links below.

http://www.mvsforums.com/helpboards/viewtopic.php?p=40793#40793
http://www.mvsforums.com/helpboards/viewtopic.php?p=40794#40794

Thanks,
Phantom
Back to top
View user's profile Send private message
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose

PostPosted: Fri Nov 20, 2009 1:30 pm    Post subject: Reply with quote

With z/OS DFSORT V1R5 PTF UK51706 or z/OS DFSORT V1R10 PTF UK51707 (Nov, 2009), DFSORT now supports the JOINKEYS function which can do a Cartesian join. For this example, the DFSORT job would be:

Code:

//S1    EXEC  PGM=SORT
//SYSOUT    DD  SYSOUT=*
//IN1 DD *
00037NCU8AA200604AA
00037NCU8BB200604BB
/*
//IN2 DD *
00037NCU8YY20070201
00037NCU8ZZ20070209
/*
//SORTOUT DD SYSOUT=*
//SYSIN    DD    *
  JOINKEYS F1=IN2,FIELDS=(1,8,A)
  JOINKEYS F2=IN1,FIELDS=(1,8,A)
  REFORMAT FIELDS=(F2:1,11,F1:12,8)
  OPTION COPY
/*


For complete details on JOINKEYS and the other new functions available with the Nov, 2009 DFSORT PTF, see:

http://www.ibm.com/support/docview.wss?rs=114&uid=isg3T7000174
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group