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
 
Compare two VB files using JoinKeys

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

Active User


Joined: 23 Jul 2008
Posts: 106
Location: USA

PostPosted: Thu Feb 04, 2010 3:43 pm    Post subject: Compare two VB files using JoinKeys
Reply with quote

Hi,

My requirements is as follows.

I have two VB files of (27990 + 4 bytes) sorted in same order. I have to compare the two files and get the unmatched records from file F1.

Code used:

Code:

//SYSIN  DD *
 JOINKEYS FILES=F1,FIELDS=(33,5,A,44,5,A,112,4,A,116,20,A,236,4,A,
      649,10,A,706,5,A,711,5,A,727,5,A),TYPE=V
 JOINKEYS FILES=F2,FIELDS=(33,5,A,44,5,A,112,4,A,116,20,A,236,4,A,
      649,10,A,706,5,A,711,5,A,727,5,A),TYPE=V
 REFORMAT FIELDS=(F1:1,4,F1:5,27990),FILL=X'FF'
 JOIN UNPAIRED,F1
 SORT FIELDS=COPY
 OUTFIL FNAMES=NOMATCH,INCLUDE=(27991,1,BI,NE,X'FF'),
               OUTREC=(1,4,5,27990)
/*


Sysout:
Code:

SYSIN :
 JOINKEYS FILES=F1,FIELDS=(33,5,A,44,5,A,112,4,A,116,20,A,236,4,A,
      649,10,A,706,5,A,711,5,A,727,5,A),TYPE=V
 JOINKEYS FILES=F2,FIELDS=(33,5,A,44,5,A,112,4,A,116,20,A,236,4,A,
      649,10,A,706,5,A,711,5,A,727,5,A),TYPE=V
 REFORMAT FIELDS=(F1:1,4,F1:5,27990),FILL=X'FF'
 JOIN UNPAIRED,F1
 SORT FIELDS=COPY
 OUTFIL FNAMES=NOMATCH,INCLUDE=(27991,1,BI,NE,X'FF'),
               OUTREC=(1,4,5,27990)
WER276B  SYSDIAG= 13193, 345664, 345664, 2700990
WER164B  5,448K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B     0 BYTES RESERVE REQUESTED, 1,008K BYTES USED
WER146B  12K BYTES OF EMERGENCY SPACE ALLOCATED
WER481I  JOINKEYS REFORMAT RECORD LENGTH=27994, TYPE = F
WER202A  NOMATCH  RECFM INCOMPATIBLE
WER110I  NOMATCH  : RECFM=VB   ; LRECL= 27994; BLKSIZE=
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
WER482I  JNF1 STATISTICS


Could some one help?
Back to top
View user's profile Send private message

Arun Raj

Moderator


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

PostPosted: Thu Feb 04, 2010 5:13 pm    Post subject:
Reply with quote

Code:
WER481I  JOINKEYS REFORMAT RECORD LENGTH=27994, TYPE = F
WER202A  NOMATCH  RECFM INCOMPATIBLE
WER110I  NOMATCH  : RECFM=VB   ; LRECL= 27994; BLKSIZE=
Mathiv Anan,

Dont you think the above SYSOUT messages tell something about the problem?
Back to top
View user's profile Send private message
Mathiv Anan

Active User


Joined: 23 Jul 2008
Posts: 106
Location: USA

PostPosted: Thu Feb 04, 2010 6:25 pm    Post subject: Reply to: Compare two VB files using JoinKeys
Reply with quote

May be some problem in my post.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8154
Location: East Dubuque, Illinois, USA

PostPosted: Thu Feb 04, 2010 6:34 pm    Post subject:
Reply with quote

The system is telling you that your record format is incompatible and you think it may be a problem in your post? If you're not willing to believe what the computer tells you the problem is, why are you coming to us for help? The computer has already told you the problem; we're not likely to add any insight to what the message says.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2441
Location: Netherlands, Amstelveen

PostPosted: Thu Feb 04, 2010 6:37 pm    Post subject:
Reply with quote

Robert Sample wrote:
The system is telling you that your record format is incompatible and you think it may be a problem in your post? If you're not willing to believe what the computer tells you the problem is, why are you coming to us for help? The computer has already told you the problem; we're not likely to add any insight to what the message says.


I only did believe computers when they addressed me by name icon_evil.gif
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8154
Location: East Dubuque, Illinois, USA

PostPosted: Thu Feb 04, 2010 6:39 pm    Post subject:
Reply with quote

Quote:
I only did believe computers when they addressed me by name
LOL, Peter -- first or last or did it matter? icon_smile.gif
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2441
Location: Netherlands, Amstelveen

PostPosted: Thu Feb 04, 2010 6:49 pm    Post subject:
Reply with quote

Robert Sample wrote:
Quote:
I only did believe computers when they addressed me by name
LOL, Peter -- first or last or did it matter? icon_smile.gif


During dating i liked it when the computer used first name. After doing
a very nice job (mostly all the time), i preferred the use of my full name
in caps, and bold and a very large font size.
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 Compare yesterday's date to the one o... migusd SYNCSORT 7 Fri Sep 22, 2017 11:35 pm
No new posts Comparing 2 Files using Current time arunsoods DFSORT/ICETOOL 2 Fri Sep 22, 2017 6:00 pm
No new posts Split 1 file into 10 output Files - S... Prasanth Kumar SYNCSORT 5 Sat Sep 16, 2017 12:02 am
No new posts Join records from 2 files with No Dup... Poha Eater DFSORT/ICETOOL 21 Sun Aug 27, 2017 10:35 pm
No new posts Match two files using multiple keys a... santoshks1987 SYNCSORT 11 Fri Aug 18, 2017 10:50 am

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