Bellacosa Mainframe COBOL com JSON

JSON em COBOL no IBM Z: O Holocron das APIs Modernas

Como um Linguagem Criada em 1959 Aprendeu a Conversar com APIs, Mobile, Open Banking e a Nuvem

Por muitos anos, o universo COBOL parecia limitado a arquivos VSAM, DB2, IMS, CICS, JCLs e relatórios batch executados silenciosamente nos datacenters. Entretanto, a transformação digital trouxe novos desafios e uma nova linguagem passou a dominar a comunicação entre aplicações modernas: JSON (JavaScript Object Notation).

Hoje, smartphones, microsserviços, OpenShift, Open Banking, PIX, aplicações em nuvem e plataformas de inteligência artificial utilizam JSON como principal formato de intercâmbio de informações. E o mais interessante é que o Enterprise COBOL para IBM Z evoluiu para participar naturalmente desse ecossistema.

Com a introdução das instruções JSON PARSE e JSON GENERATE no Enterprise COBOL 6.x, programas COBOL passaram a compreender, produzir e consumir documentos JSON de forma nativa, eficiente e segura, permitindo a integração com APIs REST, IBM MQ, Kafka, z/OS Connect e arquiteturas modernas baseadas em eventos.

Esta série especial Bellacosa Mainframe apresenta uma jornada completa para o jovem Padawan COBOL compreender desde os conceitos básicos até técnicas avançadas utilizadas por especialistas IBM Z.

---

📖 Capítulo 1 – O Despertar do JSON

Quando o Padawan Descobre que COBOL Pode Falar a Linguagem das APIs

Neste primeiro holocron, exploramos os fundamentos do JSON, sua história, a chegada do suporte nativo ao Enterprise COBOL, diferenças entre JSON e XML, conceitos de UTF-8 e EBCDIC, além dos primeiros exemplos utilizando JSON GENERATE.

➡️ https://eljefemidnightlunch.blogspot.com/2024/07/json-em-cobol-no-ibm-z-o-holocron-das.html

---

📖 Capítulo 2 – JSON PARSE

Quando o Padawan Aprende a Transformar Texto em Estruturas COBOL

Aqui mergulhamos na instrução JSON PARSE, aprendendo a converter documentos JSON em estruturas COBOL, trabalhar com objetos aninhados, vetores utilizando OCCURS, tratar exceções, validar payloads recebidos e compreender os desafios relacionados à segurança e ao processamento de grandes volumes de dados.

➡️ https://eljefemidnightlunch.blogspot.com/2024/09/json-em-cobol-no-ibm-z-o-holocron-das.html

---

📖 Capítulo 3 – JSON GENERATE

Quando o Padawan Aprende a Construir APIs REST com COBOL

No terceiro capítulo, estudamos JSON GENERATE, recursos como SUPPRESS, NAME OF, tratamento de campos opcionais, construção de respostas para APIs REST, geração de payloads PIX e Open Banking, além de recomendações de desempenho e proteção contra exposição acidental de informações sensíveis.

➡️ https://eljefemidnightlunch.blogspot.com/2024/10/json-em-cobol-no-ibm-z-o-holocron-das.html

---

📖 Capítulo 4 – JSON Jedi Master

z/OS Connect, MQ, Kafka, OpenShift, OWASP e as Técnicas Jedi do IBM Z

No capítulo final, elevamos o nível de conhecimento para arquiteturas corporativas modernas. Exploramos o papel do z/OS Connect, integração com IBM MQ, Kafka, OpenShift, APIs de alto desempenho, conceitos da OWASP API Top 10, estratégias de observabilidade, segurança, escalabilidade e as melhores práticas adotadas por equipes especializadas em IBM Z.

➡️ https://eljefemidnightlunch.blogspot.com/2024/11/json-em-cobol-no-ibm-z-o-holocron-das.html

---

O Conselho Final do Mestre Bellacosa

Durante décadas, disseram aos desenvolvedores COBOL que sua missão terminava em arquivos sequenciais e terminais verdes. O JSON mostrou exatamente o contrário. Ele permitiu que programas escritos há décadas passassem a conversar com smartphones, microsserviços, aplicações em nuvem e plataformas digitais espalhadas por toda a galáxia tecnológica.

COBOL não precisou abandonar sua robustez, estabilidade ou capacidade de processar milhões de transações por segundo. Ele apenas aprendeu um novo idioma.

E talvez esta seja a maior lição deste Holocron:

COBOL não é uma tecnologia do passado.

COBOL é um veterano experiente que aprendeu a falar a língua do futuro.

Que o JSON PARSE esteja com você. E que o JSON GENERATE jamais exponha uma senha em produção. 🚀💙🖥️

Para ir mais longe

🔥☕ Como se Usa JSON em COBOL?

Nos últimos anos, o JSON (JavaScript Object Notation) tornou-se o formato mais utilizado para integração entre aplicações modernas, APIs REST, Mobile, Cloud e Mainframe.

https://eljefemidnightlunch.blogspot.com/2007/02/como-se-usa-json-em-cobol.html

🔥☕ JSON: O “COBOL DOS DADOS MODERNOS”? — A Linguagem Invisível Que Dominou APIs, Nuvem e Até o Mainframe

