sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2025-12-11 06:24:35 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #120 from sasjs/fix_makedata

Browse Source 
fix: check charvars and numvars exist. Closes #119
This commit is contained in:
Allan Bowe
2021-12-17 15:25:36 +00:00
committed by GitHub
parent 8c7523deda 8b68c3bb27
commit 2e122c2ada
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
base/mp_makedata.sas
View File

@@ -64,13 +64,13 @@ data &ds1;
&n1=ranuni(1)*5000000; &n1=ranuni(1)*5000000;
drop &c1 &n1; drop &c1 &n1;
%let charvars=%mf_getvarlist(&libds,typefilter=C); %let charvars=%mf_getvarlist(&libds,typefilter=C);
%do i=1 %to %sysfunc(countw(&charvars)); %if &charvars ^= %then %do i=1 %to %sysfunc(countw(&charvars));
%let col=%scan(&charvars,&i); %let col=%scan(&charvars,&i);
&col=subpad(&c1,1,%mf_getvarlen(&libds,&col)); &col=subpad(&c1,1,%mf_getvarlen(&libds,&col));
%end; %end;
%let numvars=%mf_getvarlist(&libds,typefilter=N); %let numvars=%mf_getvarlist(&libds,typefilter=N);
%do i=1 %to %sysfunc(countw(&numvars)); %if &numvars ^= %then %do i=1 %to %sysfunc(countw(&numvars));
%let col=%scan(&numvars,&i); %let col=%scan(&numvars,&i);
&col=&n1; &col=&n1;
%end; %end;