SAP ABAP JSON

Uso en programas ABAP

FORM crear_json USING p_guia TYPE zhr01_dgtl
                      p_uname
             CHANGING p_string_json TYPE string.
  DATA: json_writer TYPE REF TO cl_sxml_string_writer.
  DATA json TYPE xstring.
  DATA lt_guia TYPE TABLE OF zhr01_dgtl.

  APPEND p_guia TO lt_guia.

  json_writer = cl_sxml_string_writer=>create(
                          type = if_sxml=>co_xt_json ).

  CALL TRANSFORMATION zhcm_guia_dgtl
                    SOURCE root = lt_guia
                           usuario = p_uname
                    RESULT XML json_writer.   "se usa el ejemplo 2 de Ejemplos

  json = json_writer->get_output( ).

*  PERFORM encoding2 CHANGING json p_string_json.
  PERFORM decode USING json
              CHANGING p_string_json.

ENDFORM.                    " CREAR_JSON

FORM decode USING p_xstring
          CHANGING p_string.
 
  CALL METHOD cl_http_utility=>if_http_utility~decode_utf8
    EXPORTING
      encoded   = p_xstring
    RECEIVING
      unencoded = p_string.
ENDFORM.                    "decode

Ejemplo Serializing JSON

*&---------------------------------------------------------------------*
*& Report YTEST_JSON3
*&---------------------------------------------------------------------*
*& ejemplo Serializing JSON
*&---------------------------------------------------------------------*
REPORT ytest_json3 LINE-SIZE 260.

DATA l_string TYPE string.
TYPES: BEGIN OF ty_t001,
         bukrs TYPE t001-bukrs,
         butxt TYPE t001-butxt,
         ort01 TYPE t001-ort01,
         land1 TYPE t001-land1,
         waers TYPE t001-waers,
         spras TYPE t001-spras,
       END OF ty_t001.
DATA lt_data TYPE TABLE OF ty_t001.

SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_data FROM t001 UP TO 2 ROWS
                                      where land1 = 'DE'.

CALL METHOD /ui2/cl_json=>serialize
  EXPORTING
    data   = lt_data   " Data to serialize
  RECEIVING
    r_json = l_string.   " JSON string

WRITE:/ l_string.

CALL METHOD /ui2/cl_json=>serialize
  EXPORTING
    data        = lt_data   " Data to serialize
    pretty_name = /ui2/cl_json=>pretty_mode-camel_case
  RECEIVING
    r_json      = l_string.   " JSON string

WRITE:/ l_string.

CALL METHOD /ui2/cl_json=>serialize
  EXPORTING
    data        = lt_data   " Data to serialize
    pretty_name = /ui2/cl_json=>pretty_mode-camel_case
    name        = 'SOCIEDADES'
  RECEIVING
    r_json      = l_string.   " JSON string

WRITE:/ l_string.


TYPES: BEGIN OF ty_data,
         nombre     TYPE string,
         edad       TYPE i,
         nacimiento TYPE d,
         direccion  TYPE string,
         plata(10)  TYPE p DECIMALS 0,
       END OF ty_data.

DATA wa TYPE ty_data.

wa-nombre = 'Deadpool'.
wa-edad = 1000.
wa-nacimiento = '19720915'.
wa-direccion = 'USA'.
wa-plata = 999999.

CALL METHOD /ui2/cl_json=>serialize
  EXPORTING
    data   = wa   " Data to serialize
  RECEIVING
    r_json = l_string.   " JSON string

WRITE:/ l_string.

*####################################################################
TYPES:
  BEGIN OF tp_s_data,
    sschema             TYPE string,
    odatacontext        TYPE string,
    shortened_abap_name TYPE string,
    standard            TYPE string,
  END OF tp_s_data.

DATA: ls_exp     TYPE tp_s_data,
      lt_mapping TYPE /ui2/cl_json=>name_mappings,
      lv_json    TYPE /ui2/cl_json=>json.