https://eljefemidnightlunch.blogspot.com/2010/10/json-o-cobol-dos-dados-modernos.html

JSON em COBOL no IBM Z: O Holocron das APIs Modernas – JSON Jedi Master - Parte IV

 

Bellacosa Mainframe e o json no cobol parte iv

JSON em COBOL no IBM Z: O Holocron das APIs Modernas

Parte 4 – JSON Jedi Master

z/OS Connect, MQ, Kafka, OpenShift, APIs de Alto Desempenho, Segurança OWASP e as Técnicas Jedi do IBM Z

Por Bellacosa Mainframe

---

"O Padawan aprende JSON PARSE. O Cavaleiro domina JSON GENERATE. O Mestre compreende que JSON é apenas a linguagem utilizada para conectar mundos inteiros."

Mestre Bellacosa Sysprog Jedi

---

Introdução

Chegamos ao último holocron.

Na Parte 1 aprendemos:

• JSON

• JSON GENERATE

• UTF8

• APIs

Na Parte 2:

• JSON PARSE

• Arrays

• OCCURS

• Segurança

Na Parte 3:

• JSON GENERATE avançado

• SUPPRESS

• NAME OF

• APIs REST

Agora chegamos ao nível do Mestre.

O momento em que COBOL deixa de apenas processar JSON.

E passa a ser um participante ativo de arquiteturas modernas.

---

O grande segredo

Muitos ainda imaginam.

COBOL

↓

Batch

↓

Relatório

↓

Fim.

Mas o IBM Z moderno é muito diferente.

Hoje podemos encontrar:

COBOL

↓

JSON

↓

API

↓

Mobile

↓

Cloud

↓

Kafka

↓

OpenShift

↓

IA

↓

Aplicações Web

---

O papel do JSON

JSON tornou-se.

O idioma universal.

---

Imagine.

Banco.

Aplicativo.

PIX.

Open Finance.

Cartão.

Seguro.

Marketplace.

IoT.

---

Praticamente todos utilizam.

JSON.

---

z/OS Connect

Talvez seja a tecnologia mais importante.

Para o COBOL moderno.

---

O que é?

Uma ponte.

Entre.

IBM Z.

E.

REST APIs.

---

Visualmente.

Smartphone

↓

REST

↓

z/OS Connect

↓

COBOL

↓

DB2

---

Exemplo

Usuário.

Consulta saldo.

Aplicativo.

↓

HTTPS

↓

z/OS Connect

↓

JSON

↓

COBOL

↓

DB2

↓

JSON

↓

Aplicativo

---

Tudo transparente.

---

COBOL não vê HTTP

Na maioria dos casos.

Não.

---

Ele apenas recebe.

Estrutura.

COBOL.

Já preenchida.

---

Exemplo.

01 WS-CONTA.


05 AGENCIA.


05 CONTA.

---

JSON PARSE.

Feito.

Automaticamente.

---

MQ

Outro caso.

Muito comum.

---

Mensagem.

Chega.

MQ.

---

Payload.

JSON.

---

COBOL.

Processa.

---

Exemplo.

{

"tipo":"pix",

"valor":100

}

---

COBOL.

Recebe.

---

Executa.

Negócio.

---

Responde.

---

JSON GENERATE.

---

MQPUT.

---

Fim.

---

Kafka

Sim.

Também.

---

Arquitetura.

COBOL

↓

MQ

↓

Kafka Bridge

↓

Kafka

↓

Analytics

---

Muito utilizado.

---

Open Finance.

---

Fraudes.

---

IA.

---

Big Data.

---

OpenShift

Outro mundo.

Interessante.

---

Microsserviços.

Containers.

Kubernetes.

---

COBOL.

Participa.

---

Arquitetura.

OpenShift

↓

REST

↓

zOS Connect

↓

COBOL

↓

IMS

DB2

---

Muito elegante.

---

APIs síncronas

Cliente.

Espera.

Resposta.

---

Exemplo.

Saldo.

---

API.

Responde.

200 ms.

---

APIs assíncronas

MQ.

Kafka.

Evento.

---

Mais modernas.

---

GraphQL

Também possível.

---

Embora.

Menos comum.

---

Segurança

Aqui começa.

O lado sombrio.

---

OWASP.

Existe.

Também.

Para APIs.

---

OWASP API Top 10

Excelente leitura.

---

Problemas.

Mais comuns.

---

Excesso.

Dados.

---

Exposição.

Sensível.

---

Autorização.

Fraca.

---

Payload.

Gigante.

---

DoS.

---

Exemplo ruim

COBOL.

01 CLIENTE.


05 CPF.


05 SENHA.


05 TOKEN.

---

JSON GENERATE.

---

API.

---

Exposta.

---

Desastre.

---

Melhor

Criar DTO.

---

Exemplo.

01 API-CLIENTE.


05 NOME.


05 LIMITE.

---

Muito melhor.

---

JWT

Muito utilizado.

---

JSON Web Token.

---

Aplicação.

Recebe.

---

Valida.

---

Autoriza.

---

COBOL.

Pode.

Consumir.

---

Ou.

Delegar.

---

TLS

Obrigatório.

