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
 

 

ICETOOL SPLICE Problem

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

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Tue Nov 25, 2008 11:56 pm    Post subject: ICETOOL SPLICE Problem
Reply with quote

I have two files that have been sort together and am having a problem finding the appropriate SPLICE control cards to have them merged.

Code:

----+----1----+----2----+----3----+----4----+----5----+----6----+----7
                            GROUP1            X           
FIELD1:AAAAAAAAAAAAAAAAAAAA:GROUP1  :RRRRRRRR:
FIELD1:BBBBBBBBBBBBBBBBBBBB:GROUP1  :RRRRRRRR:
FIELD1:CCCCCCCCCCCCCCCCCCCC:GROUP1  :AAAAAAAA:
FIELD1:DDDDDDDDDDDDDDDDDDDD:GROUP2  :UUUUUUUU:
FIELD1:EEEEEEEEEEEEEEEEEEEE:GROUP2  :AAAAAAAA:
FIELD1:FFFFFFFFFFFFFFFFFFFF:GROUP2  :RRRRRRRR:
                            GROUP3            Y           
FIELD2:GGGGGGGGGGGGGGGGGGGG:GROUP3  :RRRRRRRR:
FIELD2:HHHHHHHHHHHHHHHHHHHH:GROUP3  :RRRRRRRR:
FIELD3:IIIIIIIIIIIIIIIIIIII:GROUP4  :RRRRRRRR:
FIELD3:JJJJJJJJJJJJJJJJJJJJ:GROUP4  :UUUUUUUU:


I want match on "GROUP? " in positions 29-36 and if they match..... the "X" or "Y" in position 47 should overlay the matched records. I also want to keep all the other records intact. The problem I am having is the records with GROUP2 or GROUP4 attempt to SPLICE according to field 29-36 and I lose records.

Code:

----+----1----+----2----+----3----+----4----+----5----+----6----+----7
FIELD1:AAAAAAAAAAAAAAAAAAAA:GROUP1  :RRRRRRRR:X
FIELD1:BBBBBBBBBBBBBBBBBBBB:GROUP1  :RRRRRRRR:X
FIELD1:CCCCCCCCCCCCCCCCCCCC:GROUP1  :AAAAAAAA:X
FIELD1:DDDDDDDDDDDDDDDDDDDD:GROUP2  :UUUUUUUU:
FIELD1:EEEEEEEEEEEEEEEEEEEE:GROUP2  :AAAAAAAA:
FIELD1:FFFFFFFFFFFFFFFFFFFF:GROUP2  :RRRRRRRR:
FIELD2:GGGGGGGGGGGGGGGGGGGG:GROUP3  :RRRRRRRR:Y
FIELD2:HHHHHHHHHHHHHHHHHHHH:GROUP3  :RRRRRRRR:Y
FIELD3:IIIIIIIIIIIIIIIIIIII:GROUP4  :RRRRRRRR:
FIELD3:JJJJJJJJJJJJJJJJJJJJ:GROUP4  :UUUUUUUU:


Any suggestion or solution would be appreciated.
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: Wed Nov 26, 2008 12:09 am    Post subject:
Reply with quote

You can use KEEPBASE to keep the first record of each group. According to your example, that would keep these records:

Code:

                            GROUP1            X
...
FIELD1:DDDDDDDDDDDDDDDDDDDD:GROUP2  :UUUUUUUU:
...
                            GROUP3            Y
...
FIELD3:IIIIIIIIIIIIIIIIIIII:GROUP4  :RRRRRRRR:


Now you can just use an appropriate OUTFIL OMIT to get rid of those first GROUP1 and GROUP3 records based on blanks in some position (e.g. 1-5).
Back to top
View user's profile Send private message
cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Wed Nov 26, 2008 12:27 am    Post subject: Reply to: ICETOOL SPLICE Problem
Reply with quote

KEEPBASE solved the primary problem, but I was still losing some records which turned out to be records that were not duplicates according to positions 29-36. I found an example on page 602 of the V1R8.0 DFSORT Application Programming Guide that suggested using KEEPNODUPS (with WITHALL and KEEPBASE) and now all records are accounted for.

Thank you for your help Frank and have a Happy Thanksgiving. Your assistance to this board is invaluable.
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: Wed Nov 26, 2008 12:42 am    Post subject:
Reply with quote

Right. You need KEEPNODUPS for nondups. I'm glad you figured it out.

Thanks for the kind words and I wish you a Happy Thanksgiving as well.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Wed Nov 26, 2008 3:52 am    Post subject:
Reply with quote

Hi,

do you mind posting the code.


Thanks



Gerry
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 SYMNAMES problem jacobdng DFSORT/ICETOOL 7 Thu Dec 22, 2016 7:47 am
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts How to delete second instance from Fl... Gunapala CN DFSORT/ICETOOL 6 Tue Oct 18, 2016 11:42 pm
No new posts Problem in Running Query via JCL vickey_dw DB2 3 Tue Oct 18, 2016 11:11 pm
No new posts ICETOOL/SYNCSORT - SYSPRINT output nartcr DFSORT/ICETOOL 17 Wed Oct 05, 2016 10:46 pm


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