Question

我试图通过SAS Enterprise Guide发送JSON文件，但是我认为我在代码上犯了一些错误。

下面是我的代码：

>>生成JSON文件：

   data teste30;
    set MATABLES.TEMPJSON;
     RESP=cat(CUSTOMERID,"|",RESPTRACKING_CD);
     CODSMS="WXS";  
     MOBILE="5511111111";
     DATAPARA="09/05/2019";
     DATALIMI="10/05/2019";
     REMETENTE="TF";
    run;    


filename code temp;
data _null_;
  set teste30;
  file code ;
  put 'WRITE OPEN OBJECT;'
    / 'WRITE VALUES "TP_SMS" ' CODSMS :$quote. ';' 
    / 'WRITE VALUES "NM_REMETENTESMS" ' REMETENTE :$quote. ';'
    / 'WRITE VALUES "NR_TELEFONECELULARSMS" ' MOBILE :$quote. ';'
    / 'WRITE VALUES "TX_MENSAGEMSMS" ' msgtext :$quote. ';'
    / 'WRITE VALUES "DT_PARAENVIOSMS" ' DATAPARA  :$quote. ';'
    / 'WRITE VALUES "DT_LIMITEENVIOSMS" ' DATALIMI  :$quote. ';'
    / 'WRITE VALUES "DS_CHAVEORIGEMSMS" ' RESP :$quote. ';'
    / 'WRITE CLOSE;'
  ;
run;

proc json out="%sysfunc(getoption(WORK))/TEST.json" pretty nokeys nosastags;
  write open array; /* container for all the data */
  %include code;
  write close;    /* container for all the data */
run;

我的JSON似乎还可以。当我尝试将其发送给API时，出现了问题：

>>调用API帖子

FILENAME POSTA "C:\TEMP\POSTA.TXT";
FILENAME code2 "%sysfunc(getoption(WORK))/test.json";
PROC HTTP
    URL="HTTPS://*********/SMS/INCLUISMS"
    CT="APPLICATION/JSON"
    IN=code2
    METHOD="POST"
    OUT=POSTA;
    HEADERS
        "HOST"="*****"
        "AUTHORIZATION"="BEARER xxxxxxxxxxxx"  
        "CONTENT-TYPE"="APPLICATION/JSON"
        "CONTENT-LENGTH"="xx"

RUN;
%echoFile(fn=code2);


%PUT HTTP STATUS CODE = &SYS_PROCHTTP_STATUS_CODE. : &SYS_PROCHTTP_STATUS_PHRASE.;

EG上的日志返回此错误：错误：tcpSockRead调用失败。系统错误为“连接已被对等方重置”。错误：连接已关闭。

我尝试在“ IN =“（例如：IN =” C：\ TEMP \ Test.json）上输入路径和文件名（物理），但没有成功。

有人有过类似的经历吗？如何使用“ IN =”发送JSON（文件）？有可能吗？

Tks伙计们！

Answer 1

当我仅使用一个参数使用“数据文件”时，它正常工作。我在API调用上取得了成功。下面是代码：

/* Put the body of the JSON content in external file */
filename json_in temp;
data _null_;
file json_in;
input;
put _infile_;
datalines;
{ "Tp_Email":"CCA001" }
run;

filename posta "c:\temp\posta.txt";
filename post1 temp;
proc http
	url="https://***********/*****/***/ObterEmailTexto"
	method="POST"
	ct="application/x-www-form-urlencoded"
	in=json_in
    out=posta;
	headers
		"Host"="****"
		"Authorization"="bearer &TOKEN"  
		"Content-Type"="application/json"
		"Content-Length"="**"
		"CD_Login"="*****";
Run;
/*
data _null_;
   infile posta;
   input;
   put _infile_;
run;
*/
%put HTTP Status code = &SYS_PROCHTTP_STATUS_CODE. : &SYS_PROCHTTP_STATUS_PHRASE.;

当我尝试在主体上传递JSON文件时，发生了通知错误。

FILENAME POSTA "C:\TEMP\POSTA.TXT";
FILENAME code2 "%sysfunc(getoption(WORK))/test.json";
PROC HTTP java_http
	URL="HTTPS://**********/*****/SMS/INCLUISMS"
   	ct="application/x-www-form-urlencoded"
	IN=code2
	METHOD="POST"
    OUT=POSTA;
	HEADERS
		"HOST"="*****"
		"AUTHORIZATION"="BEARER &TOKEN"  
		"CONTENT-TYPE"="APPLICATION/JSON"
		"CONTENT-LENGTH"="**"
		"CD_LOGIN"="******";
RUN;
 

%PUT HTTP STATUS CODE = &SYS_PROCHTTP_STATUS_CODE. : &SYS_PROCHTTP_STATUS_PHRASE.;

退出 java_http 选项：错误：tcpSockRead调用失败。系统错误为“连接已被对等方重置”。错误：连接已关闭。

具有 java_http 选项：错误：Java执行模式不支持语句HEADERS。

谢谢。再次！！！ TF

如何通过EG上的API（POST）发送.JSON文件？

1 个答案: