Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 2285
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 write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts Addition of two records on 2 fields amar143 SYNCSORT 8 Tue Oct 03, 2017 11:14 am
No new posts JOINKEYS Paired and Unpaired Sort MFwhiz DFSORT/ICETOOL 4 Fri Sep 29, 2017 1:48 am
No new posts FTP Skip or ignore error and process ... AJAYREDDY All Other Mainframe Topics 3 Wed Sep 27, 2017 8:12 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us