You can simplify the first code by using DLM= and DSD:
data table1;
infile cards dlm="," dsd truncover;
input
no :$4.
var2 :$200.
;
length Code $20;
do i = 1 to countw(var2,';');
Code = scan(var2,i,';');
output;
end;
keep No Code;
cards4;
"1","XTRA:TLB; OTCPK:TLMO.F; LSE:0R0N; WBAG:TLB; DB:TLB"
"2","NYSE:IAB; DB:3NL"
;;;;
... View more