|
|
| Author |
Message |
Mathiv Anan
New User
Joined: 23 Jul 2008
Posts: 94
Location: India
|
|
|
|
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 |
|
 |
References
|
|
 |
Arun Raj
Senior Member
Joined: 17 Oct 2006
Posts: 1565
Location: Chennai, India
|
|
|
|
| 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 |
|
|
Mathiv Anan
New User
Joined: 23 Jul 2008
Posts: 94
Location: India
|
|
|
|
| May be some problem in my post. |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 4259
Location: Atlanta, GA
|
|
|
|
| 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 |
|
|
PeterHolland
Active Member
Joined: 27 Oct 2009
Posts: 531
Location: Netherlands, Amstelveen
|
|
|
|
| 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  |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 4259
Location: Atlanta, GA
|
|
|
|
| Quote: |
| I only did believe computers when they addressed me by name |
LOL, Peter -- first or last or did it matter?  |
|
| Back to top |
|
|
PeterHolland
Active Member
Joined: 27 Oct 2009
Posts: 531
Location: Netherlands, Amstelveen
|
|
|
|
| Robert Sample wrote: |
| Quote: |
| I only did believe computers when they addressed me by name |
LOL, Peter -- first or last or did it matter? |
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 |
|
|
|
|
|
