sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-07-23 15:35:29 +00:00
Code Issues Projects Releases Wiki Activity

chore: updating all.sas

Browse Source
This commit is contained in:
github-actions
2026-07-22 15:29:43 +00:00
parent e24ef4c6fc
commit ebb00f458b
2 changed files with 50 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
viya/mv_createwebservice.sas
+10 -3
View File
@@ -497,7 +497,8 @@ data _null_;
put ' prxchange(''s/\\/\\\\/'',-1,&&name&i) ';
put ' )))))))))))))!!''"''; ';
put ' end; ';
put ' else &&name&i=quote(cats(&&name&i)); ';
put ' /* trim (not cats) so leading blanks are retained */ ';
put ' else &&name&i=''"''!!trim(&&name&i)!!''"''; ';
put ' %end; ';
put ' %end; ';
put ' run; ';
@@ -643,7 +644,10 @@ data _null_;
put ' data _null_; ';
put ' infile "%sysfunc(pathname(work))/&table..csv" termstr=crlf ; ';
put ' input; ';
put ' if _n_=1 then call symputx(''input_statement'',_infile_); ';
put ' /* a plain $ informat strips leading blanks - use $char instead */ ';
put ' if _n_=1 then call symputx(''input_statement'' ';
put ' ,prxchange(''s/:\$(?=[0-9 ])/:\$char/i'',-1,_infile_) ';
put ' ); ';
put ' list; ';
put ' data work.&table; ';
put ' infile "%sysfunc(pathname(work))/&table..csv" firstobs=2 dsd ';
@@ -663,7 +667,10 @@ data _null_;
put ' data _null_; ';
put ' infile indata termstr=crlf lrecl=32767; ';
put ' input; ';
put ' if _n_=1 then call symputx(''input_statement'',_infile_); ';
put ' /* a plain $ informat strips leading blanks - use $char instead */ ';
put ' if _n_=1 then call symputx(''input_statement'' ';
put ' ,prxchange(''s/:\$(?=[0-9 ])/:\$char/i'',-1,_infile_) ';
put ' ); ';
put ' %if %str(&_debug) ge 128 %then %do; ';
put ' if _n_<20 then putlog _infile_; ';
put ' else stop; ';