I got a question: I want to stream a dataset as a JSON object in my browser. As we are not yet on SAS 9.4 i'm using this macro: %stpbegin; %macro json(indata=,outfile=); proc contents data=&indata noprint out=cont; proc sort data=cont; by varnum; data _null_; set cont end=eof; call symput(compress("var"||put(_n_,best10.)),trim(name)); if eof then do; call symput("nv",compress(put(_N_,best10.))); call symput("mv",compress(put(_N_-1,best10.))); end; run; data _null_; file "&outfile" PS=32767; set &indata end=lastrec; if _N_ eq 1 then do; put '['; end; put '{ "' @; put "%trim(&var1)"@; put '":"' &var1 '",'; %do i = 2 %to &mv; put '"' @; put "%trim(&&var&i)"@; put '":"' &&var&i '",'; %end; put '"' @; put "%trim(&&var&nv)"@; put '":"' &&var&nv '"}'; if lastrec eq 1 then do; put ']'; end; else do; put ','; end; RUN; %mend json; %json(indata=output_json,outfile=temp); %stpend; But my result does not show anything in my browser, any idea?
... View more