lt_mapping = VALUE #( ( abap = `SSCHEMA` json = `$schema` )
                      ( abap = `ODATACONTEXT` json = `@odata.context` )
                      ( abap = `SHORTENED_ABAP_NAME` json = `VeeeeryyyyyLooooongJSONAttrbuuuuuuuuuteeeeeeeeeee` ) ).

ls_exp-sschema = 'sss'.
ls_exp-odatacontext = 'odata'.
ls_exp-shortened_abap_name = 'ssssname'.
ls_exp-standard = 'stan'.

lv_json = /ui2/cl_json=>serialize( data = ls_exp name_mappings = lt_mapping ).
WRITE:/ lv_json.

• Salida Reporte

[{"BUKRS":"0001","BUTXT":"SAP A.G.","ORT01":"Walldorf","LAND1":"DE","WAERS":"EUR","SPRAS":"D"},{"BUKRS":"COPY","BUTXT":"Copy from CC.0001","ORT01":"(Only G/L accounts B-seg)","LAND1":"DE","WAERS":"EUR","SPRAS":"D"}]
[{"bukrs":"0001","butxt":"SAP A.G.","ort01":"Walldorf","land1":"DE","waers":"EUR","spras":"D"},{"bukrs":"COPY","butxt":"Copy from CC.0001","ort01":"(Only G/L accounts B-seg)","land1":"DE","waers":"EUR","spras":"D"}]
"SOCIEDADES":[{"bukrs":"0001","butxt":"SAP A.G.","ort01":"Walldorf","land1":"DE","waers":"EUR","spras":"D"},{"bukrs":"COPY","butxt":"Copy from CC.0001","ort01":"(Only G/L accounts B-seg)","land1":"DE","waers":"EUR","spras":"D"}]
{"NOMBRE":"Deadpool","EDAD":1000,"NACIMIENTO":"1972-09-15","DIRECCION":"USA","PLATA":999999}
{"$schema":"sss","@odata.context":"odata","VeeeeryyyyyLooooongJSONAttrbuuuuuuuuuteeeeeeeeeee":"ssssname","STANDARD":"stan"}

