REPORT ZMJ_GETAPI.DATA: LEN TYPE I, "发送报文长度LEN_STRING TYPE STRING,URL TYPE STRING, "接口地址HTTP_CLIENT TYPE REF TO IF_HTTP_CLIENT, "http客户端POST_STRING TYPE STRING,RESULTTYPE STRING.DATA: IT_HEADER TYPE TIHTTPNVP,GV_JSON_IN TYPE STRING VALUE '{"IT_INPUT":[{"CUSTOMER":"12345678","PERNR":"00190935"}]}'.START-OF-SELECTION.URL = 'http://10.*.*.*:8001/api_sapnew/ZIF_DATA'."'http://10.X.X.X:8081/api/test/gettest'."创建http客户端CALL METHOD CL_HTTP_CLIENT=>CREATE_BY_URLEXPORTINGURL= URLIMPORTINGCLIENT = HTTP_CLIENTEXCEPTIONSARGUMENT_NOT_FOUND = 1PLUGIN_NOT_ACTIVE = 2INTERNAL_ERROR= 3OTHERS = 4."设定传输请求内容格式以及编码格式HTTP_CLIENT->REQUEST->SET_CONTENT_TYPE( CONTENT_TYPE = 'application/json; charset=utf-8' )."设置http method 为GetHTTP_CLIENT->REQUEST->SET_METHOD( IF_HTTP_REQUEST=>CO_REQUEST_METHOD_POST )."IF_HTTP_ENTITY~CO_REQUEST_METHOD_GET"设置待传输内容长度LEN = STRLEN( GV_JSON_IN )."设置调用方法CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELDEXPORTINGNAME = '~request_method'VALUE = 'POST'."设置传入字符串CALL METHOD HTTP_CLIENT->REQUEST->SET_CDATAEXPORTINGDATA = GV_JSON_INOFFSET = 0LENGTH = LEN."发送CALL METHOD HTTP_CLIENT->SENDEXCEPTIONSHTTP_COMMUNICATION_FAILURE = 1HTTP_INVALID_STATE = 2HTTP_PROCESSING_FAILED= 3HTTP_INVALID_TIMEOUT = 4OTHERS = 5."接收CALL METHOD HTTP_CLIENT->RECEIVEEXCEPTIONSHTTP_COMMUNICATION_FAILURE = 1HTTP_INVALID_STATE = 2HTTP_PROCESSING_FAILED= 3."提取返回字符串RESULT = HTTP_CLIENT->RESPONSE->GET_CDATA( )."将字符串中的回车符替换，否则abap将会识别为#REPLACE ALL OCCURRENCES OF REGEX '\n' IN RESULT WITH SPACE."获取接口返回的数据* RESULT = HTTP_CLIENT->RESPONSE->GET_CDATA( ).WRITE: RESULT.
如果觉得《【ABAP实例】SAP调用RESTful API测试用例》对你有帮助，请点赞、收藏，并留下你的观点哦！
