IBM Mainframe Forum

by **Kurfuerst63** » Mon Feb 13, 2012 9:04 pm

sorry for my english, im not best talking.

i have a problem. i have 2 files.one file is lager the other file is smaler with some
sentences i have collect during the day.

i want now compare both files and get out only the sentences which are not
in both files.

when i use sum fields = none i get one sentences of both but i want none of this
sentenses as output in new file, i have collect in file 2 f

hope i have explain well
best wishes

by **skolusu** » Mon Feb 13, 2012 9:35 pm

Kurfuerst63,

By sentences , do you mean records in the file? if so you can use DFSORT's joinkeys feature to compare the 2 files and get the unmatched records like shown below . I assumed your input files to be RECFM=FB and LRECL=80

Select all

//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//INA DD *
AAA I AM PRESENT IN BOTH SO DROP ME
BBB NOT IN FILE 2 , SO NEED TO PICK ME FROM F1
CCC I AM PRESENT IN BOTH SO DROP ME
DDD I AM PRESENT IN BOTH SO DROP ME
EEE NOT IN FILE 2 , SO NEED TO PICK ME FROM F1
//INB DD *
AAA MATCH RECORD
CCC MATCH RECORD
DDD MATCH RECORD
FFF NOT IN FILE 1 , SO NEED TO PICK ME FROM F2
GGG NOT IN FILE 1 , SO NEED TO PICK ME FROM F2
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
JOINKEYS F1=INA,FIELDS=(1,3,A)
JOINKEYS F2=INB,FIELDS=(1,3,A)
JOIN UNPAIRED
REFORMAT FIELDS=(F1:1,80,?,F2:1,80)
OUTFIL OMIT=(81,1,CH,EQ,C'B'),IFOUTLEN=80,
IFTHEN=(WHEN=(81,1,CH,EQ,C'2'),BUILD=(82,80))
//*

The output of this is

Select all

BBB NOT IN FILE 2 , SO NEED TO PICK ME FROM F1
EEE NOT IN FILE 2 , SO NEED TO PICK ME FROM F1
FFF NOT IN FILE 1 , SO NEED TO PICK ME FROM F2
GGG NOT IN FILE 1 , SO NEED TO PICK ME FROM F2

Check this link for detailed explanation of joinkeys with examples

http://publibz.boulder.ibm.com/cgi-bin/ ... F=ICE1SH60

by **Kurfuerst63** » Tue Feb 14, 2012 3:11 pm

Thank you for answer me. But i dont get it fixed.

I have a file with 20 records and one with 10 records.
in file a there are the same 10 records that in file b.

so the sort should take the 10 records from file a.

i have try the sort you have write here and take INA as a file
STEP015 EXEC SORT
SYSOUT DD SYSOUT=*
INA DD DSN=TFKD.TEMP.FKSCDAT.ST0070A,DSP=SHR
INB DD DSN=TFKD.TEMP.FKSCDAT.ST0070B,DSP=SHR
Sortout DD DSN=TFKD.TEMP.OUT,DISP=(,CATLG,DELETE),
UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
SYSIN DD *

The input Files are VB and 200 lcecl
the sentence i want compare are 107.

thanks

by **Kurfuerst63** » Tue Feb 14, 2012 3:51 pm

sorry was lock wrong.. input files are FB and 160 lcecl
and i want to compare full record (160)

by **skolusu** » Tue Feb 14, 2012 10:43 pm

use the following DFSORT JCL

Select all

//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//INA DD DD DSN=TFKD.TEMP.FKSCDAT.ST0070A,DSP=SHR
//INB DD DSN=TFKD.TEMP.FKSCDAT.ST0070B,DSP=SHR
//SORTOUT DD DSN=TFKD.TEMP.OUT,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(50,50),RLSE)
//*
//SYSIN DD *
OPTION COPY
JOINKEYS F1=INA,FIELDS=(1,160,A)
JOINKEYS F2=INB,FIELDS=(1,160,A)
JOIN UNPAIRED,F1,ONLY
//*

IBM Mainframe Forum

sort 2 files and cut the same sentences

sort 2 files and cut the same sentences

Re: sort 2 files and cut the same sentences

Re: sort 2 files and cut the same sentences

Re: sort 2 files and cut the same sentences

Re: sort 2 files and cut the same sentences