Ejemplo de programa que genera archivo XSLT JSON, útil para Json con muchos campos

 *&---------------------------------------------------------------------*
 *& Report YJSON
 *&---------------------------------------------------------------------*
 *&
 *&---------------------------------------------------------------------*
 REPORT yjson.
 TYPES: BEGIN OF ty_fields,
          fieldname TYPE string,
        END OF ty_fields.
 
 DATA lt_fields TYPE TABLE OF ty_fields.
 DATA ls_fields TYPE ty_fields.
 
 DATA l_string TYPE string.
 
 DEFINE m_append.
   CLEAR ls_fields.
   ls_fields-fieldname = &1.
   APPEND ls_fields TO lt_fields.
 
 END-OF-DEFINITION.
 
 START-OF-SELECTION.
 
   m_append 'nombre'.
   m_append 'apellido'.
   m_append 'uvpAsignacionTraslacion'.
   m_append 'mesUvpAsignacionTraslacion'.
   m_append 'anoUvpAsignacionTraslacion'.
   m_append 'uvpAsignMovilizacionEjec'.
   m_append 'mesUvpAsignMovilizacionEjec'.
   m_append 'anoUvpAsignMovilizacionEjec'.
   m_append 'sueldoBaseMensual'.
   m_append 'mesSueldoBaseMensual'.
   m_append 'anoSueldoBaseMensual'.
   m_append 'posicion'.
   m_append 'proporcionalGratificacion'.
   m_append 'mesProporcionalGratificacion'.
   m_append 'anoProporcionalGratificacion'.
   m_append 'anoPagoGratificacion'.
   m_append 'proporcionalAnticipoGratificacion'.
   m_append 'mesProporcionalAnticipoGratificacion'.
   m_append 'anoProporcionalAnticipoGratificacion'.
   m_append 'anoPagoAnticipoGratificacion'.
   m_append 'proporcionalProvBonoBagEjec'.
   m_append 'mesProporcionalProvBonoBagEjec'.
   m_append 'anoProporcionalProvBonoBagEjec'.
   m_append 'anoPagoProvBonoBagEjec'.
   m_append 'uvpAsigTransporte'.
   m_append 'mesUvpAsigTransporte'.
   m_append 'anoUvpAsigTransporte'.
   m_append 'uvpAsigAlimentacion'.
   m_append 'mesUvpAsigAlimentacion'.
   m_append 'anoUvpAsigAlimentacion'.
   m_append 'saldoPendienteVacacionesLegales'.
   m_append 'saldoPendienteVacacionesContract'.
   m_append 'saldoPendienteVacacionesProgresivas'.
   m_append 'uvpAporteGestionDesempeno'.
   m_append 'mesUvpAporteGestionDesempeno'.
   m_append 'anoUvpAporteGestionDesempeno'.
   m_append 'antiguedad'.
   m_append 'uvpBecaExcelenciaTrabajado'.
   m_append 'mesUvpBecaExcelenciaTrabajado'.
   m_append 'anoUvpBecaExcelenciaTrabajado'.
   m_append 'uvpBecaEscPreEscolar'.
   m_append 'mesUvpBecaEscPreEscolar'.
   m_append 'anoUvpBecaEscPreEscolar'.
   m_append 'uvpBecaBasicaMedia'.
   m_append 'mesUvpBecaBasicaMedia'.
   m_append 'anoUvpBecaBasicaMedia'.
   m_append 'uvpBecaSuperior'.
   m_append 'mesUvpBecaSuperior'.
   m_append 'anoUvpBecaSuperior'.
   m_append 'uvpBecaExcelenciaBenefic'.
   m_append 'mesUvpBecaExcelenciaBenefic'.
   m_append 'anoUvpBecaExcelenciaBenefic'.
   m_append 'totalSubsidiadoFecha'.
   m_append 'mesTotalSubsidiadoFecha'.
   m_append 'anoTotalSubsidiadoFecha'.
   m_append 'totalSubsidiadoFechaDSB'.
   m_append 'mesTotalSubsidiadoFechaDSB'.
   m_append 'anoTotalSubsidiadoFechaDSB'.
   m_append 'asignacionFaenaCordillera'.
   m_append 'mesAsignacionFaenaCordillera'.
   m_append 'anoAsignacionFaenaCordillera'.
   m_append 'proporcionalBonoVacacionesSPS'.
   m_append 'mesProporcionalBonoVacacionesSPS'.
   m_append 'anoProporcionalBonoVacacionesSPS'.
   m_append 'proporcionalAnticipoBonoVacacionesSPS'.
   m_append 'mesProporcionalAnticipoBonoVacacionesSPS'.
   m_append 'anoProporcionalAnticipoBonoVacacionesSPS'.
   m_append 'uvpAsignacionBonoVacaSPS'.
   m_append 'mesUvpAsignacionBonoVacaSPS'.
   m_append 'anoUvpAsignacionBonoVacaSPS'.
   m_append 'uvpAguinaldoFiestasPatrias'.
   m_append 'mesUvpAguinaldoFiestasPatrias'.
   m_append 'anoUvpAguinaldoFiestasPatrias'.
   m_append 'uvpAguinaldoNavidad'.
   m_append 'mesUvpAguinaldoNavidad'.
   m_append 'anoUvpAguinaldoNavidad'.
   m_append 'proporcionalAnticipoBonoFlexible'.
   m_append 'mesProporcionalAnticipoBonoFlexible'.
   m_append 'anoProporcionalAnticipoBonoFlexible'.
   m_append 'anoPagoAnticipoBonoFlexible'.
   m_append 'uvpAsignMovilizacion'.
   m_append 'mesUvpAsignMovilizacion'.
   m_append 'anoUvpAsignMovilizacion'.
   m_append 'uvpAsignAlimentacion'.
   m_append 'mesUvpAsignAlimentacion'.
   m_append 'anoUvpAsignAlimentacion'.
   m_append 'uvpAsignColacion'.
   m_append 'mesUvpAsignColacion'.
   m_append 'anoUvpAsignColacion'.
   m_append 'uvpAsignacionTurnoNoche'.
   m_append 'mesUvpAsignacionTurnoNoche'.
   m_append 'anoUvpAsignacionTurnoNoche'.
   m_append 'anoPagoAporteGestionDesempeno'.
   m_append 'uvpIncTrimGestionNegocio'.
   m_append 'mesUvpIncTrimGestionNegocio'.
   m_append 'anoUvpIncTrimGestionNegocio'.
   m_append 'uvpIncentivosGestionMensual'.
   m_append 'mesUvpIncentivosGestionMensual'.
   m_append 'anoUvpIncentivosGestionMensual'.
   m_append 'uvpAsignRiesgoCambioTurno'.
   m_append 'mesUvpAsignRiesgoCambioTurno'.
   m_append 'anoUvpAsignRiesgoCambioTurno'.
   m_append 'uvpAsigTempRespEjec'.
   m_append 'mesUvpAsigTempRespEjec'.
   m_append 'anoUvpAsigTempRespEjec'.
   m_append 'uvpAsignacionAcademicaSPS'.
   m_append 'mesUvpAsignacionAcademicaSPS'.
   m_append 'anoUvpAsignacionAcademicaSPS'.
   m_append 'uvpBonoCompBenSalaCuna'.
   m_append 'mesUvpBonoCompBenSalaCuna'.
   m_append 'anoUvpBonoCompBenSalaCuna'.
   m_append 'uvpAsignacionUtilesSPS'.
   m_append 'mesUvpAsignacionUtilesSPS'.
   m_append 'anoUvpAsignacionUtilesSPS'.
   m_append 'uvpAsignacionCapacitacion'.
   m_append 'mesUvpAsignacionCapacitacion'.
   m_append 'anoUvpAsignacionCapacitacion'.
   m_append 'uvpAsignacionDiasFestivos'.
   m_append 'mesUvpAsignacionDiasFestivos'.
   m_append 'anoUvpAsignacionDiasFestivos'.
   m_append 'permisoAdministratSPS'.
   m_append 'uvpAsignacionFallecimiento'.
   m_append 'mesUvpAsignacionFallecimiento'.
   m_append 'anoUvpAsignacionFallecimiento'.
   m_append 'asignacionMaternidad'.
   m_append 'mesAsignacionMaternidad'.
   m_append 'anoAsignacionMaternidad'.
   m_append 'uvpDepConvenidoMensual'.
   m_append 'mesUvpDepConvenidoMensual'.
   m_append 'anoUvpDepConvenidoMensual'.
   m_append 'uvpAsignControlMedicoOcup'.
   m_append 'mesUvpAsignControlMedicoOcup'.
   m_append 'anoUvpAsignControlMedicoOcup'.
   m_append 'uvpBecaConyuge'.
   m_append 'mesUvpBecaConyuge'.
   m_append 'anoUvpBecaConyuge'.
 
 data(l_e) = CL_ABAP_CHAR_UTILITIES=>CR_LF.
 
   LOOP AT lt_fields INTO ls_fields.
 
     l_string = |<object>{ l_e }<str name="{ ls_fields-fieldname }">{ l_e }<tt:value ref="$ref.{ ls_fields-fieldname }"/>{ l_e }</str>{ l_e }</object>{ l_e }|.
     IF sy-tabix = 1.
       DATA(l_string_json) = l_string.
     ELSE.
       CONCATENATE l_string_json l_string INTO l_string_json.
     ENDIF.
   ENDLOOP.
 
   BREAK-POINT.

• salida

<object>
 <str name="nombre">
 <tt:value ref="$ref.nombre"/>
 </str>
 </object>
 <nowiki><object>
 <str name="apellido">
 <tt:value ref="$ref.apellido"/>
 </str>
 </object>
 <object>
 <str name="uvpAsignacionTraslacion">
 <tt:value ref="$ref.uvpAsignacionTraslacion"/>
 </str>
 </object>
 <object>
 <str name="mesUvpAsignacionTraslacion">
 <tt:value ref="$ref.mesUvpAsignacionTraslacion"/>
 </str>
 </object>
 ...
 ...
 ...
 <object>
 <str name="anoUvpBecaConyuge">
 <tt:value ref="$ref.anoUvpBecaConyuge"/>
 </str>
 </object>