data a;
input name $ label $;
cards;
1 a
2 b
3 c
;
data b;
input validation $10.;
cards;
asvvsb
cdwadsdf
eadfbs
;
data _null_;
set a end=last;
length code $1000;
retain code code1;
code1='data wanted;set b;';
code2=compress('validation=tranwrd(validation,'||quote(label)||','||quote(name)||');');
if _n_=1 then code=code2;
else code=trim(code)||code2;
if la ...
data a;
input name $ label $;
cards;
1 a
2 b
3 c
;
data b;
input validation $10.;
cards;
asvvsb
cdwadsdf
eadfbs
;
data _null_;
set a end=last;
length code $1000;
retain code code1;
code1='data wanted;set b;';
code2=compress('validation=tranwrd(validation,'||quote(label)||','||quote(name)||');');
if _n_=1 then code=code2;
else code=trim(code)||code2;
if last then do;
code=trim(code1)||trim(code)||'run;';
call execute(code);
end;
run;