本程序演示ABAP内表数据如何转为JSON格式,
以及JSON数据如何放入内表。
REPORT ZTEST005.
DATA : JSON_SER TYPE REF TO CL_TREX_JSON_SERIALIZER,
JSON_DES TYPE REF TO CL_TREX_JSON_DESERIALIZER.
DATA : JSONSTR TYPE STRING.
DATA : BEGIN OF ITAB OCCURS 0 ,
MATNR TYPE MAKT-MATNR,
MAKTX TYPE MAKT-MAKTX,
END OF ITAB.
START-OF-SELECTION.
SELECT * INTO CORRESPONDING FIELDS OF TABLE ITAB
FROM MAKT UP TO 20 ROWS WHERE SPRAS = '1'.
"内表-》JSON
CREATE OBJECT JSON_SER
EXPORTING
DATA = ITAB[].
CALL METHOD JSON_SER->SERIALIZE.
CALL METHOD JSON_SER->GET_DATA
RECEIVING
RVAL = JSONSTR.
"JSON-》内表
REFRESH ITAB[]."会append
CREATE OBJECT JSON_DES.
CALL METHOD JSON_DES->DESERIALIZE
EXPORTING
JSON = JSONSTR
IMPORTING
ABAP = ITAB[].
LOOP AT ITAB.
WRITE : / SY-TABIX,ITAB-MATNR,ITAB-MAKTX.
ENDLOOP.
- ABAP:
- ActionScript:
- Ada:
- AdvPL:
- ASP:
- AWK:
- Bash:
- BlitzMax:
- C:
- C++:
- C#:
- Ciao:
- Clojure:
- Cobol:
- Net.Data:
- Nim:
- Objective C:
- OCaml:
- PascalScript:
- Perl:
- Photoshop:
- PHP:
- PicoLisp:
- Pike:
- PL/SQL:
- PowerShell:
- Puredata:
- Python:
- R:
- Racket:
- Rebol:
- RPG:
- Rust:
- Ruby:
- Scheme:
- Squeak:
- Symbian:
- Tcl:
- JSON.
- Visual Basic:
- Visual FoxPro: