내가 만든이 매크로 사용하여 SAS

Question

내가 SAS와 JSON 형식의 데이터를 내보내는거야 포맷 값을 연결하는 방법 :

%macro json4datatables(ds,path,file,charvars,numvars) 
    /store source 
    DES="json4datatables(ds,path,file,charvars,numvars)"; 

    /* creates a json with no headers 
    * a bit like a csv without the first line 
    * it takes thus less space 
    * but you have to know which column is what 
    */ 

    data _null_; 
     length line $300; 
     set &ds nobs=nobs end=end; 
     file "&path.&file." encoding='utf-8' bom/**/ ; 

     line = '['; 

     %if &charvars ne %then %do; 
      %do i=1 %to %sysfunc(countw(&charvars)); 
       %let charvar = %scan(&charvars, &i); 
       %if &i ne 1 %then %do; 
        line = cats(line,','); 
       %end; 
       line = cats(line,'"',&charvar,'"'); 
      %end; 
     %end; 
     %if &numvars ne %then %do; 
      %do i=1 %to %sysfunc(countw(&numvars)); 
       %let numvar = %scan(&numvars, &i); 
       %if &i ne 1 OR &charvars ne %then %do; 
        line = cats(line,','); 
       %end; 
       line = cats(line,'',&numvar,''); 
      %end; 
     %end; 

     line = cats(line,']'); 

     if _n_=1 then put '{"data": ['; 
     if not end then put line +(-1) ','; 
     else do; 
      put line; 
      put ']}'; 
     end; 
    run; 

%mend json4datatables; 

을하지만 내 문제는 원료 값이 수출되고 있다는 점이다.
서식이 지정된 값을 내보내 려합니다.

어떻게하면됩니까?
나는 값 대신 형식화 된 값을 연결할 수있는 함수가있을 것이라고 생각하고 cats()를 그 값으로 바꿀 수 있습니다.

감사합니다.

Answer 1

VVALUE() 기능을 사용하십시오.

line = cats(line,'',vvalue(&numvar),''); 

또한 CATX() 기능을 사용하지 않는 이유는 무엇입니까? 문자 값에 대한

line = catx(',',line,vvalue(&numvar)); 

와

%if &i ne 1 OR &charvars ne %then %do; 
    line = cats(line,','); 
%end; 
line = cats(line,'',vvalue(&numvar),''); 

교체는 QUOTE() 기능을 사용합니다.

line = catx(',',line,quote(cats(vvalue(&charvar)))); 

끝에 대괄호를 추가하십시오. 당신이 vformat function 만 putn 및 putc 지원을 사용하는 경우

line = cats('[',line,']'); 

Answer 2

아마도 VVALUE는 찾고있는 기능 일 것이지만 CATS를 대체하지는 않습니다. 또한 견적을 위해 QUOTE 기능을 사용하십시오.

Answer 3

당신은 형식 vformat function을 사용 얻기 위해, 형식 인쇄 값으로 put, putc 또는 putn 기능을 사용할 수 있지만.

line = cats(line,'"',putc(&charvar, vformat(&charvar)),'"'); 
line = cats(line,'',putn(&numvar, vformat(&numvar)),'');