finding a word anywhere in a stirng

[lillymaginta1]

data have;
infile cards ;
input ID   drugname ;	 
cards;
001 sodium benzoate 
001 oral sodium 
003 oral potassium 
004 oral oral Sodium 
004 Sodium 
;

I want to retain 1 if the word sodium exist anywhere in the variable "drugname". The word can be written in capital and small letters.

Output 

ID sodium 
001 1
001 1
003 0
004 1
004 1

[novinosrin · Accepted solution]

data have;
infile cards ;
input ID   drugname & $20.;	 
cards;
001 sodium benzoate 
001 oral sodium 
003 oral potassium 
004 oral oral Sodium 
004 Sodium 
;

data want;
 set have;
 sodium=^^findw(drugname,'sodium',' ','i');
run;

[Reeza]

FINDW()?

if findw(lowcase(drugname), "sodium") > 0;

https://documentation.sas.com/?cdcId=pgmsascdc&cdcVersion=9.4_3.5&docsetId=lefunctionsref&docsetTarg...

---

@lillymaginta1 wrote:

data have;
infile cards ;
input ID   drugname ;	 
cards;
001 sodium benzoate 
001 oral sodium 
003 oral potassium 
004 oral oral Sodium 
004 Sodium 
;

I want to retain 1 if the word sodium exist anywhere in the variable "drugname". The word can be written in capital and small letters.

Output 

ID sodium 
001 1
001 1
003 0
004 1
004 1

---

[lillymaginta1]

Thank you both!