sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-01-10 10:50:04 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #81 from sasjs/issue80

Browse Source 
fix: removing nonprintables from cards data.  Closes #80
This commit is contained in:
Allan Bowe
2021-09-27 22:42:36 +03:00
committed by GitHub
parent 74790ec80e 4887f355c8
commit 9e2de81dae
2 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
all.sas
View File

@@ -3474,7 +3474,12 @@ data datalines_2;
*/ */
else if upcase(format)=:'$HEX' then else if upcase(format)=:'$HEX' then
dataline=cats('put(trim(',name,'),',format,')'); dataline=cats('put(trim(',name,'),',format,')');
else dataline=name; /**
* There is no easy way to store line breaks in a cards file.
* To discuss this, use: https://github.com/sasjs/core/issues/80
* Removing all nonprintables with kw (keep writeable)
*/
else dataline=cats('compress(',name,', ,"kw")');
run; run;
proc sql noprint; proc sql noprint;
@@ -3551,7 +3556,7 @@ data _null_;
put 'run;'; put 'run;';
end; end;
else do; else do;
put "infile cards dsd delimiter=',';"; put "infile cards dsd;";
put "input "; put "input ";
%do i = 1 %to &nvars.; %do i = 1 %to &nvars.;
%if(%length(&&input_stmt_&i..)) %then %if(%length(&&input_stmt_&i..)) %then

9
base/mp_ds2cards.sas
View File

@@ -161,7 +161,12 @@ data datalines_2;
*/ */
else if upcase(format)=:'$HEX' then else if upcase(format)=:'$HEX' then
dataline=cats('put(trim(',name,'),',format,')'); dataline=cats('put(trim(',name,'),',format,')');
else dataline=name; /**
* There is no easy way to store line breaks in a cards file.
* To discuss this, use: https://github.com/sasjs/core/issues/80
* Removing all nonprintables with kw (keep writeable)
*/
else dataline=cats('compress(',name,', ,"kw")');
run; run;
proc sql noprint; proc sql noprint;
@@ -238,7 +243,7 @@ data _null_;
put 'run;'; put 'run;';
end; end;
else do; else do;
put "infile cards dsd delimiter=',';"; put "infile cards dsd;";
put "input "; put "input ";
%do i = 1 %to &nvars.; %do i = 1 %to &nvars.;
%if(%length(&&input_stmt_&i..)) %then %if(%length(&&input_stmt_&i..)) %then