|
View previous topic :: View next topic
|
| Author |
Message |
jaganmoni1
New User
Joined: 31 Oct 2008
Posts: 35
Location: CANADA
|
|
|
|
Hi,
I have two files. File1 is FB PS file and LRECL is 250 and File2 is also FB PS file and LRECL is 200.
The key value in file1 and file2 are placed in first 16 bytes (i.e. from column 1 to 16 and the type is 9(16)).
I want to compare file1 key with file2 key, if the key matches and if 20th position of file2 value is value “ ” i.e. blank then only file1 record should be written in output file.
Note: In output file I need only first 50,000 matching records. |
|
| Back to top |
|
 |
arvind.m
Active User
Joined: 28 Aug 2008
Posts: 205
Location: Hyderabad
|
|
| Back to top |
|
|
jaganmoni1
New User
Joined: 31 Oct 2008
Posts: 35
Location: CANADA
|
|
|
|
Hi,
I am looking for solution with ICETOOL |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| Quote: |
| if the key matches and if 20th position of file2 value is value “ ” i.e. blank then only file1 record should be written in output file. |
And if pos 20 file 2 is not equal " " - what happens then
Can there be duplicate key values in either of the files. |
|
| Back to top |
|
|
jaganmoni1
New User
Joined: 31 Oct 2008
Posts: 35
Location: CANADA
|
|
|
|
Hi,
If not blank- Ignore the record even key matches.
There is no duplicate keys in any of the files. |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
If I understand correctly what you want, then this DFSORT/ICETOOL job should do it:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=... input file1 (FB/250)
//IN2 DD DSN=... input file2 (FB/200)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT DD DSN=... output file (FB/250)
//TOOLIN DD *
COPY FROM(IN1) TO(T1)
COPY FROM(IN2) TO(T1) USING(CTL1)
SELECT FROM(T1) TO(OUT) ON(1,16,CH) FIRSTDUP USING(CTL2)
/*
//CTL1CNTL DD *
OMIT COND=(20,1,CH,NE,C' ')
INREC OVERLAY=(250:X)
/*
//CTL2CNTL DD *
OUTFIL FNAMES=OUT,ENDREC=50000
/*
|
|
|
| Back to top |
|
|
jaganmoni1
New User
Joined: 31 Oct 2008
Posts: 35
Location: CANADA
|
|
|
|
Hi Frank,
Its working fine... Thanks a lot for your quick response |
|
| Back to top |
|
|
|
|