Hoje.

---

HTTPS.

Sempre.

---

Nunca.

HTTP.

---

Rate Limit

Muito importante.

---

Evita.

DoS.

---

Exemplo.

Chamadas.

Por minuto.

---

Logs

Essenciais.

---

Exemplo.

2026-06-25


PIX


100 reais


OK

---

Muito útil.

---

Auditoria.

---

Performance

JSON.

Tem custo.

---

Parser.

CPU.

---

Serializer.

CPU.

---

Mas.

IBM Z.

É extremamente eficiente.

---

Benchmarks.

Mostram.

Milhares.

TPS.

---

Sem dificuldades.

---

JSON gigantesco

Cuidado.

---

Exemplo.

50 MB.

---

Parser.

Vai sofrer.

---

CPU.

Memória.

---

Melhor.

Paginar.

---

Streaming

Excelente opção.

---

Processar.

Em partes.

---

Mais eficiente.

---

Cache

Pode ajudar.

---

JSON.

Já montado.

---

Evita.

JSON GENERATE.

Toda vez.

---

Curiosidade

Muitos bancos.

Geram.

Milhões.

JSON.

Por hora.

---

E.

Grande parte.

Nasce.

Em COBOL.

---

Curiosidade 2

Usuário.

Abre.

App.

---

Consulta.

Saldo.

---

Recebe.

JSON.

---

Origem.

Programa COBOL.

Escrito.

---

Executando.

Num.

IBM z17.

---

Curiosidade 3

Muitos.

Open Banking.

Brasileiros.

Passam.

Por.

COBOL.

Sem.

Que.

Usuário.

Perceba.

---

Bellacosa Best Practices

Regra 1

Nunca.

Gerar.

JSON.

Com STRING.

---

Regra 2

JSON GENERATE.

Sempre.

---

Regra 3

JSON PARSE.

Sempre.

---

Regra 4

Versione.

APIs.

---

Exemplo.

v1

v2

v3

---

Regra 5

OpenAPI.

Swagger.

Documente.

---

Regra 6

Nunca.

Expor.

Campos internos.

---

Regra 7

Teste.

UTF8.

---

Regra 8

Monitore.

SMF.

RMF.

Logs.

---

Regra 9

Valide.

Payloads.

---

Regra 10

Use.

OWASP.

API Top 10.

---

Quando usar JSON?

Excelente.

REST.

Open Banking.

PIX.

Cloud.

Kafka.

MQ.

OpenShift.

Mobile.

Marketplace.

IoT.

Microsserviços.

---

Quando evitar?

Batch.

VSAM.

Arquivos internos.

Processamento.

Fechado.

---

O Conselho Final do Mestre Bellacosa

Durante muito tempo, disseram ao desenvolvedor COBOL que seu universo terminava em arquivos sequenciais, JCLs, relatórios impressos e terminais verdes.

JSON mostrou que isso nunca foi verdade.

JSON permitiu que programas escritos décadas atrás passassem a conversar com smartphones, aplicativos financeiros, plataformas Open Banking, clusters OpenShift, sistemas Kafka e serviços espalhados por diversas nuvens.

Talvez essa seja a maior beleza do IBM Z moderno.

Ele não obriga ninguém a abandonar o COBOL.

Ele apenas entrega novas ferramentas.

E diz:

Continue usando seus níveis 01, 05, 10 e OCCURS.

Continue confiando na robustez do Enterprise COBOL.

Continue processando milhões de transações por segundo.

Eu apenas ensinarei seu programa a falar o idioma utilizado pela galáxia digital.

E talvez essa seja a verdadeira lição do Holocron JSON.

JSON não substituiu COBOL.

JSON apenas permitiu que COBOL expandisse sua voz para além dos corredores do datacenter, alcançando praticamente qualquer sistema capaz de compreender uma simples mensagem cercada por chaves e aspas.

---

Fim do Holocron Bellacosa Mainframe

JSON em COBOL no IBM Z – Parte 1 a Parte 4 concluídas

"Que o JSON PARSE esteja com você. E que o JSON GENERATE nunca produza um campo SENHA por engano." 🚀💙🖥️

JSON em COBOL no IBM Z: O Holocron das APIs Modernas – JSON GENERATE - Parte III

 

Bellacosa Mainframe e o json em cobol parte iii

JSON em COBOL no IBM Z: O Holocron das APIs Modernas

Parte 3 – JSON GENERATE

Quando o Padawan Aprende a Construir APIs REST com COBOL e Descobre que Também Pode Falar com a Galáxia

Por Bellacosa Mainframe

---

"JSON PARSE ensina COBOL a escutar. JSON GENERATE ensina COBOL a responder. Um Mestre Jedi precisa dominar ambos."

Mestre Bellacosa Sysprog Jedi

---

Introdução

Nas jornadas anteriores, o jovem Padawan descobriu algo extraordinário.

Primeiro aprendeu que COBOL moderno fala JSON.

Depois aprendeu a utilizar JSON PARSE.

Agora chega o momento em que ele percebe uma verdade ainda mais impressionante.

COBOL não apenas entende JSON.

COBOL também consegue produzir JSON de forma elegante, otimizada e extremamente rápida.

