IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

How to eliminate unwanted record in the same step


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
nkothako

Active User


Joined: 26 Nov 2008
Posts: 125
Location: chennai

PostPosted: Sat Jan 18, 2014 12:24 am
Reply with quote

Code:
//PS050    EXEC PGM=ICETOOL,COND=(4,LT)                     
//TOOLMSG    DD SYSOUT=*                                   
//DFSMSG     DD SYSOUT=*                                   
//SORTIN     DD DSN=File1.SORTED,DISP=SHR       
//           DD DSN=File2.PRVDSN,DISP=SHR       
//OUTPUT     DD DSN=File3.CURDSN,               
//TOOLIN     DD *
SELECT FROM(SORTIN) TO(OUTPUT) ON(1,80,CH) NODUPS
/*
         


CASE #1
The above code working what i need in the below senerio

Sorted file
1
2
3
PRVDSN file
1
2
and desired out put is
3

Case #2
Sorted file
1
2
PRVDSN file
1
2
3
But its writing record 3 of PRVDSN file into output file which I don't want to happen... Is there anyway...highly helpful
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19251
Location: Inside the Matrix

PostPosted: Sat Jan 18, 2014 12:31 am
Reply with quote

Hello,

Suggest you read about JOINKEYS.

There are many examples here in the forum. In the blue line near the top of the page is a SEARCH function. Search for JOINKEYS in this part of the forum (DFSORT/ICetool).

If you are going to do more with the sort, suggest you download a copy of the documentation so it will be convenient.
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1566
Location: Andromeda Galaxy

PostPosted: Sat Jan 18, 2014 1:18 am
Reply with quote

Read the manual about JOIN UNPAIRED

Lots of examples in forum

Also let us know the sort product that is being used
Back to top
View user's profile Send private message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 213
Location: Chennai

PostPosted: Sat Jan 18, 2014 12:43 pm
Reply with quote

Code:

//STEP01 EXEC PGM=SORT,COND=(4,LT)
//SYSOUT   DD SYSOUT=*                                     
//SORTJNF1 DD DSN=File1.SORTED,DISP=SHR       
//SORTJNF2 DD DSN=File2.PRVDSN,DISP=SHR       
//SORTOUT  DD DSN=DSN=File3.CURDSN,DISP=SHR       
//SYSIN    DD *
  JOINKEYS FILE=F1,FIELDS=(1,1,A)                     
  JOINKEYS FILE=F2,FIELDS=(1,1,A)
  REFORMAT FIELDS=(F1:1,Lenthoffile1.sorted)                                       
  JOIN UNPAIRED,F1,ONLY
  SORT FIELDS=COPY
/*
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 

Search our Forum:

Similar Topics
Topic Forum Replies
This topic is locked: you cannot edit posts or make replies. Splice JCL into one record for DD sta... SYNCSORT 2
No new posts Copying data from prev record using SORT SYNCSORT 19
No new posts Break a record into fields, each fiel... SYNCSORT 2
No new posts Creating a single-record file with CO... DFSORT/ICETOOL 8
No new posts SYNCSORT Error - CONTROL FIELD BEYOND... SYNCSORT 10

Back to Top