Exact matching of two sets of book titles using SAS

[rwu7]

Hello,

I want to find exact matches in two sets of book titles without regard to case-sensitive and abbreviations. Also I am new to SAS. 

Title 1:

AM J CLIN ONCOL CANC
ADV DRUG DELIVER REV
ADV ECOL RES
ABDOM RADIOL
ADV ELECTRON MATER
ENDOCR RELAT CANCER
MAYO CLIN PROC
MBIO
MCN AM J MATERN CHIL

Title 2:
Abdom Radiol (NY)
ACS Appl Mater Interfaces
Adv Drug Deliv Rev
AJR Am J Roentgenol
Am J Clin Oncol
Endocr Relat Cancer

***Expected Output something like this that shows exact title matches disregarding case-sensitve or abbreviations

Exact matches

ADV DRUG DELIVER REV : Adv Drug Deliv Rev
ABDOM RADIOL : Abdom Radiol (NY)
ENDOCR RELAT CANCER : Endocr Relat Cancer
AM J CLIN ONCOL CANC: Am J Clin Oncol

How to write a code that does this?

Thanks!

[RM6]

This might help you start , this might not work in all cases for matching. Give it a try.

data a;

input title1 & $100.;

datalines;

AM J CLIN ONCOL CANC

ADV DRUG DELIVER REV

ADV ECOL RES

ABDOM RADIOL

ADV ELECTRON MATER

ENDOCR RELAT CANCER

MAYO CLIN PROC

MBIO

MCN AM J MATERN CHIL

;

run;

data b;

input title2 & $100.;

datalines;

Abdom Radiol (NY)

ACS Appl Mater Interfaces

Adv Drug Deliv Rev

AJR Am J Roentgenol

Am J Clin Oncol

Endocr Relat Cancer

;

run;

PROC SQL;

Create table dummy as

select title1, title2, catx(' ',title1,' : ',title2) as Exact_match

from (

select a.*, 

substr(compress(lowcase(title1),' '),1,min_len) as temp_title1,

substr(compress(lowcase(title2),' '),1,min_len) as temp_title2,

spedis(calculated temp_title1, calculated temp_title2) as dis

from (

Select *, 

length(compress(title1,' ')) as len1,

length(compress(title2,' ')) as len2, 

case when calculated len1 < calculated len2 then calculated len1

when calculated len2 < calculated len1 then calculated len2 

else calculated len1 end as min_len 

from A1 as x cross join B1 as y

) a

where calculated temp_title1 = calculated temp_title2 or calculated dis<=15

)

;

Quit;

[rwu7]

I tried running the code and got this error:

ERROR: File WORK.A1.DATA does not exist.
ERROR: File WORK.B1.DATA does not exist.

Did it work when you ran that code?

[RM6]

try A & B , instead of A1 & B1

[rwu7]

Though the error isn't there, but I'm not getting results. Can you share what your result look like?

Thanks

[RM6]

Snap shot of output.

[rwu7]

Can you post your code?

I'm not getting the same output as yours when I ran it. It only shows the title 1 data. 

Here's the code I used:

data a;
input title1 & $100.;
datalines;
AM J CLIN ONCOL CANC
ADV DRUG DELIVER REV
ADV ECOL RES
ABDOM RADIOL
ADV ELECTRON MATER
ENDOCR RELAT CANCER
MAYO CLIN PROC
MBIO
MCN AM J MATERN CHIL
;
run;
 
data b;
input title2 & $100.;
datalines;
Abdom Radiol (NY)
ACS Appl Mater Interfaces
Adv Drug Deliv Rev
AJR Am J Roentgenol
Am J Clin Oncol
Endocr Relat Cancer
;
run;
 
PROC SQL;
Create table dummy as
select title1, title2, catx(' ',title1,' : ',title2) as Exact_match
from (
select a.*, 
substr(compress(lowcase(title1),' '),1,min_len) as temp_title1,
substr(compress(lowcase(title2),' '),1,min_len) as temp_title2,
spedis(calculated temp_title1, calculated temp_title2) as dis
from (
 
Select *, 
length(compress(title1,' ')) as len1,
length(compress(title2,' ')) as len2, 
case when calculated len1 < calculated len2 then calculated len1
when calculated len2 < calculated len1 then calculated len2 
else calculated len1 end as min_len 
from A as x cross join B as y
) a
where calculated temp_title1 = calculated temp_title2 or calculated dis<=15
)
;
Quit;

[RM6 · Accepted solution]

Its the same code as above, if you want only exact match variable , you can change sql query select statement  and keep only Exact_Match variable. And am not sure why your getting only title, any error or warning in logs?

 
PROC SQL;
Create table dummy as
select catx(' ',title1,' : ',title2) as Exact_match
from (
select a.*, 
substr(compress(lowcase(title1),' '),1,min_len) as temp_title1,
substr(compress(lowcase(title2),' '),1,min_len) as temp_title2,
spedis(calculated temp_title1, calculated temp_title2) as dis
from (
 
Select *, 
length(compress(title1,' ')) as len1,
length(compress(title2,' ')) as len2, 
case when calculated len1 < calculated len2 then calculated len1
when calculated len2 < calculated len1 then calculated len2 
else calculated len1 end as min_len 
from A as x cross join B as y
) a
where calculated temp_title1 = calculated temp_title2 or calculated dis<=15
)
;
Quit;

[rwu7]

I added this statement and it worked!

proc print noobs;run;

Not sure why, but I'd be curious to know why.

Thank you again for your help!