E isso é feito através de uma instrução quase tão poderosa quanto um sabre de luz recém-montado.

JSON GENERATE

---

O que é JSON GENERATE?

JSON GENERATE é um serializador.

Seu objetivo é simples.

Transformar estruturas COBOL em texto JSON.

Visualmente.

WORKING STORAGE


↓

JSON GENERATE


↓

JSON


↓

REST API


↓

Aplicativo


↓

Microsserviço

---

Em outras palavras.

Ele faz exatamente o oposto de JSON PARSE.

---

Antes do Enterprise COBOL 6

A vida era difícil.

Muitos sistemas faziam:

STRING

"{"

'"id":'

WS-ID

','
'"nome":"'

WS-NOME

'"'

"}"

INTO WS-BUFFER

---

Problemas.

Vírgulas.

Aspas.

Espaços.

Campos vazios.

Arrays.

Escape.

Tudo manual.

---

Padawan sofria.

---

O nascimento de JSON GENERATE

Enterprise COBOL Version 6.

Introduziu.

JSON GENERATE.

---

Mudou completamente.

Integrações.

---

Hoje.

Muito utilizado.

6.3

6.4

6.5

---

Primeiro exemplo

Passo 1

Estrutura COBOL

01 WS-CLIENTE.


05 WS-ID.
PIC 9(5).


05 WS-NOME.
PIC X(30).


05 WS-IDADE.
PIC 999.

---

Passo 2

JSON Buffer

01 WS-JSON.

PIC X(500).

---

Passo 3

Popular

MOVE 100

TO WS-ID


MOVE 'Bellacosa'

TO WS-NOME


MOVE 52

TO WS-IDADE

---

Passo 4

Gerar

JSON GENERATE

WS-JSON


FROM WS-CLIENTE

---

Passo 5

Display

DISPLAY WS-JSON

---

Resultado.

{

"id":100,

"nome":"Bellacosa",

"idade":52

}

---

Pronto.

API pronta.

---

Como funciona internamente?

Compilador gera.

Serializer.

---

Percorre.

Estrutura.

Campo.

Por campo.

---

Converte.

Numéricos.

Strings.

Booleans.

Occurs.

---

Escreve.

JSON.

---

Visualmente.

WS-ID


↓

Serializer


↓

"id":100

---

Memória

JSON continua sendo.

Texto.

---

Exemplo.

01 WS-JSON.

PIC X(10000).

---

Buffer.

Grande.

---

Serializer.

Preenche.

---

Pouco overhead.

---

Muito eficiente.

---

Campos vazios

Problema comum.

---

Exemplo.

MOVE SPACES

TO WS-NOME

---

Resultado.

"name":""

---

Nem sempre desejado.

---

SUPPRESS

Ferramenta poderosa.

---

Exemplo conceitual.

JSON GENERATE

WS-JSON


FROM WS-DADOS


SUPPRESS

---

Campos vazios.

Não aparecem.

---

Muito usado.

Em APIs.

---

OMITTED

Outra técnica.

---

Campo opcional.

---

Excelente.

Open Banking.

PIX.

---

NAME OF

Talvez a funcionalidade favorita.

Do Bellacosa.

---

COBOL.

05 WS-NOME.

---

JSON desejado.

"customerName"

---

NAME OF permite.

Mapear.

---

Muito elegante.

---

Exemplo API PIX

COBOL.

01 PIX.


05 CHAVE.


05 VALOR.


05 DATA.

---

JSON.

{

"chave":"abc",


"valor":100,


"data":"2026-06-25"

}

---

JSON GENERATE.

Faz.

Tudo.

---

Arrays

Muito útil.

---

COBOL.

05 TELEFONES.


10 TEL OCCURS 5.

---

JSON.

"telefones":[


"1111",


"2222"

]

---

Automático.

---

Objetos aninhados

COBOL.

01 CLIENTE.


05 DADOS.


10 ID.


10 NOME.



05 ENDERECO.


10 CIDADE.


10 CEP.

---

Resultado.

{

"cliente":{


"id":1,

"nome":"Bellacosa"


},

"endereco":{


"cidade":"SP"

}

}

---

Muito elegante.

---

Null

JSON suporta.

---

COBOL não.

---

Precisamos.

Decidir.

---

Campo vazio.

---

Campo omitido.

---

Valor padrão.

---

Muito importante.

---

UTF8

Outro cuidado.

---

JSON.

UTF8.

---

COBOL.

EBCDIC.

---

Conversão.

Necessária.

---

Especialmente.

Acentos.

---

José.

São Paulo.

---

Ç.

Ã.

---

Sempre testar.

---

Segurança

Poucos lembram.

---

JSON GENERATE.

Também possui.

Riscos.

---

Exemplo.

Dados internos.

---

Senha.

---

CPF.

---

Token.

---

Acidentalmente.

Expostos.

---

Exemplo.

01 CLIENTE.


05 SENHA.


PIC X(20).

---

JSON GENERATE.

Sem SUPPRESS.

---

API.

Expõe.

Senha.

---

Muito perigoso.

---

Boa prática

Criar.

Estrutura.

Específica.

API.

---

Nunca.

Gerar.

Diretamente.

Working Storage.

