JSON格式:[{“BUKRS”:"",“KOSTL”:"",“MCTXT”:""}, {“BUKRS”:"",“KOSTL”:"",“MCTXT”:""}]
DATA:GT_M_KOSTN LIKE TABLE OF M_KOSTN WITH HEADER LINE.
SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_M_KOSTN FROM M_KOSTN WHERE BUKRS = G_BUKRS AND DATBI = ‘99991231’ .
CONCATENATE ‘[’ RESULT INTO RESULT.
LOOP AT GT_M_KOSTN.
CONCATENATE RESULT ‘{’ ‘“BUKRS”:’ '"'GT_M_KOSTN-BUKRS ‘"’ ‘,’ ‘“KOSTL”:’ '"'GT_M_KOSTN-KOSTL ‘"’ ‘,’ ‘“MCTXT”:’ '"'GT_M_KOSTN-MCTXT ‘"’ ‘},’ INTO RESULT.
ENDLOOP.
DATA:N TYPE I.
N = strlen( RESULT ) - 1.
RESULT = RESULT+0(N).
CONCATENATE RESULT ‘]’ INTO RESULT.