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

fix: mp_jsonout

Browse Source
This commit is contained in:
Allan Bowe
2022-06-25 21:38:05 +00:00
parent e1afbc02c4
commit 532bf84e06
5 changed files with 80 additions and 112 deletions
Download Patch File Download Diff File Expand all files Collapse all files

88
all.sas
View File

@@ -8814,20 +8814,16 @@ options
%if &action=ARR %then "]" ; %else "}" ; ; %if &action=ARR %then "]" ; %else "}" ; ;
/* now write the long strings to _webout 1 byte at a time */ /* now write the long strings to _webout 1 byte at a time */
data _null_; data _null_;
length filein 8 fileid 8; infile _sjs;
filein=fopen("_sjs",'I',1,'B'); file &jref mod;
fileid=fopen("&jref",'A',1,'B'); input sourcechar $char1. @@;
rec='20'x; format sourcechar hex2.;
do while(fread(filein)=0); put sourcechar char1. @@;
rc=fget(filein,rec,1); run;
rc=fput(fileid, rec);
rc=fwrite(fileid);
end;
/* close out the table */ /* close out the table */
rc=fput(fileid, "]"); data _null_;
rc=fwrite(fileid); file &jref mod;
rc=fclose(filein); put ']';
rc=fclose(fileid);
run; run;
filename _sjs clear; filename _sjs clear;
%end; %end;
@@ -15195,20 +15191,16 @@ data _null_;
put ' %if &action=ARR %then "]" ; %else "}" ; ; '; put ' %if &action=ARR %then "]" ; %else "}" ; ; ';
put ' /* now write the long strings to _webout 1 byte at a time */ '; put ' /* now write the long strings to _webout 1 byte at a time */ ';
put ' data _null_; '; put ' data _null_; ';
put ' length filein 8 fileid 8; '; put ' infile _sjs; ';
put ' filein=fopen("_sjs",''I'',1,''B''); '; put ' file &jref mod; ';
put ' fileid=fopen("&jref",''A'',1,''B''); '; put ' input sourcechar $char1. @@; ';
put ' rec=''20''x; '; put ' format sourcechar hex2.; ';
put ' do while(fread(filein)=0); '; put ' put sourcechar char1. @@; ';
put ' rc=fget(filein,rec,1); '; put ' run; ';
put ' rc=fput(fileid, rec); ';
put ' rc=fwrite(fileid); ';
put ' end; ';
put ' /* close out the table */ '; put ' /* close out the table */ ';
put ' rc=fput(fileid, "]"); '; put ' data _null_; ';
put ' rc=fwrite(fileid); '; put ' file &jref mod; ';
put ' rc=fclose(filein); '; put ' put '']''; ';
put ' rc=fclose(fileid); ';
put ' run; '; put ' run; ';
put ' filename _sjs clear; '; put ' filename _sjs clear; ';
put ' %end; '; put ' %end; ';
@@ -19932,20 +19924,16 @@ data _null_;
put ' %if &action=ARR %then "]" ; %else "}" ; ; '; put ' %if &action=ARR %then "]" ; %else "}" ; ; ';
put ' /* now write the long strings to _webout 1 byte at a time */ '; put ' /* now write the long strings to _webout 1 byte at a time */ ';
put ' data _null_; '; put ' data _null_; ';
put ' length filein 8 fileid 8; '; put ' infile _sjs; ';
put ' filein=fopen("_sjs",''I'',1,''B''); '; put ' file &jref mod; ';
put ' fileid=fopen("&jref",''A'',1,''B''); '; put ' input sourcechar $char1. @@; ';
put ' rec=''20''x; '; put ' format sourcechar hex2.; ';
put ' do while(fread(filein)=0); '; put ' put sourcechar char1. @@; ';
put ' rc=fget(filein,rec,1); '; put ' run; ';
put ' rc=fput(fileid, rec); ';
put ' rc=fwrite(fileid); ';
put ' end; ';
put ' /* close out the table */ '; put ' /* close out the table */ ';
put ' rc=fput(fileid, "]"); '; put ' data _null_; ';
put ' rc=fwrite(fileid); '; put ' file &jref mod; ';
put ' rc=fclose(filein); '; put ' put '']''; ';
put ' rc=fclose(fileid); ';
put ' run; '; put ' run; ';
put ' filename _sjs clear; '; put ' filename _sjs clear; ';
put ' %end; '; put ' %end; ';
@@ -22277,20 +22265,16 @@ data _null_;
put ' %if &action=ARR %then "]" ; %else "}" ; ; '; put ' %if &action=ARR %then "]" ; %else "}" ; ; ';
put ' /* now write the long strings to _webout 1 byte at a time */ '; put ' /* now write the long strings to _webout 1 byte at a time */ ';
put ' data _null_; '; put ' data _null_; ';
put ' length filein 8 fileid 8; '; put ' infile _sjs; ';
put ' filein=fopen("_sjs",''I'',1,''B''); '; put ' file &jref mod; ';
put ' fileid=fopen("&jref",''A'',1,''B''); '; put ' input sourcechar $char1. @@; ';
put ' rec=''20''x; '; put ' format sourcechar hex2.; ';
put ' do while(fread(filein)=0); '; put ' put sourcechar char1. @@; ';
put ' rc=fget(filein,rec,1); '; put ' run; ';
put ' rc=fput(fileid, rec); ';
put ' rc=fwrite(fileid); ';
put ' end; ';
put ' /* close out the table */ '; put ' /* close out the table */ ';
put ' rc=fput(fileid, "]"); '; put ' data _null_; ';
put ' rc=fwrite(fileid); '; put ' file &jref mod; ';
put ' rc=fclose(filein); '; put ' put '']''; ';
put ' rc=fclose(fileid); ';
put ' run; '; put ' run; ';
put ' filename _sjs clear; '; put ' filename _sjs clear; ';
put ' %end; '; put ' %end; ';

22
base/mp_jsonout.sas
View File

@@ -236,20 +236,16 @@
%if &action=ARR %then "]" ; %else "}" ; ; %if &action=ARR %then "]" ; %else "}" ; ;
/* now write the long strings to _webout 1 byte at a time */ /* now write the long strings to _webout 1 byte at a time */
data _null_; data _null_;
length filein 8 fileid 8; infile _sjs;
filein=fopen("_sjs",'I',1,'B'); file &jref mod;
fileid=fopen("&jref",'A',1,'B'); input sourcechar $char1. @@;
rec='20'x; format sourcechar hex2.;
do while(fread(filein)=0); put sourcechar char1. @@;
rc=fget(filein,rec,1); run;
rc=fput(fileid, rec);
rc=fwrite(fileid);
end;
/* close out the table */ /* close out the table */
rc=fput(fileid, "]"); data _null_;
rc=fwrite(fileid); file &jref mod;
rc=fclose(filein); put ']';
rc=fclose(fileid);
run; run;
filename _sjs clear; filename _sjs clear;
%end; %end;

22
meta/mm_createwebservice.sas
View File

@@ -270,20 +270,16 @@ data _null_;
put ' %if &action=ARR %then "]" ; %else "}" ; ; '; put ' %if &action=ARR %then "]" ; %else "}" ; ; ';
put ' /* now write the long strings to _webout 1 byte at a time */ '; put ' /* now write the long strings to _webout 1 byte at a time */ ';
put ' data _null_; '; put ' data _null_; ';
put ' length filein 8 fileid 8; '; put ' infile _sjs; ';
put ' filein=fopen("_sjs",''I'',1,''B''); '; put ' file &jref mod; ';
put ' fileid=fopen("&jref",''A'',1,''B''); '; put ' input sourcechar $char1. @@; ';
put ' rec=''20''x; '; put ' format sourcechar hex2.; ';
put ' do while(fread(filein)=0); '; put ' put sourcechar char1. @@; ';
put ' rc=fget(filein,rec,1); '; put ' run; ';
put ' rc=fput(fileid, rec); ';
put ' rc=fwrite(fileid); ';
put ' end; ';
put ' /* close out the table */ '; put ' /* close out the table */ ';
put ' rc=fput(fileid, "]"); '; put ' data _null_; ';
put ' rc=fwrite(fileid); '; put ' file &jref mod; ';
put ' rc=fclose(filein); '; put ' put '']''; ';
put ' rc=fclose(fileid); ';
put ' run; '; put ' run; ';
put ' filename _sjs clear; '; put ' filename _sjs clear; ';
put ' %end; '; put ' %end; ';

22
server/ms_createwebservice.sas
View File

@@ -271,20 +271,16 @@ data _null_;
put ' %if &action=ARR %then "]" ; %else "}" ; ; '; put ' %if &action=ARR %then "]" ; %else "}" ; ; ';
put ' /* now write the long strings to _webout 1 byte at a time */ '; put ' /* now write the long strings to _webout 1 byte at a time */ ';
put ' data _null_; '; put ' data _null_; ';
put ' length filein 8 fileid 8; '; put ' infile _sjs; ';
put ' filein=fopen("_sjs",''I'',1,''B''); '; put ' file &jref mod; ';
put ' fileid=fopen("&jref",''A'',1,''B''); '; put ' input sourcechar $char1. @@; ';
put ' rec=''20''x; '; put ' format sourcechar hex2.; ';
put ' do while(fread(filein)=0); '; put ' put sourcechar char1. @@; ';
put ' rc=fget(filein,rec,1); '; put ' run; ';
put ' rc=fput(fileid, rec); ';
put ' rc=fwrite(fileid); ';
put ' end; ';
put ' /* close out the table */ '; put ' /* close out the table */ ';
put ' rc=fput(fileid, "]"); '; put ' data _null_; ';
put ' rc=fwrite(fileid); '; put ' file &jref mod; ';
put ' rc=fclose(filein); '; put ' put '']''; ';
put ' rc=fclose(fileid); ';
put ' run; '; put ' run; ';
put ' filename _sjs clear; '; put ' filename _sjs clear; ';
put ' %end; '; put ' %end; ';

22
viya/mv_createwebservice.sas
View File

@@ -413,20 +413,16 @@ data _null_;
put ' %if &action=ARR %then "]" ; %else "}" ; ; '; put ' %if &action=ARR %then "]" ; %else "}" ; ; ';
put ' /* now write the long strings to _webout 1 byte at a time */ '; put ' /* now write the long strings to _webout 1 byte at a time */ ';
put ' data _null_; '; put ' data _null_; ';
put ' length filein 8 fileid 8; '; put ' infile _sjs; ';
put ' filein=fopen("_sjs",''I'',1,''B''); '; put ' file &jref mod; ';
put ' fileid=fopen("&jref",''A'',1,''B''); '; put ' input sourcechar $char1. @@; ';
put ' rec=''20''x; '; put ' format sourcechar hex2.; ';
put ' do while(fread(filein)=0); '; put ' put sourcechar char1. @@; ';
put ' rc=fget(filein,rec,1); '; put ' run; ';
put ' rc=fput(fileid, rec); ';
put ' rc=fwrite(fileid); ';
put ' end; ';
put ' /* close out the table */ '; put ' /* close out the table */ ';
put ' rc=fput(fileid, "]"); '; put ' data _null_; ';
put ' rc=fwrite(fileid); '; put ' file &jref mod; ';
put ' rc=fclose(filein); '; put ' put '']''; ';
put ' rc=fclose(fileid); ';
put ' run; '; put ' run; ';
put ' filename _sjs clear; '; put ' filename _sjs clear; ';
put ' %end; '; put ' %end; ';