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: 2287
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: 8201
Location: Dubuque, Iowa, 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: 2445
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: 8201
Location: Dubuque, Iowa, 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: 2445
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 VSAM files using DFSORT pshongal DFSORT/ICETOOL 5 Thu Nov 23, 2017 10:24 am
No new posts Compare and COPY using DFSORT pshongal DFSORT/ICETOOL 3 Fri Nov 17, 2017 9:49 am
No new posts Split files upto certain limit based ... bubbu75 DFSORT/ICETOOL 5 Tue Nov 14, 2017 11:11 pm
No new posts JOINKEYS Paired and Unpaired Sort on ... MFwhiz DFSORT/ICETOOL 7 Tue Nov 07, 2017 2:46 am
No new posts Copy selected columns from 2 input fi... Poha Eater DFSORT/ICETOOL 3 Thu Nov 02, 2017 3:43 pm

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