当前位置: 首页 > news >正文

ABAP Json解析案例

ABAP解析返回的JSON 案例

DATA:LTOKEN TYPE STRING.DATA: LL_LINES(10),"行数LL_TABIX(10),"循环标号LL_PECNT     TYPE P LENGTH 6 DECIMALS 2, "百分比LL_PECET(6),"百分数LL_TEXT(40)."消息CLEAR: LL_LINES,LL_TABIX,LL_PECNT,LL_PECET,LL_TEXT.*  CALL FUNCTION 'ZWMS_XHY_GET_TOKEN'
*    IMPORTING
*      LV_RESULT = LTOKEN.DATA: LEN            TYPE        I, "发送报文长度LEN_STRING     TYPE        STRING,URL            TYPE        STRING, "接口地址LV_URL         TYPE AGR_URL,LV_URL_STR     TYPE STRING,HTTP_CLIENT    TYPE REF TO IF_HTTP_CLIENT, "http客户端LV_SERVER_NAME TYPE ZE_SERVER_NAME,POST_STRING    TYPE        STRING,RESULT         TYPE        STRING,LTIMEEND       TYPE STRING, "时间戳结束LTIMEST        TYPE STRING. "时间戳开始LV_URL_STR = 'your URL '.CALL METHOD CL_HTTP_CLIENT=>CREATE_BY_URLEXPORTINGURL                = LV_URL_STRIMPORTINGCLIENT             = 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 ).DATA:LVJSON TYPE STRING.DATA:L_UUID32 TYPE SYSUUID_C32,ILOGS    LIKE ZRFCLOGS OCCURS 0 WITH HEADER LINE.DATA:ITEM TYPE I. "行项目ITEM = 0.LVJSON = '{"SQL":"SELECT top 20 MATNR from ZVMARC "}'. //your  json  参数LEN = STRLEN( LVJSON ).ILOGS-CALPARMI =  LVJSON.CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELDEXPORTINGNAME  = '~request_method'VALUE = 'POST'."设置传入字符串CALL METHOD HTTP_CLIENT->REQUEST->SET_CDATAEXPORTINGDATA   = LVJSONOFFSET = 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( ).DATA LS_CHAR TYPE C.LS_CHAR = CL_ABAP_CHAR_UTILITIES=>CR_LF.  " 获取换行符DATA: L_JSON_ROOT_OBJECT TYPE REF TO ZCL_MDP_JSON_NODE.DATA: L_ERRORTYPE_OBJECT TYPE REF TO ZCL_MDP_JSON_NODE.DATA: L_SAP_TEST_OBJECT TYPE REF TO ZCL_MDP_JSON_NODE.DATA: L_ERRORNO_OBJECT TYPE REF TO ZCL_MDP_JSON_NODE.DATA: L_SAP_TEST_ROW1_OBJECT TYPE REF TO ZCL_MDP_JSON_NODE.DATA: L_SAP_TEST_FUNC_ID_OBJECT TYPE REF TO ZCL_MDP_JSON_NODE.DATA: LTAR TYPE TABLE OF ZCL_MDP_JSON_NODE=>TYP_ARRAY_CHILDREN.L_JSON_ROOT_OBJECT = ZCL_MDP_JSON_NODE=>DESERIALIZE( JSON = RESULT ).DATA: L_STRING TYPE STRING.L_ERRORTYPE_OBJECT = L_JSON_ROOT_OBJECT->OBJECT_GET_CHILD_NODE( KEY = 'RESULT').LTAR  = L_ERRORTYPE_OBJECT->ARRAY_CHILDREN().LOOP AT LTAR INTO DATA(LSAR).L_SAP_TEST_OBJECT = LSAR-NODE.L_SAP_TEST_FUNC_ID_OBJECT  =  L_SAP_TEST_OBJECT->OBJECT_GET_CHILD_NODE( KEY = 'MATNR' ).WRITE :/ L_SAP_TEST_FUNC_ID_OBJECT->VALUE.ENDLOOP.WRITE:/ '123'.

http://www.lryc.cn/news/356459.html

相关文章:

  • QT学习(20):QStyle和自定义样式
  • 香橙派 AIpro 昇腾 Ascend C++ 分类模型适配
  • 2024吉林省电赛(达盛杯)
  • 【算法题】520 钻石争霸赛 2024 全解析
  • Yii 结合MPDF 给PDF文件添加多行水印
  • 你什么时候感觉学明白Java了?
  • 马斯克xAI融资60亿美元,宣布打造世界第一超算中心,10万张H100GPU
  • 贪心算法[1]
  • 卢文岩博士受邀参与中国科学院大学校友论坛 解码DPU核心价值
  • 2024年上半年软件设计师试题及答案(回忆版)
  • QGIS使用python代码导出给定坐标图片
  • 看花眼,眼花缭乱的主食冻干到底应该怎么选?靠谱的主食冻干分享
  • 开源VS闭源:谁更能推动AI技术的普及与发展?
  • 前端面试题日常练-day28 【面试题】
  • 好消息!DolphinScheduler官网集成LLM模型问答AI kapa.ai
  • 【软考】下篇 第19章 大数据架构设计理论与实践
  • 创新指南|降低 TikTok CPA 的 9 项专家策略
  • jmeter服务器性能监控分析工具ServerAgent教程
  • 工作纪实50-Idea下载项目乱码
  • 37. 解数独 - 力扣(LeetCode)
  • 使用uniapp编写的微信小程序进行分包
  • 设计模式19——观察者模式
  • C++算术运算和自增自减运算
  • Python深度学习:【模型系列】一文搞懂Transformer架构的三种注意力机制
  • 微服务架构中Java的应用
  • 【强训笔记】day25
  • 知识产权与标准化
  • 【LeetCode:2769. 找出最大的可达成数字 + 模拟】
  • 编程5年的老哥说:我代码里从来不用锁,谁爱...
  • CogAgent:开创性的VLM在GUI理解和自动化任务中的突破