内表转JSON

FORM change_to_json  USING    p_input TYPE zclmt_1310_sgxt2erp_va41
                     CHANGING p_json TYPE string.
  p_json = /ui2/cl_json=>serialize(
                               data = p_input
                               compress = abap_true
                               pretty_name = /ui2/cl_json=>pretty_mode-camel_case ).
ENDFORM.