I tried to shorten the code with arrays, hope it helps
data test;
WKT1 = '"MULTIPOLYGON (((1909259740883)))";59701136;20190325101323;VMM;2019/03/25;;2027;GUP-44034-005;LOCHRISTI;Riolering;Gepland;Gemeente;;;2019/03/25;Fix;Riolering; ';
array vars(*) $100. WKT id uploaddate source startdate enddate year sourcereference municipality activity status pilot sourceupload synductisid modifydate statussynductis sourceactivity gipodid;
do i = 1 to dim(vars);
vars(i)=scan(WKT1,i,';','m');
end;
run;
... View more