Here's one way:
data have;
input @1 ID $3. Symptom $30.;
datalines;
101 1-Burning
102 1-Burning2-Itching
103 1-Burning2-Itching3- swelling
;
run;
data want;
drop i words Symptom;
set have;
words = countw(Symptom, '-123 ');
do i = 1 to words;
Symptom_Single = scan(Symptom,i, '-123 ');
output;
end;
run;
Please post your data like I've done in a DATALINES statement in the future to save us time in answering.