|
View previous topic :: View next topic
|
| Author |
Message |
senmainframe
Currently Banned
New User
Joined: 09 Oct 2007
Posts: 30
Location: USA
|
|
|
|
I need to compare two datsets based on agent code, type code
(agent code - starting pos 6, length 6)
(type code (starting pos 15, lengt 2)
and I need to store the matched records in the third datasets. JCL for this? |
|
| Back to top |
|
 |
PeD
Active User
Joined: 26 Nov 2005
Posts: 459
Location: Belgium
|
|
|
|
| No, program; not JCL |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
You haven't given much detail so I'll assume that you don't have duplicates in either input file, that the input files have the same RECFM and LRECL and that you only want one record for each match (not both). Given those assumptions, you can use a DFSORT/ICETOOL job like this:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//CON DD *
000001 03
000003 05
000004 02
000005 01
000005 02
000006 01
000007 06
// DD *
000001 03
000002 05
000004 02
000005 01
000007 04
/*
//OUT DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(CON) TO(OUT) ON(6,6,CH) ON(15,2,CH) FIRSTDUP
/*
|
OUT would have:
| Code: |
000001 03
000004 02
000005 01
|
If that doesn't match your requirement, then show an example of the records in each input file with all variations and what you expect for output, and explain the rules for going from input to output. |
|
| Back to top |
|
|
|
|
