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.