mirror of
https://github.com/sasjs/core.git
synced 2025-12-16 00:24:35 +00:00
Compare commits
3 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
1b66c59dc0 | ||
| 96be5c65dc | |||
| 8f6ef569e1 |
3
.gitpod.yml
Normal file
3
.gitpod.yml
Normal file
@@ -0,0 +1,3 @@
|
|||||||
|
vscode:
|
||||||
|
extensions:
|
||||||
|
- sasjs.sasjs-for-vscode@1.2.6:AJmar85B1uSEapxRaRQGrQ==
|
||||||
36
all.sas
36
all.sas
@@ -10500,6 +10500,10 @@ run;
|
|||||||
put _infile_;
|
put _infile_;
|
||||||
run;
|
run;
|
||||||
%end;
|
%end;
|
||||||
|
%else %do;
|
||||||
|
filename &frefin clear;
|
||||||
|
filename &frefout clear;
|
||||||
|
%end;
|
||||||
|
|
||||||
%mend;/**
|
%mend;/**
|
||||||
@file mm_webout.sas
|
@file mm_webout.sas
|
||||||
@@ -11160,23 +11164,23 @@ run;
|
|||||||
rec = "20"x;
|
rec = "20"x;
|
||||||
do while(fread(filein)=0);
|
do while(fread(filein)=0);
|
||||||
rc = fget(filein,rec,1);
|
rc = fget(filein,rec,1);
|
||||||
if rec='"' then do;
|
if rec='"' then do; /* DOUBLE QUOTE */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'"');rc =fwrite(fileid);
|
rc =fput(fileid,'"');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
else if rec='0A'x then do;
|
else if rec='0A'x then do; /* LF */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
|
||||||
rc =fput(fileid,'r');rc =fwrite(fileid);
|
|
||||||
end;
|
|
||||||
else if rec='0D'x then do;
|
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'n');rc =fwrite(fileid);
|
rc =fput(fileid,'n');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
else if rec='09'x then do;
|
else if rec='0D'x then do; /* CR */
|
||||||
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
|
rc =fput(fileid,'r');rc =fwrite(fileid);
|
||||||
|
end;
|
||||||
|
else if rec='09'x then do; /* TAB */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'t');rc =fwrite(fileid);
|
rc =fput(fileid,'t');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
else if rec='5C'x then do;
|
else if rec='5C'x then do; /* BACKSLASH */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
@@ -11816,23 +11820,23 @@ run;
|
|||||||
rec = "20"x;
|
rec = "20"x;
|
||||||
do while(fread(filein)=0);
|
do while(fread(filein)=0);
|
||||||
rc = fget(filein,rec,1);
|
rc = fget(filein,rec,1);
|
||||||
if rec='"' then do;
|
if rec='"' then do; /* DOUBLE QUOTE */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'"');rc =fwrite(fileid);
|
rc =fput(fileid,'"');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
else if rec='0A'x then do;
|
else if rec='0A'x then do; /* LF */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
|
||||||
rc =fput(fileid,'r');rc =fwrite(fileid);
|
|
||||||
end;
|
|
||||||
else if rec='0D'x then do;
|
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'n');rc =fwrite(fileid);
|
rc =fput(fileid,'n');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
else if rec='09'x then do;
|
else if rec='0D'x then do; /* CR */
|
||||||
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
|
rc =fput(fileid,'r');rc =fwrite(fileid);
|
||||||
|
end;
|
||||||
|
else if rec='09'x then do; /* TAB */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'t');rc =fwrite(fileid);
|
rc =fput(fileid,'t');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
else if rec='5C'x then do;
|
else if rec='5C'x then do; /* BACKSLASH */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
|
|||||||
@@ -132,5 +132,9 @@ run;
|
|||||||
put _infile_;
|
put _infile_;
|
||||||
run;
|
run;
|
||||||
%end;
|
%end;
|
||||||
|
%else %do;
|
||||||
|
filename &frefin clear;
|
||||||
|
filename &frefout clear;
|
||||||
|
%end;
|
||||||
|
|
||||||
%mend;
|
%mend;
|
||||||
@@ -217,23 +217,23 @@ run;
|
|||||||
rec = "20"x;
|
rec = "20"x;
|
||||||
do while(fread(filein)=0);
|
do while(fread(filein)=0);
|
||||||
rc = fget(filein,rec,1);
|
rc = fget(filein,rec,1);
|
||||||
if rec='"' then do;
|
if rec='"' then do; /* DOUBLE QUOTE */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'"');rc =fwrite(fileid);
|
rc =fput(fileid,'"');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
else if rec='0A'x then do;
|
else if rec='0A'x then do; /* LF */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
|
||||||
rc =fput(fileid,'r');rc =fwrite(fileid);
|
|
||||||
end;
|
|
||||||
else if rec='0D'x then do;
|
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'n');rc =fwrite(fileid);
|
rc =fput(fileid,'n');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
else if rec='09'x then do;
|
else if rec='0D'x then do; /* CR */
|
||||||
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
|
rc =fput(fileid,'r');rc =fwrite(fileid);
|
||||||
|
end;
|
||||||
|
else if rec='09'x then do; /* TAB */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'t');rc =fwrite(fileid);
|
rc =fput(fileid,'t');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
else if rec='5C'x then do;
|
else if rec='5C'x then do; /* BACKSLASH */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
|
|||||||
@@ -566,23 +566,23 @@ run;
|
|||||||
rec = "20"x;
|
rec = "20"x;
|
||||||
do while(fread(filein)=0);
|
do while(fread(filein)=0);
|
||||||
rc = fget(filein,rec,1);
|
rc = fget(filein,rec,1);
|
||||||
if rec='"' then do;
|
if rec='"' then do; /* DOUBLE QUOTE */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'"');rc =fwrite(fileid);
|
rc =fput(fileid,'"');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
else if rec='0A'x then do;
|
else if rec='0A'x then do; /* LF */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
|
||||||
rc =fput(fileid,'r');rc =fwrite(fileid);
|
|
||||||
end;
|
|
||||||
else if rec='0D'x then do;
|
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'n');rc =fwrite(fileid);
|
rc =fput(fileid,'n');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
else if rec='09'x then do;
|
else if rec='0D'x then do; /* CR */
|
||||||
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
|
rc =fput(fileid,'r');rc =fwrite(fileid);
|
||||||
|
end;
|
||||||
|
else if rec='09'x then do; /* TAB */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'t');rc =fwrite(fileid);
|
rc =fput(fileid,'t');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
else if rec='5C'x then do;
|
else if rec='5C'x then do; /* BACKSLASH */
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
rc =fput(fileid,'\');rc =fwrite(fileid);
|
rc =fput(fileid,'\');rc =fwrite(fileid);
|
||||||
end;
|
end;
|
||||||
|
|||||||
Reference in New Issue
Block a user