how to splite the word before cama

[teja5959]

data have ;

a                        b

001                NEW OTC OR RX DRUG ADDED, HOSPITALIZATION (INCLUDES ER VISITS)

001               NEW OTC OR RX DRUG ADDED, HOSPITALIZATION (INCLUDES ER VISITS)

001               NEW OTC OR RX DRUG ADDED, HOSPITALIZATION (INCLUDES ER VISITS)

001               NEW OTC OR RX DRUG ADDED, HOSPITALIZATION (INCLUDES ER VISITS)

002               NEW OTC OR RX DRUG ADDED, Non-drug therapy, HOSPITALIZATION (INCLUDES ER VISITS)

002               NEW OTC OR RX DRUG ADDED, Non-drug therapy, HOSPITALIZATION (INCLUDES ER VISITS)

002               NEW OTC OR RX DRUG ADDED, Non-drug therapy, HOSPITALIZATION (INCLUDES ER VISITS)

002               NEW OTC OR RX DRUG ADDED, Non-drug therapy, HOSPITALIZATION (INCLUDES ER VISITS)

002               NEW OTC OR RX DRUG ADDED, Non-drug therapy, HOSPITALIZATION (INCLUDES ER VISITS)

003              STUDY TREATMENT DISCONTINUED PERMANENTLY, Non-drug therapy, HOSPITALIZATION (INCLUDES ER VISITS)

003              STUDY TREATMENT DISCONTINUED PERMANENTLY, Non-drug therapy, HOSPITALIZATION (INCLUDES ER VISITS)

003              STUDY TREATMENT DISCONTINUED PERMANENTLY, Non-drug therapy, HOSPITALIZATION (INCLUDES ER VISITS)

003              STUDY TREATMENT DISCONTINUED PERMANENTLY, Non-drug therapy, HOSPITALIZATION (INCLUDES ER VISITS)

i want 

001               NEW OTC OR RX DRUG ADDED

001               NEW OTC OR RX DRUG ADDED

001               NEW OTC OR RX DRUG ADDED

002               NEW OTC OR RX DRUG ADDED

002               NEW OTC OR RX DRUG ADDED

002               NEW OTC OR RX DRUG ADDED

002               NEW OTC OR RX DRUG ADDED

002               NEW OTC OR RX DRUG ADDED

003              STUDY TREATMENT DISCONTINUED PERMANENTLY

003              STUDY TREATMENT DISCONTINUED PERMANENTLY

003              STUDY TREATMENT DISCONTINUED PERMANENTLY

003              STUDY TREATMENT DISCONTINUED PERMANENTLY

[Kurt_Bremser]

Use

scan(b,1,',')

[ed_sas_member]

Hi @teja5959 

You can use the scan function:

data want;
	set have;
	b2 = scan(b,1,",");
	drop b;
	rename b2 = b;
run;

or the prxchange function:

data want;
	set have;
	b2 = prxchange('s/,.+//',1,b);
	drop b;
	rename b2 = b;
run;

[Kalind_Patel]

Try this SAS Code:

data have;
input number texts $80.;
datalines;
001                NEW OTC OR RX DRUG ADDED, HOSPITALIZATION (INCLUDES ER VISITS)
002               NEW OTC OR RX DRUG ADDED, Non-drug therapy, HOSPITALIZATION (INCLUDES ER VISITS)
003              STUDY TREATMENT DISCONTINUED PERMANENTLY, Non-drug therapy, HOSPITALIZATION (INCLUDES ER VISITS)
;;;;
run;

data want;
set have;
texts=scan(texts,1,',');
run;