sap中用url读取解析数据

╰+哭是因爲堅強的太久メ 2023-10-11 19:11 47阅读 0赞

FUNCTION zfi\_epib\_mt\_cmb\_reques.

\*"----------------------------------------------------------------------

\*"\*"本地接口：

\*" IMPORTING

\*" VALUE(INPUT) TYPE ZFICO\_EPIC004 OPTIONAL

\*" VALUE(BUKRS) TYPE BUKRS OPTIONAL

\*" EXPORTING

\*" VALUE(O\_ERROR) TYPE CHAR100

\*" REFERENCE(OUTPUT) TYPE ZFICO\_EPIC004C

\*" TABLES

\*" TABLE TYPE ZFICO\_EPIC004E OPTIONAL

\*"----------------------------------------------------------------------

DATA msg TYPE string.

DATA: lo\_oref TYPE REF TO cx\_st\_error.

DATA: lv\_url TYPE string.

DATA: lo\_http\_client TYPE REF TO if\_http\_client.

DATA: binary\_msg TYPE string.

DATA: lv\_len TYPE i,

lv\_msgtx TYPE string.

DATA: lv\_respon TYPE string.

TRY.

CALL TRANSFORMATION zfico0004a

SOURCE output=input

RESULT XML msg.

REPLACE ALL OCCURRENCES OF REGEX '' IN msg WITH '$1>'.

REPLACE 'utf-16' IN msg WITH 'GBK'.

CATCH cx\_st\_error INTO lo\_oref .

ENDTRY.

binary\_msg=cl\_abap\_codepage=>convert\_to( source=msg codepage='GBK' ).

SELECT SINGLE url FROM zfit0001a

INTO lv\_url

WHERE zyhsx='CMB'

AND bukrs=bukrs.

"创建客户端请求

CALL METHOD cl\_http\_client=>create\_by\_url

EXPORTING

url =lv\_url

IMPORTING

client =lo\_http\_client

EXCEPTIONS

argument\_not\_found=1

plugin\_not\_active=2

internal\_error=3

OTHERS =4.

IF sy-subrc <> 0.

"lv\_subrc=sy-subrc.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH

sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

EXIT.

ENDIF.

"设定传输请求内容格式以及编码格式

lo\_http\_client->request->set\_content\_type( content\_type='application/xml; charset=GBK' ).

"设定调用服务

lo\_http\_client->request->set\_method( if\_http\_request=>co\_request\_method\_post ).

"设置待传输内容

lv\_len=strlen( binary\_msg ).

CALL METHOD lo\_http\_client->request->set\_cdata

EXPORTING

data=binary\_msg

offset=0

length=lv\_len.

"发送请求

lo\_http\_client->send( EXCEPTIONS http\_communication\_failure=1

http\_invalid\_state=2 ).

IF sy-subrc <> 0.

"操作失败，获取失败原因

"lv\_subrc=sy-subrc.

lo\_http\_client->get\_last\_error( IMPORTING message=lv\_msgtx ).

\* lv\_msgty='E'.

o\_error=lv\_msgtx.

EXIT.

ENDIF.

"读取远程服务返回的处理过结果。

lo\_http\_client->receive( EXCEPTIONS http\_communication\_failure=1

http\_invalid\_state=2

http\_processing\_failed=3 ).

IF sy-subrc <> 0 .

lo\_http\_client->get\_last\_error( IMPORTING message=lv\_msgtx ).

\* lv\_msgty='E'.

o\_error=lv\_msgtx.

EXIT.

ELSE.

"读取返回返回内容

CLEAR lv\_respon.

lv\_respon=lo\_http\_client->response->get\_cdata( ).

TRY .

CALL TRANSFORMATION zfico0004b

SOURCE XML lv\_respon

RESULT output=output

root=table\[\].

CATCH cx\_st\_error INTO lo\_oref .

ENDTRY.

ENDIF.

ENDFUNCTION.

sap中用url读取解析数据

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关 sap中用url读取解析数据

相关 SAP ABAP 如何读取EXCEL数据到内表

相关 Vue中解析URL

相关 SAP ABAP 常用代码-数据处理

相关 js中 json读取解析json数据

相关 SAP长文本读取

相关 Hadoop URL中读取数据出错：unknown protocol: hdfs

相关 js读取解析JSON数据

相关使用java读取/解析XML数据

相关用正则解析URL中的所有参数