Inteira.

---

Pretty JSON

COBOL.

Não gera.

JSON bonito.

---

Compacto.

---

Mais eficiente.

---

Consumidor.

Pode formatar.

---

Performance

Excelente.

---

Serializer.

Nativo.

---

Compilado.

---

Muito rápido.

---

Melhor.

Que STRING.

---

Melhor.

Que montar.

Na mão.

---

Benchmark aproximado

Manual.

100%

---

JSON GENERATE.

Muito menor.

CPU.

---

Menos bugs.

---

Mais manutenção.

---

Curiosidade

Muitos aplicativos bancários.

Recebem.

JSON.

Gerado.

Por COBOL.

---

Usuário.

Nunca percebe.

---

Abre app.

---

Consulta saldo.

---

Recebe.

JSON.

---

Origem.

COBOL.

No z17.

---

APIs modernas

JSON GENERATE é usado.

Em.

z/OS Connect

CICS

Liberty

MQ

Kafka

OpenShift

Cloud Pak

---

Praticamente.

Todo lugar.

---

Bellacosa Best Practices

Sempre

Criar DTO.

Separado.

---

Sempre

Usar SUPPRESS.

---

Sempre

Validar UTF8.

---

Sempre

Versionar JSON.

---

Sempre

Documentar.

Swagger.

OpenAPI.

---

Nunca

Expor.

Campos internos.

---

Nunca

Montar.

JSON.

Na mão.

Com STRING.

---

Comparação

Técnica	Recomendada
STRING	Não
UNSTRING	Não
INSPECT	Não
Parser próprio	Evitar
JSON GENERATE	Sim
JSON PARSE	Sim

---

O Conselho do Mestre Bellacosa

Durante muitos anos, o programador COBOL era visto como alguém responsável apenas por arquivos sequenciais, relatórios batch e transações CICS.

JSON GENERATE mudou essa percepção.

Ele permitiu que sistemas escritos décadas atrás começassem a responder chamadas REST, conversar com aplicativos móveis, participar do Open Finance e integrar-se naturalmente a arquiteturas modernas baseadas em APIs.

Talvez essa seja uma das maiores virtudes do Enterprise COBOL.

Ele não exige que o desenvolvedor abandone tudo aquilo que aprendeu.

Ele simplesmente acrescenta novas habilidades.

E diz ao Padawan:

Continue usando seus níveis 01, 05 e 10.

Continue escrevendo programas robustos.

Continue confiando na estabilidade do IBM Z.

Eu apenas ensinarei seu código a responder em uma linguagem compreendida por praticamente toda a galáxia digital.

---

Continua na Parte 4

JSON Jedi Master – z/OS Connect, MQ, Kafka, OpenShift, APIs de Alto Desempenho, Segurança OWASP e Técnicas Avançadas para o Mestre Bellacosa do IBM Z.

JSON em COBOL no IBM Z: O Holocron das APIs Modernas – JSON PARSE - Parte II

 

Bellacosa Mainframe e o json no cobol parte II

JSON em COBOL no IBM Z: O Holocron das APIs Modernas

Parte 2 – JSON PARSE

Quando o Padawan Aprende a Transformar Texto em Estruturas COBOL

Por Bellacosa Mainframe

---

"JSON é apenas texto. O verdadeiro poder está em fazer COBOL compreender esse texto como se fosse uma estrutura nativa do IBM Z."

Mestre Bellacosa Sysprog Jedi

---

Introdução

Na Parte 1, o Padawan descobriu algo surpreendente.

COBOL moderno fala JSON.

Aprendemos:

• JSON GENERATE

• UTF-8

• CCSID

• Enterprise COBOL 6.x

• APIs REST

• JSON em memória

• Segurança básica

Agora chegamos ao momento em que o programa COBOL deixa de apenas produzir JSON.

Ele começa a entender JSON.

E isso acontece através de uma instrução quase mágica.

JSON PARSE

---

O que é JSON PARSE?

JSON PARSE é o tradutor universal.

Ele recebe.

Texto.

Transforma.

Em estruturas COBOL.

---

Visualmente.

JSON


↓

JSON PARSE


↓

WORKING STORAGE


↓

Programa COBOL

---

Exemplo.

Recebemos.

{
"id":100,

"nome":"Bellacosa",

"idade":52
}

---

COBOL deseja.

01 CLIENTE.

05 ID.

PIC 9(5).


05 NOME.

PIC X(30).


05 IDADE.

PIC 999.

---

JSON PARSE faz isso.

Automaticamente.

---

Quando surgiu?

IBM introduziu.

JSON PARSE

Enterprise COBOL

Version 6.

---

Mais utilizado hoje.

6.3

6.4

6.5

---

Mudou completamente.

Integrações.

---

Primeiro programa JSON PARSE

Passo 1

Estrutura COBOL

01 WS-CLIENTE.


05 WS-ID.
PIC 9(5).


05 WS-NOME.
PIC X(30).


05 WS-IDADE.
PIC 999.

---

Passo 2

Buffer JSON

01 WS-JSON.

PIC X(500).

---

Passo 3

Popular

MOVE

'{"id":100,

"nome":"Bellacosa",

"idade":52}'


TO WS-JSON

