Not able to create ABAP structure to use /ui2/cl_json=>deserialize - json

Question

My json file looks like:
{
"1489402": {
"Category": "Program error",
"CorrectionInstructionsObjectList": [{
"ObjectName": "/SCMB/CL_IM_ORG_CHECK IF_EX_HRBAS00_RELAT~MAINTAIN_RELATION",
"ObjectType": "METH",
"ProgramID": "LIMU"
}, {
"ObjectName": "/SCMB/MP556100_F01",
"ObjectType": "REPS",
"ProgramID": "LIMU"
}, {
"ObjectName": "/SCMB/GET_ORG_STRUCTURE",
"ObjectType": "FUNC",
"ProgramID": "LIMU"
}],
"CurrentStatus": "Released for Customer",
"PrimarySAPComponent": "tm-md-org",
"ReleasedOn": "16.07.2010"
}
}
I want to create a corresponding ABAP structure in my report so that I can consume this json file and map it into the structure. I want to use /ui2/cl_json=>deserialize but I am not able to fugure out what should be the receiving ABAP type.
/ui2/cl_json=>deserialize( EXPORTING json = lv_json_content
pretty_name = /ui2/cl_json=>pretty_mode-camel_case
CHANGING data = lt_data ).
In other words what should be the structure of lt_data.

Answer 1

I don't answer your question because I don't master /ui2/cl_json, but I propose another solution.
As rule of thumb, I wouldn't recommend to use /ui2/cl_json because it's not officially supported by SAP as far as I know (it's just an initiative of one SAP employee), but to use XSLT or SAP Simple Transformation language (preferred). I go for XSLT because ST is impossible to use due to the dynamic property name "1489402" in the JSON file.
Create an XSLT transformation
The ABAP program calls the transformation
Note that when the transformation source is JSON, SAP converts it into SAP JSON-XML format (tags like <object>, <array>, <str>).
The XSLT transformation must return XML in SAP asXML format if the transformation result is an ABAP variable (i.e. RESULT root = variable, not RESULT XML variable).
XSLT transformation Z_OBJECTS:
<xsl:transform xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:sap="http://www.sap.com/sapxsl" version="1.0">
<xsl:strip-space elements="*"/>
<xsl:template match="/object/object">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<ROOT>
<ITEM_NAME>
<xsl:value-of select="#name"/>
</ITEM_NAME>
<CATEGORY>
<xsl:value-of select="str[#name='Category']"/>
</CATEGORY>
<OBJECT_LIST>
<xsl:for-each select="array/object">
<item>
<OBJECT_NAME>
<xsl:value-of select="str[#name='ObjectName']"/>
</OBJECT_NAME>
<OBJECT_TYPE>
<xsl:value-of select="str[#name='ObjectType']"/>
</OBJECT_TYPE>
<PROGRAM_ID>
<xsl:value-of select="str[#name='ProgramID']"/>
</PROGRAM_ID>
</item>
</xsl:for-each>
</OBJECT_LIST>
<CURRENT_STATUS>
<xsl:value-of select="str[#name='CurrentStatus']"/>
</CURRENT_STATUS>
<PRIMARY_SAP_COMPONENT>
<xsl:value-of select="str[#name='PrimarySAPComponent']"/>
</PRIMARY_SAP_COMPONENT>
<RELEASED_ON>
<xsl:value-of select="str[#name='ReleasedOn']"/>
</RELEASED_ON>
</ROOT>
</asx:values>
</asx:abap>
</xsl:template>
</xsl:transform>
ABAP program:
TYPES: BEGIN OF ty_object,
object_name TYPE string,
object_type TYPE string,
program_id TYPE string,
END OF ty_object,
ty_object_list TYPE STANDARD TABLE OF ty_object WITH EMPTY KEY,
BEGIN OF ty_item,
item_name TYPE string, " will contain "1489402"
category TYPE string,
object_list TYPE ty_object_list,
current_status TYPE string,
primary_sap_component TYPE string,
released_on TYPE string,
END OF ty_item.
DATA(json) = `{ "1489402": {`
&& ` "Category": "Program error",`
&& ` "CorrectionInstructionsObjectList": [{`
&& ` "ObjectName": "/SCMB/CL_IM_ORG_CHECK IF_EX_HRBAS00_RELAT~MAINTAIN_RELATION",`
&& ` "ObjectType": "METH",`
&& ` "ProgramID": "LIMU"`
&& ` }, {`
&& ` "ObjectName": "/SCMB/MP556100_F01",`
&& ` "ObjectType": "REPS",`
&& ` "ProgramID": "LIMU"`
&& ` }, {`
&& ` "ObjectName": "/SCMB/GET_ORG_STRUCTURE",`
&& ` "ObjectType": "FUNC",`
&& ` "ProgramID": "LIMU"`
&& ` }],`
&& ` "CurrentStatus": "Released for Customer",`
&& ` "PrimarySAPComponent": "tm-md-org",`
&& ` "ReleasedOn": "16.07.2010"}}`.
DATA(item) = VALUE ty_item( ).
CALL TRANSFORMATION z_objects SOURCE XML json RESULT root = item.
NB: so that to write the XSL transformation, you need to know the JSON-XML of a given JSON. You may use the ID transformation to know it. Example:
DATA(json) = `{"a":[1,"s"]}`.
DATA(json_xml) = ``.
CALL TRANSFORMATION id SOURCE XML json RESULT XML json_xml OPTIONS xml_header = 'no'.
ASSERT json_xml+1 = `<object><array name="a"><num>1</num><str>s</str></array></object>`.

Answer 2

You may try this, it shall work. Pay attention to two additional flags for deserializing which control the processing of associative arrays and also name mappings for comfortable renaming.
TYPES:
BEGIN OF ts_cio,
object_name TYPE string,
object_type TYPE string,
program_id TYPE string,
END OF ts_cio,
BEGIN OF ts_error,
category TYPE string,
ci_list TYPE STANDARD TABLE OF ts_cio WITH DEFAULT KEY,
current_status TYPE string,
primary_sap_component TYPE string,
released_on TYPE d,
END OF ts_error,
BEGIN OF ts_dump,
id TYPE i,
error TYPE ts_error,
END OF ts_dump,
tt_dump TYPE SORTED TABLE OF ts_dump WITH UNIQUE KEY id.
DATA: lt_data TYPE tt_dump.
/ui2/cl_json=>deserialize( EXPORTING json = lv_json
pretty_name = /ui2/cl_json=>pretty_mode-camel_case
assoc_arrays = abap_true
assoc_arrays_opt = abap_true
name_mappings = VALUE #(
( abap = `CI_LIST` json = `CorrectionInstructionsObjectList` )
( abap = `PROGRAM_ID` json = `ProgramID` )
( abap = `PRIMARY_SAP_COMPONENT` json = `PrimarySAPComponent` ) )
CHANGING data = lt_data ).