1
0
mirror of https://github.com/sasjs/core.git synced 2026-01-05 16:40:06 +00:00

Compare commits

..

2 Commits

Author SHA1 Message Date
Allan Bowe
35a6dede6f fix: enabling ms_testservice() without inputs 2022-05-02 13:56:22 +00:00
Allan Bowe
039ec397dd chore: local scoping vars in mp_testservice 2022-04-30 19:16:25 +00:00
2 changed files with 20 additions and 16 deletions

18
all.sas
View File

@@ -20409,7 +20409,7 @@ options &optval;
outref=0, outref=0,
outlogds=_null_ outlogds=_null_
)/*/STORE SOURCE*/; )/*/STORE SOURCE*/;
%local dbg fref1 chopout1 chopout2; %local dbg i var ds1 fref1 chopout1 chopout2;
%if &mdebug=1 %then %do; %if &mdebug=1 %then %do;
%put &sysmacroname entry vars:; %put &sysmacroname entry vars:;
%put _local_; %put _local_;
@@ -20432,13 +20432,15 @@ options &optval;
%let ds1=%mf_getuniquename(); %let ds1=%mf_getuniquename();
data &ds1; data &ds1;
length fileref $8 name $32 filename $256 var $300; length fileref $8 name $32 filename $256 var $300;
webcount=countw("&inputfiles"); if "&inputfiles" ne "0" then do;
do i=1 to webcount; webcount=countw("&inputfiles");
var=scan("&inputfiles",i,' '); do i=1 to webcount;
fileref=scan(var,1,':'); var=scan("&inputfiles",i,' ');
name=scan(var,2,':'); fileref=scan(var,1,':');
filename=cats(name,'.csv'); name=scan(var,2,':');
output; filename=cats(name,'.csv');
output;
end;
end; end;
run; run;

View File

@@ -59,7 +59,7 @@
outref=0, outref=0,
outlogds=_null_ outlogds=_null_
)/*/STORE SOURCE*/; )/*/STORE SOURCE*/;
%local dbg fref1 chopout1 chopout2; %local dbg i var ds1 fref1 chopout1 chopout2;
%if &mdebug=1 %then %do; %if &mdebug=1 %then %do;
%put &sysmacroname entry vars:; %put &sysmacroname entry vars:;
%put _local_; %put _local_;
@@ -82,13 +82,15 @@
%let ds1=%mf_getuniquename(); %let ds1=%mf_getuniquename();
data &ds1; data &ds1;
length fileref $8 name $32 filename $256 var $300; length fileref $8 name $32 filename $256 var $300;
webcount=countw("&inputfiles"); if "&inputfiles" ne "0" then do;
do i=1 to webcount; webcount=countw("&inputfiles");
var=scan("&inputfiles",i,' '); do i=1 to webcount;
fileref=scan(var,1,':'); var=scan("&inputfiles",i,' ');
name=scan(var,2,':'); fileref=scan(var,1,':');
filename=cats(name,'.csv'); name=scan(var,2,':');
output; filename=cats(name,'.csv');
output;
end;
end; end;
run; run;