---

Passo 4

Parse

JSON PARSE

WS-JSON

INTO WS-CLIENTE

---

Passo 5

Display

DISPLAY WS-ID.


DISPLAY WS-NOME.


DISPLAY WS-IDADE.

---

Resultado.

100


Bellacosa


52

---

Pronto.

JSON virou COBOL.

---

O que acontece internamente?

Compilador cria.

Parser interno.

---

Percorre.

Caractere.

Por caractere.

---

Reconhece.

Chaves.

Aspas.

Números.

Vetores.

---

Mapeia.

Campos.

---

Visualmente.

{


"id"



100



}


↓

COBOL


ID=100

---

Como funciona na memória?

JSON continua sendo texto.

---

Exemplo.

Buffer


500 bytes

---

Parser lê.

---

Move dados.

---

Para.

Working Storage.

---

Resultado.

WS-ID


100



WS-NOME


Bellacosa

---

Sem ponteiros.

Sem árvore.

Sem DOM.

---

Muito eficiente.

---

Objetos Aninhados

JSON suporta.

Estruturas.

Dentro.

De estruturas.

---

Exemplo.

{

"cliente":{

"id":1,

"nome":"Bellacosa"

}

}

---

COBOL.

01 CLIENTE.


05 DADOS.


10 ID.


10 NOME.

---

Muito elegante.

---

Arrays

Chegamos.

Ao lado divertido.

---

JSON.

{

"telefones":[

"1111",

"2222"

]

}

---

COBOL.

05 TELEFONES.

10 TEL OCCURS 10.


15 NUMERO.


PIC X(20).

---

Parser.

Preenche.

---

COUNT IN

Muito útil.

---

Exemplo.

JSON PARSE

WS-JSON


INTO WS-DADOS


COUNT IN WS-CONTADOR

---

Retorna.

Quantidade.

Itens.

---

Excelente.

Para.

Arrays.

---

ON EXCEPTION

Fundamental.

Nunca esquecer.

---

Exemplo.

JSON PARSE

WS-JSON


INTO WS-CLI


ON EXCEPTION


DISPLAY 'ERRO'

---

Padawan.

Sempre use.

---

Exemplo inválido

JSON.

{


"id":100


"nome":"Bellacosa"

Aspa.

Faltando.

---

Parser.

Falha.

---

ON EXCEPTION.

Executado.

---

JSON Malicioso

Poucos falam.

Mas existe.

---

Payload.

Gigante.

---

Exemplo.

50 MB.

---

Consome.

CPU.

---

Memória.

---

Tempo.

---

DoS.

---

Negação.

Serviço.

---

Boa prática

Validar.

Tamanho.

---

Exemplo.

IF WS-LEN > 100000

DISPLAY 'ERRO'

---

Muito recomendado.

---

Nomes diferentes

JSON.

Pode vir.

{

"customer_name":"Bellacosa"

}

---

COBOL.

05 WS-NOME.

---

Problema.

---

Precisamos.

Mapear.

---

Enterprise COBOL possui.

NAME OF.

SUPPRESS.

---

Falaremos.

Parte 3.

---

UTF8

Grande inimigo.

---

JSON.

UTF8.

---

COBOL.

EBCDIC.

---

José.

Pode quebrar.

---

Ç.

Ã.

É.

---

Atenção.

Sempre.

---

JSON NULL

JSON.

{


"nome":null
}

---

COBOL.

Não possui.

Null textual.

---

Precisamos.

Tratar.

---

Muito importante.

---

Performance

Excelente.

---

JSON PARSE.

É compilado.

---

Muito rápido.

---

Melhor.

Que parser.

Manual.

---

Evite.

UNSTRING


INSPECT


STRING

---

Desnecessário.

---

JSON PARSE.

Resolve.

---

Curiosidades

Muitos bancos.

Recebem.

Milhões.

JSON.

Por dia.

---

Aplicativos.

PIX.

Cartão.

Open Finance.

---

Tudo passa.

Por.

JSON.

---

E em muitos casos.

Existe.

COBOL.

No fim.

Da cadeia.

---

Debug

Exemplo.

DISPLAY WS-JSON

---

Muito útil.

---

Ou.

IBM Debug Tool.

---

Fault Analyzer.

---

Dump.

---

Quando usar?

Excelente.

REST

MQ

Kafka

zOS Connect

Mobile

Open Banking

PIX

Cloud

---

Quando evitar?

Arquivos internos.

---

VSAM.

---

Relatórios.

---

Batch tradicional.

---

Bellacosa Best Practices

Sempre

Use ON EXCEPTION

---

Sempre

Validar tamanho

---

Sempre

Testar UTF8

---

Sempre

Documentar JSON

---

Sempre

Versionar APIs

---

O Conselho do Mestre Bellacosa

JSON PARSE é provavelmente uma das maiores evoluções já incorporadas ao Enterprise COBOL.

Ele permite que um programa escrito há vinte ou trinta anos compreenda payloads produzidos por smartphones, microsserviços, plataformas OpenShift e aplicações espalhadas pela Internet.

O jovem Padawan deve perceber uma verdade importante.

JSON continua sendo apenas texto.

Mas JSON PARSE transforma esse texto em algo que COBOL entende profundamente.

Estruturas.

Campos.

Vetores.

Níveis.

OCCURS.

Variáveis.

E talvez essa seja a maior beleza do IBM Z moderno.

Ele não exige que o desenvolvedor abandone décadas de conhecimento.

Ele apenas oferece novas ferramentas.

E diz:

Continue programando em COBOL.

Continue usando seus níveis 01, 05 e 10.

Continue confiando em sua experiência.

Eu apenas ensinarei ao seu programa a compreender uma nova linguagem falada por toda a galáxia digital.

---

Continua na Parte 3

JSON GENERATE – Quando o Padawan Aprende a Construir APIs REST com COBOL, Criar Payloads Elegantes, Controlar Campos, Suprimir Dados e Falar com Microsserviços do Futuro.

 

Bellacosa Mainframe e a guerra entre EBCDIC versus ASCII

☕🔥 EBCDIC vs ASCII — A GUERRA SILENCIOSA QUE DIVIDIU A COMPUTAÇÃO

Se você trabalha com Mainframe…

mais cedo ou mais tarde vai descobrir uma verdade dolorosa:

“Nem todo texto é texto.”

Porque no mundo Enterprise…

uma letra “A” pode valer:

• C1 no EBCDIC

• 41 no ASCII

E é exatamente aí que começam:

• arquivos corrompidos,

• integrações quebradas,

• caracteres estranhos,

• “ç” virando lixo,

• jobs falhando,

• FTPs destruindo datasets,

• e programadores entrando em crise existencial.

Hoje vamos mergulhar numa das maiores divisões técnicas da história da computação:

ASCII vs EBCDIC

A batalha entre:

• o padrão do mundo aberto

• e o padrão do império IBM.

---

☕ O QUE É ASCII?

ASCII significa:

American Standard Code for Information Interchange

Criado em:

1963

Padronizado pelo:

ANSI (American National Standards Institute)

Objetivo:
Criar um padrão universal de representação de caracteres.

Antes disso:
cada fabricante fazia sua própria codificação.

Resultado?
Caos absoluto.

Um computador não “entendia” o texto do outro.

ASCII veio para resolver isso.

---

☕ O QUE É EBCDIC?

EBCDIC significa:

Extended Binary Coded Decimal Interchange Code

Criado pela:

IBM

Ano:

1964

Baseado em:

• BCD (Binary Coded Decimal)

• punch cards

• sistemas IBM 1401/360

O EBCDIC nasceu praticamente junto do:

IBM System/360

Ou seja:

o DNA do EBCDIC está ligado diretamente à história do Mainframe moderno.

---

☕ A DIFERENÇA TÉCNICA MAIS IMPORTANTE

A maior diferença NÃO é o tamanho.

Os dois usam 8 bits (na prática moderna).

O problema real é:

O MAPEAMENTO DOS CARACTERES

Exemplo:

Caractere	ASCII	EBCDIC
A	41	C1
B	42	C2
0	30	F0
espaço	20	40

Ou seja:

o mesmo byte representa coisas diferentes.

---

☕ POR QUE ISSO IMPORTA?

Porque computadores não enxergam letras.

Eles enxergam:

bytes

Quando um sistema ASCII lê EBCDIC sem conversão:

vira lixo.

Exemplo clássico:

Você envia um dataset mainframe para Linux sem conversão.

Resultado:

• caracteres quebrados

• colunas desalinhadas

• SQL inválido

• JSON destruído

• XML ilegível

O famoso:

“mojibake corporativo”

---

☕ POR QUE A IBM CRIOU O EBCDIC?

Aqui entra a parte histórica fascinante.

A IBM NÃO queria depender do ASCII.

Na época:

• fabricantes brigavam por padrões

• havia guerra comercial

• ninguém queria perder controle tecnológico

A IBM já possuía:

• sistemas baseados em cartões perfurados

• BCD interno

• hardware orientado ao seu ecossistema

Então ela fez:

o próprio padrão.

E como a IBM dominava o mercado corporativo…

o EBCDIC virou rei nos data centers.

---

☕ ENTÃO POR QUE O ASCII “VENCEU”?

Porque o mundo mudou.

ASCII tinha vantagens gigantes:

1 — Organização lógica dos caracteres

No ASCII:

Sequência
A B C D
41 42 43 44

Tudo sequencial.

Já no EBCDIC:
os caracteres ficam espalhados.

Isso dificulta:

• sorting

• comparações

• parsing

• algoritmos simples

---

☕ 2 — ASCII ERA MAIS SIMPLES

Universidades adotaram ASCII.

Minicomputadores adotaram ASCII.

Unix adotou ASCII.

E quando Unix dominou:

• redes

• internet

• TCP/IP

• e-mail

• web

o ASCII virou padrão global.

---

☕ 3 — INTERNET

A internet praticamente nasceu ASCII.

Protocolos antigos:

• SMTP

• HTTP

• FTP

• TELNET

foram pensados em ASCII.

Mainframe precisou se adaptar.

Não o contrário.

---

☕ 4 — UNIX E C

A linguagem C e o Unix foram desenhados pensando em ASCII.

Muita lógica assume:

'A' + 1 == 'B'

No ASCII:
funciona perfeitamente.

No EBCDIC:
isso quebra.

---

☕ UMA CURIOSIDADE ABSURDA

No EBCDIC:

as letras NÃO são contínuas.

Exemplo:

Intervalo
A-I
J-R
S-Z

ficam em blocos separados.

Isso acontece por herança dos cartões perfurados IBM.

Até hoje isso surpreende desenvolvedores.

---

☕ OUTRA CURIOSIDADE HISTÓRICA

Muitos bugs antigos de software aconteceram porque programadores assumiam ASCII.

Quando rodavam no Mainframe:
💥 caos.

Especialmente em:

• compiladores

• bibliotecas C

• middleware Unix-to-z/OS

---

☕ O “TRAUMA” DOS PROGRAMADORES DISTRIBUÍDOS

Um clássico do mundo enterprise:

FTP ASCII vs FTP BINARY

Se você transfere:

• fonte COBOL

• JCL

• datasets texto

usa:

ASCII mode

O FTP converte EBCDIC ↔ ASCII.

Mas se você transfere:

• load modules

• arquivos binários

• DBRM

• executáveis

e usa ASCII…

você destrói o arquivo.

Literalmente.

Veteranos de mainframe têm PTSD disso até hoje.

---

☕ POR QUE O EBCDIC SOBREVIVEU?

Porque Mainframe:

nunca foi sobre moda.

Foi sobre:

• estabilidade

• compatibilidade

• legado

• investimento bilionário

Trocar encoding em sistemas bancários gigantescos seria um pesadelo histórico.

Imagine converter:

• COBOL

• CICS

• DB2

• VSAM

• datasets históricos

• aplicações financeiras

• décadas de batch

Tudo isso sem quebrar:

• centavos

• juros

• impostos

• contratos

• auditoria

Resultado:

EBCDIC ficou.

---

☕ MAS O z/OS USA SÓ EBCDIC?

Hoje:

não.

O IBM Z moderno fala praticamente tudo:

• ASCII

• Unicode

• UTF-8

• JSON

• XML

• REST

• APIs

• Linux

Inclusive:
Linux on Z usa UTF-8 normalmente.

O mundo IBM atual é híbrido.

---

☕ O VERDADEIRO “SUCESSOR”

Hoje o padrão dominante não é ASCII.

É:

Unicode / UTF-8

Porque ASCII não suporta:

• japonês

• árabe

• emojis

• acentos complexos

• símbolos globais

UTF-8 virou o idioma universal.

Inclusive:
UTF-8 preserva compatibilidade ASCII nos primeiros 128 caracteres.

Genialidade pura.

---

☕ EASTER EGGS E CURIOSIDADES NERDS

🔥 1 — O “HELLO WORLD” QUEBRADO

Muitos programas antigos imprimiam lixo no Mainframe porque assumiam ASCII.

---

🔥 2 — A LETRA “{” ERA UM INFERNO

Em alguns terminais EBCDIC:
caracteres especiais mudavam dependendo da code page.

Programadores COBOL antigos sofreram MUITO com isso.

---

🔥 3 — CODE PAGES

Existe:

• EBCDIC US

• EBCDIC BRASIL

• EBCDIC EUROPA

• CP037

• CP1047

• CP500

Ou seja:
nem “o EBCDIC” é único.

---

🔥 4 — O ASCII TEM CONTROLE DE TELETIPO

Caracteres como:

• CR

• LF

• BEL

• ESC

vieram de teletipos mecânicos.

O famoso:

BEL

era literalmente:

tocar um sino físico.

Sim.

Um sino REAL.

---

🔥 5 — O MAINFRAME “TRADUZ” O MUNDO O TEMPO TODO

Hoje grande parte do middleware IBM faz:

• conversão automática

• transcoding

• CCSID mapping

Sem você perceber.

CICS, MQ, DB2, Connect:Direct, FTP…
todos vivem traduzindo bytes.

---

☕ VANTAGENS E DESVANTAGENS

ASCII	EBCDIC
Simples	Forte integração IBM
Dominou internet	Compatibilidade histórica
Organização lógica	Excelente legado corporativo
Melhor interoperabilidade	Integração perfeita com workloads antigos
Fácil para linguagens modernas	Décadas de estabilidade

---

☕ DESVANTAGENS

ASCII	EBCDIC
Originalmente limitado	Pouca interoperabilidade
Não nasceu global	Mapeamento estranho
Dependia de extensões	Conversões constantes
Evoluiu para UTF-8	Complexidade de code pages

---

☕ O GRANDE PONTO FILOSÓFICO

ASCII venceu o mundo aberto.

EBCDIC venceu o mundo corporativo crítico.

ASCII construiu:

• internet

• Unix

• open systems

EBCDIC sustentou:

• bancos

• seguradoras

• governos

• bolsas de valores

• cartões de crédito

Enquanto muita gente fazia:
“Hello World”…

o Mainframe estava liquidando bilhões de dólares por segundo.

---

☕ FRASE FINAL ESTILO BELLACOSA MAINFRAME

“ASCII ajudou a conectar computadores.

EBCDIC ajudou a sustentar o sistema financeiro do planeta.”