compare two files and write duplicate records to file no dup

[mainframeman]

I want to be able to compare two files(file A and file B) and write the unique (non-matching) records from file A to an output file (file C) and duplicate records to another file (file D). File D needs to be in a report format. There also has be be another file (File E) that is a exact copy of File B. I know that ICETOOL can do something like this but not sure of the syntax


input:

File A:

AAA1111
BBB2222
CCC333
DDD444

File B:

AAA111
BBB222
EEE555
FFF666
GGG777


OUTPUT FILES:


FILE C:

CCC333
DDD444


File D: Report file (133 bytes long)

I need a header that will print at the top of every page

layout like this: this will be 133 bytes long

company: xxxx page: xxx
Application: xxx date: xx/xx/xx
JOB: xxxx
REPORT: Dropped records due to customer code mismatch


AAA111 (detail records)
BBB222


File E:

AAA111
BBB222
EEE555
FFF666
GGG777

[Frank Yaeger]

Here's a DFSORT/ICETOOL job that will do what you asked for. I assumed your "key" was in positions 1-6, and your input files have RECFM=FB and LRECL=80. You can change the job appropriately if those assumptions are incorrect.

[mainframeman]

Frank,

My input files are:

File A: RECFM=FB and LRECL=150
File B: RECFM=FB and LRECL=13

The key field is 13 bytes long. This is what I will use to match records from the two files


output file:

File C: RECFM=FB and LRECL=150
File D: RECFM=FB and LRECL=150 - Report
File E: RECFM=FB and LRECL=13



Is it possbile to sort these two input files(File A and File B) using ICETOOL and then do the processing?

[Frank Yaeger]

We just need to change the DFSORT/ICETOOL job a little to handle files with those attributes and the 13-byte key as follows: