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

fix: avoid truncation for formatted outputs

Browse Source 
Closes #287
This commit is contained in:
Allan Bowe
2022-07-14 14:16:42 +00:00
parent ff6ae1b066
commit 884b45bf12
5 changed files with 16 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
base/mp_jsonout.sas
View File

@@ -126,7 +126,6 @@
if format='' then fmt=cats('$',length,'.');
else if formatl=0 then fmt=cats(format,'.');
else fmt=cats(format,formatl,'.');
newlen=max(formatl,length);
end;
else do;
typelong='num';
@@ -134,15 +133,12 @@
else if formatl=0 then fmt=cats(format,'.');
else if formatd=0 then fmt=cats(format,formatl,'.');
else fmt=cats(format,formatl,'.',formatd);
/* needs to be wide, for datetimes etc */
newlen=max(length,formatl,24);
end;
/* 32 char unique name */
newname='sasjs'!!substr(cats(put(md5(name),$hex32.)),1,27);
call symputx(cats('name',_n_),name,'l');
call symputx(cats('newname',_n_),newname,'l');
call symputx(cats('len',_n_),newlen,'l');
call symputx(cats('length',_n_),length,'l');
call symputx(cats('fmt',_n_),fmt,'l');
call symputx(cats('type',_n_),type,'l');
@@ -195,7 +191,8 @@
%end;
));
%do i=1 %to &numcols;
length &&name&i $&&len&i;
/* all vars are now char, and labels could be up to 32767 */
length &&name&i $32767;
%if &&typelong&i=num %then %do;
&&name&i=left(put(&&newname&i,&&fmt&i));
%end;