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
 

 

Sort to Compare 2 files and write mismatch records

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

New User


Joined: 29 Jun 2007
Posts: 1
Location: Hyderabad

PostPosted: Thu Nov 12, 2009 4:09 pm    Post subject: Sort to Compare 2 files and write mismatch records
Reply with quote

Hello All,

I have a requiremet to compare 2 files of same lrecl. I have to do one to one comparison(like how we will do in Super C) and need to output the different entries in both files along with the file name.

I have gone through different options given in DFSORT&ICETOOL Topic. I have used the JCL code given in the post "http://www.ibmmainframes.com/about33947.html"
But this is accepting and doing compare on only first 80 bytes. But I have to comparison on file with LRECL 491. When I have changed the respective parameters corresponding to 491 as shown below:
//TOOLIN DD *
Code:

  SORT FROM(PREV) USING(CTL1)                                 
  SORT FROM(CURR) USING(CTL1)                                 
  SELECT FROM(T1) TO(OUT) ON(1,499,CH) NODUPS USING(CTL2)     
//CTL1CNTL DD *                                               
  SORT FIELDS=(1,491,CH,A)                                     
  OUTFIL FNAMES=T1,OVERLAY=(492:SEQNUM,8,ZD,RESTART=(1,491))   
//CTL2CNTL DD *                                               
  OUTFIL FNAMES=OUT,BUILD=(1,491)                             
/*                                                             

It is throwing an error in Sysout as shown below.
SORT FIELDS=(1,491,CH,A)
OUTFIL FNAMES=T1,OVERLAY=(492:SEQNUM,8,ZD,RESTART=(1,491))
*
WER428I CALLER-PROVIDED IDENTIFIER IS "0001"
WER271A OUTFIL STATEMENT : NUMERIC FIELD ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

Could you please have a look and resolve my issue.

Along with that I want to output the file name also along with different records in both files. And I have 3 different sets of input files each having different LRECL (491,206,479). I have to do the same kind of comparison for all these files. Can you please help me to accomplish this.
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Nov 12, 2009 4:16 pm    Post subject:
Reply with quote

The reason for the failure is that you are using DFSORT statements for the SYNCSORT product.

Topic moved to JCL forum - for SYNCSORT
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2276
Location: @my desk

PostPosted: Fri Nov 13, 2009 12:21 am    Post subject:
Reply with quote

Hello,

I am not sure, but from the error description given above, it seems like the problem is caused since a length parameter exceeded its maximum limit. All the control statements used by the OP are supported by even older versions of SyncSort.
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 How to change 'K' or 'M' use Sort vice_versa DFSORT/ICETOOL 5 Thu May 18, 2017 7:11 am
No new posts member list compare jzhardy TSO/ISPF 6 Fri May 12, 2017 3:18 pm
No new posts Check if any Detail records and extra... V S Amarendra Reddy SYNCSORT 19 Mon May 08, 2017 8:54 pm
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
No new posts Unable to create multiple files using... mbattu COBOL Programming 3 Fri May 05, 2017 5:35 pm


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