recoding of the variable

[srikanthyadav44]

dear all,

 i have the data in the following format 

company_name	Year	investor_name
20 Microns Ltd.	2010	Gujarat Venture Capital Fund-1995
20 Microns Ltd.	2010	Narendra Manibhai Patel
3I Infotech Ltd.	2010	Emirates Bank International Pjsc
3I Infotech Ltd.	2010	Lic Of India Money Plus
3I Infotech Ltd.	2010	Lic Of India Money Plus -1
3I Infotech Ltd.	2010	Life Insurance Corporation Of India Ltd
3I Infotech Ltd.	2010	Norges Bank A/C Government Petroleum Fund
3I Infotech Ltd.	2010	Reliance Capital Trustee Co Ltd A/C Reliance Equity Opportunities Fund
3I Infotech Ltd.	2010	Reliance Capital Trustee Co Ltd A/C Reliance Regular Saving Fund Equity Option
3I Infotech Ltd.	2010	Reliance Capital Trustee Co Ltd Reliance Long Term Equity Fund
3I Infotech Ltd.	2010	Sundaram Bnp Paribas Mutual Fund A/C Sudaram Bnp Paribas Equity Multiplier Fun
3I Infotech Ltd.	2010	Swiss Finance Corporation Mauritius Ltd
3M India Ltd.	2010	Acacia Institutional Partners Lp
3M India Ltd.	2010	Acacia Partners Lp
3M India Ltd.	2010	Bright Star Investments Pvt Ltd
3M India Ltd.	2010	Hdfc Trustee Company Ltd - Hdfc Prudence Fund
3M India Ltd.	2010	Tata Offshore India Opportunities Scheme
3P Land Holdings Ltd.	2010	Deep Star Investment & Finance Co Pvt Ltd
3P Land Holdings Ltd.	2010	Santosh S Goenka
3P Land Holdings Ltd.	2010	Shree Global Tradefin Ltd
52 Weeks Entertainment Ltd.	2010	Alpic Finance Ltd
52 Weeks Entertainment Ltd.	2010	Dr Hemant Thacker
52 Weeks Entertainment Ltd.	2010	Jainam Sec Pvt Ltd
52 Weeks Entertainment Ltd.	2010	Suman L Shah
52 Weeks Entertainment Ltd.	2010	Winever Investment & Consultants Pvt Ltd
63 Moons Technologies Ltd.	2010	Acacia Institutional Partners Lp
63 Moons Technologies Ltd.	2010	Acacia Partners Lp
63 Moons Technologies Ltd.	2010	Aic Advantage Fund
63 Moons Technologies Ltd.	2010	Bharat K. Sheth
63 Moons Technologies Ltd.	2010	Deutsche Securities Mauritius Ltd
63 Moons Technologies Ltd.	2010	Fid Funds Mauritius Ltd
63 Moons Technologies Ltd.	2010	Passport Capital Llc A/C Passport India Investments Mauritius Ltd
63 Moons Technologies Ltd.	2010	Pivotal Securities Pvt Ltd
63 Moons Technologies Ltd.	2010	Ravi K. Sheth
63 Moons Technologies Ltd.	2010	Reliance Capital Trustee Company Ltd A/C Reliance Equity Fund
63 Moons Technologies Ltd.	2010	Reliance Capital Trustee Company Ltd A/C Reliance Growth Fund
63 Moons Technologies Ltd.	2010	Reliance Capital Trustee Company Ltd A/C Reliance Vision Fund
63 Moons Technologies Ltd.	2010	Reliance Life Insurance Company Ltd
A B B India Ltd.	2010	Aberdeen Asset Managers Ltd A/C Aberdeen Global Indian Fund Mauitius Ltd
A B B India Ltd.	2010	General Insurance Corporation Of India
A B B India Ltd.	2010	Icici Prudential Life Insurance Company Ltd
A B B India Ltd.	2010	Lic Of India Market Plus
A B B India Ltd.	2010	Lic Of India Money Plus
A B B India Ltd.	2010	Life Insurance Corporation Of India
A B B India Ltd.	2010	Life Insurance Corporation Of India Profit Plus
A B C Gas (International) Ltd.	2010	Canbank Financial Services Ltd
A B C Gas (International) Ltd.	2010	Naresh K Aggarwala
A B C Gas (International) Ltd.	2010	Savasthi Investment Ltd
A B C Gas (International) Ltd.	2010	St. Helens Nominees India Pvt Ltd

I have to recode the variable "investor_name" into "1" if the  variable contains any of below mentioned words or else "0" 

“Investment”	“Ltd”	“Pvt”	“India”	“Lic”	“Bank”	“Securities”
“Corporation”	“Fund”

please suggest to me a suitable SAS code for this purpose

thanking you in advance 

[Patrick · Accepted solution]

One way to go:

data demo;
  infile datalines truncover;
  input investor_name $100.;
  match_flag=prxmatch('/\b(Investment|Ltd|Pvt|Fund)\b/i',strip(investor_name))>0;
datalines;
Gujarat Venture Capital Fund-1995
Narendra Manibhai Patel
test fundraiser test
;

proc print data=demo;
run;

[mkeintz]

You could set up an array of search terms:

data want (drop=i);
  set have;
  array invterms {9} $12 _temporary_ ("Investment","Ltd","Pvt","India","Lic","Bank","Securities","Corporation","Fund");
  do i=1 to dim(invterms) until (match_flag>0);
    match_flag=(findw(investor_name,trim(invterms{i}))>0);
  end;
run;

[srikanthyadav44]

thanks. it is working