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.</nowik>

* Salida Reporte
 <nowiki> [{"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>