JSON + ABAP ~ Simples assim!

Olá, pessoal!

         JSON (Java Script Object Notation) vem se destacando por ser uma das maneiras mais eficientes quando se trata em formatação, representação e intercâmbio de dados, tendo em vista que estes deverão ser providos de modo estruturado e organizado; facilitando, contudo, sua legibilidade.
         Assim como ocorre com uma das principais linguagens de marcação para organização no processo de intercâmbio de dados entre recursos – XML (subconjunto simplificado da metalinguagem SGML), existem rotinas no ABAP que são capazes de interpretar e prover dados sob formatações específicas.

     ~ Implementação do código ABAP: 

DATA it_aux TYPE TABLE OF c WITH EMPTY KEY.

it_aux = VALUE #( ( 'A' ) ( 'B' ) ( 'A' ) ( 'P' ) ).

DATA(lr_json) =
  cl_sxml_string_writer=>create( type =
                    if_sxml=>co_xt_json ).

CALL TRANSFORMATION id SOURCE itab = it_aux
                       RESULT XML lr_json.

DATA(iv_json) = lr_json->get_output( ).

CALL TRANSFORMATION sjson2html SOURCE XML iv_json
                               RESULT XML DATA(iv_html).

cl_abap_browser=>show_html( html_string =
  cl_abap_codepage=>convert_from( iv_html ) ).

Ainda, é possível utilizar o método estático DISPLAY_JSON, da classe CL_DEMO_OUTPUT, ao invés de invocar a transformação XSL SJSON2HTML. Entretanto, a classe CL_DEMO_OUTPUT não foi desenvolvida para ser utilizada em ambientes produtivos.

     ~ Exibição da saída de informações:

         Até a próxima!

~ Créditos ao lendário Horst Keller.