| View previous topic :: View next topic |
| Author |
Message |
seekaysk
Beginner
Joined: 31 Aug 2007
Posts: 49
Topics: 15
|
 Posted: Fri Sep 28, 2007 8:19 am Post subject: Using Select to find the duplicates but not working |
 |
|
Hi,
I have two FB files of length 18.
File1:
| Code: | 17bytes Account no. + 1 space
...
... |
File2:
| Code: | 17bytes Account no. + 1 character (can be anything from A to Z)
...
... |
Output file (FB 18):
| Code: | Account no. matching in both file + 1 corresonding character from file2
...
... |
I am using Select but it's failing. I have used it before but never got this problem. It gives me message "ICE027A 9 END OF OUT FIELD BEYOND MAXIMUM RECORD LENGTH"
It looks like something silly but it has taken a lot of my time. Can somebody please help. Thanks a lot.
| Code: | //TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(T1) USING(CTL2)
SELECT FROM(T1) TO(OUT) ON(1,17,CH) ALLDUPS USING(CTL3)
/*
//CTL1CNTL DD *
INREC OVERLAY=(19:C'1')
/*
//CTL2CNTL DD *
INREC OVERLAY=(19:C'2')
/*
//CTL3CNTL DD *
OUTFIL FNAMES=OUT,INCLUDE=(19,1,CH,EQ,C'2'),
BUILD=(1,18)
/* |
|
|
| Back to top |
|
 |
CICS Guy
Intermediate
Joined: 30 Apr 2007
Posts: 292
Topics: 3
|
| Posted: Fri Sep 28, 2007 8:30 am Post subject: |
|
|
| What does the OUT DD look like? |
|
| Back to top |
|
|
seekaysk
Beginner
Joined: 31 Aug 2007
Posts: 49
Topics: 15
|
| Posted: Fri Sep 28, 2007 8:41 am Post subject: |
|
|
OUT DD is 18 bytes LRECL.
One more thing. I just converted the input files to 19 bytes (OUT DD still 18 bytes) and it works fine. This is just a workaround. I don't think we need input files to the size what we are Overalying in CTL1 and CTL2. Please correct me.
Thanks.
_________________
Thanks. |
|
| Back to top |
|
|
Frank Yaeger
Sort Forum Moderator
Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
|
| Posted: Fri Sep 28, 2007 10:31 am Post subject: |
|
|
This is a duplicate of your other thread "Extract records from File2 depending on File1". I've requested more information in that thread. Please respond in that thread. Please don't post the same question more than once.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
