abap解析JSON,创建JSON

"定义返回JOSN数据格式
CLASS zscan_getmoudlepoline DEFINITION FINAL.
  PUBLIC SECTION.
    DATA:matli TYPE zmatli,
         matno TYPE zmatns,
         alums TYPE matnr,
         matnr TYPE matnr,
         mouts TYPE zmouts,
         machs TYPE zmachs,
         thick TYPE zthick,
         diame TYPE zdiame,
         heigh TYPE zheigh,
         facie TYPE zfacie,
         alloy TYPE zalloy,
         grade TYPE zgrade,
         densi TYPE zdensi,
         mouds TYPE zmouds,
         indat TYPE zindat,
         werks TYPE werks_ext.
ENDCLASS.


CLASS ty_getmoudlepoline_data DEFINITION FINAL.
  PUBLIC SECTION.
    DATA: message TYPE string."MESSAGE 用于数据状态
    DATA: data TYPE STANDARD TABLE OF REF TO  zscan_getmoudlepoline.
ENDCLASS.


"定义接收JOSN数据格式
CLASS zscan_getmoudlepoline_req DEFINITION FINAL.
  PUBLIC SECTION.
    DATA:  alums TYPE matnr."查询物料
ENDCLASS.

CLASS zweixin_reqgetmoudlepoline_cl DEFINITION FINAL.
  PUBLIC SECTION.
    DATA:  interfaceid TYPE string.
    DATA:  reqdata TYPE REF TO zscan_getmoudlepoline_req.
ENDCLASS.

CLASS zweixin_resgetmoudlepoline_cl DEFINITION FINAL.

  PUBLIC SECTION.
    DATA:  interfaceid TYPE string.
    DATA:  resdata TYPE  REF TO ty_getmoudlepoline_data.
ENDCLASS.


FUNCTION zget_moudle_poline01.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(INDATA) TYPE  STRING
*"  EXPORTING
*"     REFERENCE(OUTDATA) TYPE  STRING
*"----------------------------------------------------------------------
  DATA: o_message TYPE zservmessage,
        o_return  TYPE flag,
        i_poline  TYPE zppmj_order_line OCCURS 0 WITH HEADER LINE,
        t_poline  TYPE  zppmj_order_line OCCURS 0 WITH HEADER LINE.
  DATA: zweixin_req TYPE REF TO zweixin_reqgetmoudlepoline_cl,
        zweixin_res TYPE REF TO zweixin_resgetmoudlepoline_cl.
  DATA: datatab TYPE REF TO zscan_getmoudlepoline.
  DATA :i_alums TYPE matnr.
  /ui2/cl_json=>deserialize( EXPORTING json = indata pretty_name = /ui2/cl_json=>pretty_mode-camel_case CHANGING data = zweixin_req ).
  DATA: intab TYPE REF TO zscan_getmoudlepoline_req.
  DATA: outtab TYPE REF TO ty_getmoudlepoline_data.
  CREATE OBJECT zweixin_res.
  CREATE OBJECT outtab.
  outtab->message = 'failed'.

  IF zweixin_req IS NOT INITIAL.
    IF zweixin_req->reqdata IS NOT INITIAL.
      ASSIGN zweixin_req->reqdata TO FIELD-SYMBOL(<fs>).
      IF <fs>->alums IS NOT INITIAL.
        i_alums = <fs>->alums .
      ENDIF.
    ENDIF.
  ENDIF.

  CLEAR t_poline[].
  IF i_alums <> '' .
    SELECT *
      INTO CORRESPONDING FIELDS OF TABLE t_poline
      FROM zppmj_order_line
      WHERE alums = i_alums
      AND werks = '1000'.
    IF sy-subrc = 0.
      o_return = 'S'.
      o_message = i_poline-alums && ' 查询成功.'.
    ELSE.
      o_return = 'E'.
      o_message = i_poline-alums && ' 查询无数据.'.
    ENDIF.
  ELSE.
    o_return = 'E'.
    o_message = i_poline-alums && ' 型材编码或工厂不能为空.'.
  ENDIF.


  IF t_poline[] IS NOT INITIAL.
    LOOP AT t_poline.
      CREATE OBJECT datatab.
      datatab->matli = t_poline-matli.
      datatab->matno = t_poline-matno.
      datatab->alums = t_poline-alums.
      datatab->matnr = t_poline-matnr.
      datatab->mouts = t_poline-mouts.
      datatab->machs = t_poline-machs.
      datatab->thick = t_poline-thick.
      datatab->diame = t_poline-diame.
      datatab->heigh = t_poline-heigh.
      datatab->facie = t_poline-facie.
      datatab->alloy = t_poline-alloy.
      datatab->grade = t_poline-grade.
      datatab->densi = t_poline-densi.
      datatab->mouds = t_poline-mouds.
      datatab->indat = t_poline-indat.
      datatab->werks = t_poline-werks.
      APPEND datatab TO outtab->data.
      outtab->message = 'Succes'.
    ENDLOOP.
  ENDIF.
  zweixin_res->resdata = outtab.

* SERIALIZE JSON
  outdata = /ui2/cl_json=>serialize( data = zweixin_res pretty_name = /ui2/cl_json=>pretty_mode-camel_case numc_as_string = abap_true ).
  FREE  outtab->data.
  FREE:  outtab,t_poline.



ENDFUNCTION.