COBOL razões por dominar o CPD.

Bellacosa Mainframe em uma viagem ao centro do cpd

☕ Um Café no Bellacosa Mainframe

Viagem ao Centro do CPD — Por que COBOL Ainda Domina as Profundezas da Terra Corporativa

🌋🦖 Júlio Verne, COBOL, bilhões de linhas, bancos, CICS, Db2, VSAM, batch e uma expedição às camadas subterrâneas da informática para descobrir por que o dinossauro simplesmente se recusa a morrer

Existe uma teoria muito difundida sobre COBOL.

Segundo ela, em algum momento dos anos 1980 alguém deveria ter desligado todos os mainframes, colocado os programas COBOL dentro de um museu e substituído tudo por alguma coisa moderna.

Primeiro:

C

Depois:

C++

Depois:

Java

Depois:

.NET

Depois:

SOA

Depois:

Cloud

Depois:

Microservices

Depois:

Serverless

Depois:

Kubernetes

Agora:

IA

COBOL ouviu todas essas previsões.

Sentado tranquilamente nas profundezas do CPD.

Processando folha de pagamento.

Compensando transações.

Atualizando contas.

Emitindo apólices.

Calculando juros.

Executando batch.

E respondendo:

DISPLAY 'AINDA ESTOU AQUI'.

Talvez estejamos procurando COBOL no lugar errado.

Para entender sua sobrevivência precisamos seguir Júlio Verne.

Não olhar para o céu.

Precisamos descer.

Muito.

Porque hoje faremos uma:

VIAGEM AO CENTRO DO CPD.

---

📖 Hamburgo, 1863

Em Viagem ao Centro da Terra, Júlio Verne apresenta o professor Otto Lidenbrock, mineralogista alemão que encontra um misterioso manuscrito contendo uma mensagem cifrada.

O documento indica que o explorador islandês Arne Saknussemm teria encontrado uma passagem para o interior da Terra através do vulcão Snæfellsjökull, na Islândia.

Lidenbrock decide imediatamente:

Vamos entrar.

Seu sobrinho Axel provavelmente pensa:

Talvez não.

Lidenbrock:

Vamos.

E lá vão eles.

É basicamente a mesma sensação de um jovem programador quando alguém diz:

“Precisamos fazer manutenção neste sistema COBOL de 1987.”

Ele pergunta:

— Existe documentação?

O gerente entrega um PDF de 14 páginas atualizado pela última vez em 1996.

No rodapé:

AUTOR: APARECIDO
RAMAL: 4372

Aparecido aposentou-se em 2008.

Meu jovem...

pegue sua lanterna.

Nós vamos descer.

---

🗺️ O mapa para o centro do CPD

Nossa expedição atravessará várias camadas:

SUPERFÍCIE
   ↓
APIs
   ↓
CICS
   ↓
COBOL
   ↓
Db2 / VSAM / IMS
   ↓
JCL
   ↓
JES2
   ↓
z/OS
   ↓
IBM Z
   ↓
DADOS + REGRAS DE NEGÓCIO

E talvez descubramos uma coisa perturbadora.

Aquilo que parece antigo na superfície pode estar sustentando praticamente tudo que existe acima.

---

🌋 CAMADA 1 — A superfície moderna

Começamos no mundo que todo mundo enxerga.

Aplicativos.

Sites.

Smartphones.

APIs.

Cloud.

Containers.

Interfaces maravilhosas.

Cliente toca:

TRANSFERIR R$ 500

Tela gira.

Bonita animação.

Confirmação biométrica.

Push notification.

Tudo parece muito moderno.

Mas agora vamos seguir aquela transação.

APP
 ↓
API
 ↓
GATEWAY
 ↓
SERVIÇO
 ↓
?

Existe uma porta.

Axel pergunta:

— Professor, o que existe ali?

Lidenbrock acende a lanterna.

Na parede está escrito:

CICS

Ah.

Agora começou a aventura.

---

🏦 RAZÃO 1 — COBOL mora onde o dinheiro mora

Essa talvez seja a primeira grande explicação.

COBOL não sobreviveu porque alguém sente nostalgia.

Ele sobreviveu porque foi utilizado durante décadas justamente nos sistemas que organizações não podem simplesmente desligar.

Bancos.

Seguradoras.

Governos.

Varejo.

Transportes.

Processamento financeiro.

Folhas de pagamento.

Grandes sistemas administrativos.

Quando uma aplicação controla algo secundário, substituí-la pode ser relativamente simples.

Quando ela controla:

DINHEIRO

a conversa muda.

Você não migra simplesmente:

“Vamos ver se funciona.”

Você precisa garantir:

EXATIDÃO
INTEGRIDADE
AUDITORIA
RECUPERAÇÃO
CONSISTÊNCIA
SEGURANÇA
PERFORMANCE
DISPONIBILIDADE

E existe outra coisa importantíssima:

o sistema atual já funciona.

---

🪨 CAMADA 2 — CICS

Descemos mais.

Uma gigantesca cidade subterrânea aparece.

Milhares de transações atravessam túneis simultaneamente.

Bem-vindo ao:

CICS

Aqui programas COBOL podem atender processamento transacional online.

TRANSACTION
   ↓
CICS
   ↓
PROGRAM
   ↓
DB2 / VSAM / MQ
   ↓
RESPONSE

Lidenbrock observa.

— Quantos anos tem isso?

Mainframeiro:

— Depende.

— Devemos substituir?

— Por quê?

Silêncio.

Essa pergunta muda tudo.

---

⚙️ RAZÃO 2 — Maturidade

Tecnologia madura possui uma característica pouco sexy:

sabemos como ela quebra.

Isso é extraordinariamente valioso.

Depois de décadas usando uma plataforma, conhecemos:

LIMITES
PADRÕES
ERROS
COMPORTAMENTO
FERRAMENTAS
PROCEDIMENTOS
RECUPERAÇÃO
MONITORAMENTO

Tecnologia nova frequentemente chega acompanhada de:

“Segundo a documentação...”

Tecnologia madura chega acompanhada de:

“Em 2003 aconteceu isso. Faça desta maneira.”

Experiência acumulada é infraestrutura invisível.

---

🦖 CAMADA 3 — Encontramos COBOL

Finalmente chegamos.

Uma enorme caverna.

Nas paredes:

IDENTIFICATION DIVISION.

Mais adiante:

DATA DIVISION.

Axel fica assustado.

— Professor...

— Sim?

— Aquilo é um dinossauro?

O animal vira lentamente a cabeça.

Na lateral está escrito:

ENTERPRISE COBOL

Lidenbrock aproxima-se.

— Achei que estivesse extinto.

O dinossauro responde:

PERFORM PROCESS-TRANSACTION
   UNTIL END-OF-FILE.

Não está extinto.

Está trabalhando.

---

📚 RAZÃO 3 — COBOL descreve negócios muito bem

Olhe:

IF CUSTOMER-BALANCE > CREDIT-LIMIT
    MOVE 'BLOCKED' TO CUSTOMER-STATUS
END-IF.

Não é poesia.

Não é compacto.

Não ganhará concurso de elegância.

Mas existe uma qualidade extraordinária:

conseguimos entender aproximadamente o que está acontecendo.

COBOL nasceu orientado ao processamento empresarial.

Registros.

Campos.

Valores decimais.

Arquivos.

Relatórios.

Regras.

Volumes.

E empresas são cheias exatamente disso.

---

💰 RAZÃO 4 — Decimal importa

Agora encontramos uma caverna cheia de moedas.

Lidenbrock pega uma.

Mainframeiro grita:

— NÃO TOQUE NO COMP-3!

COBOL possui excelente tradição no tratamento de dados decimais empresariais.

Imagine:

01 WS-BALANCE PIC S9(11)V99 COMP-3.

Bancos gostam de uma coisa chamada:

dinheiro exato.

Dinheiro não aprecia:

0.1 + 0.2 = 0.30000000000000004

Quando você processa milhões ou bilhões de operações financeiras, representação e aritmética decimal importam enormemente.

COBOL cresceu nesse universo.

---

🗄️ CAMADA 4 — Db2, VSAM e IMS

Descemos mais.

Encontramos três criaturas ancestrais guardando enormes cofres.

Db2
VSAM
IMS

Axel:

— Quanto dado existe aqui?

Lidenbrock:

— Não pergunte.

Mainframeiro:

— Principalmente não execute SELECT sem WHERE.

Agora percebemos outra razão da longevidade.

---

🧠 RAZÃO 5 — O código contém conhecimento empresarial

Imagine um programa criado em 1989.

Durante 37 anos recebeu alterações.

1991 — nova regra tributária
1994 — novo produto
1998 — alteração monetária
2002 — novo cliente
2007 — nova regulamentação
2012 — fusão
2018 — nova regra
2021 — exceção
2026 — API

Agora aquele programa não contém apenas código.

Ele contém:

HISTÓRIA DA EMPRESA.

E frequentemente parte dessa história não existe em outro lugar.

A documentação diz:

“Calcular tarifa conforme regra comercial.”

O COBOL possui 3.800 linhas explicando o que “conforme regra comercial” realmente significa.

---

🏺 Código como arqueologia

Isso transforma manutenção COBOL em arqueologia empresarial.

Você encontra:

IF CUSTOMER-TYPE = '7'
   AND REGION = '03'
   AND CONTRACT-DATE < 19980701
   MOVE ZERO TO WS-FEE
END-IF.

Pergunta:

— Por quê?

Silêncio.

Git não existia.

O autor aposentou-se.

Documento desapareceu.

Mas existe uma certeza:

alguém colocou aquilo ali por algum motivo.

Talvez uma lei.

Talvez contrato.

Talvez decisão judicial.

Talvez promoção.

Talvez gambiarra.

Apague e descubra.

Em produção.

---

💀 A maldição de Saknussemm

Na parede encontramos uma inscrição:

* DO NOT REMOVE

Sem explicação.

Axel:

— Podemos remover?

Lidenbrock:

— Não.

— Por quê?

— Porque alguém escreveu DO NOT REMOVE.

— Mas quem?

— Saknussemm.

Nunca desafie Saknussemm.

---

💵 RAZÃO 6 — Reescrever custa dinheiro

Agora chegamos a uma gigantesca montanha.

No topo:

LEGACY MODERNIZATION PROJECT

Consultor:

— Vamos reescrever tudo.

Diretor:

— Quanto custa?

Consultor:

— Sim.

Existe uma fantasia recorrente:

COBOL
 ↓
REWRITE
 ↓
MODERNO

Parece simples.

Mas programas representam décadas de requisitos.

Então você precisa reproduzir:

REGRAS
INTERFACES
ARQUIVOS
TRANSAÇÕES
EXCEÇÕES
PERFORMANCE
SEGURANÇA
AUDITORIA
RECOVERY
BATCH WINDOWS
DEPENDÊNCIAS

E provar que o novo sistema produz resultados equivalentes.

---

⚠️ RAZÃO 7 — Risco de migração

Imagine um sistema processando:

10.000.000 transações/dia

Novo sistema funciona corretamente em:

99,99%

Parece excelente.

Até perceber que:

0,01%

de dez milhões são:

1.000 transações.

Por dia.

Agora coloque dinheiro envolvido.

Subitamente quatro noves não parecem tão românticos.

---

🚂 CAMADA 5 — Batch

Escutamos um ruído.

CLACK
CLACK
CLACK

Não é trem.

É batch.

JES2 recebe milhares de JOBs.

INPUT
 ↓
EXECUTION
 ↓
OUTPUT

Durante décadas empresas construíram gigantescas cadeias:

JOB001
 ↓
JOB002
 ↓
JOB003
 ↓
SORT
 ↓
JOB004
 ↓
DB2 LOAD
 ↓
JOB005
 ↓
REPORT

Essa engrenagem pode parecer antiga.

Mas processa volumes enormes de maneira previsível.

---

⏱️ RAZÃO 8 — Throughput

Existe uma diferença entre:

atender uma requisição.

e:

processar 300 milhões de registros durante uma janela operacional.

COBOL e mainframe cresceram profundamente ligados ao segundo problema.

Batch não morreu.

Porque o problema batch não morreu.

Empresas continuam precisando:

FECHAR DIA
CALCULAR JUROS
PROCESSAR FATURAS
CONSOLIDAR CONTAS
GERAR RELATÓRIOS
PROCESSAR PAGAMENTOS

Às 02:00 ninguém precisa de uma interface React maravilhosa.

Precisa:

JOB ENDED - RC 0000

---

⚡ RAZÃO 9 — Performance não é apenas benchmark

Uma aplicação crítica não vive sozinha.

Ela compartilha máquina.

CPU.

Memória.

I/O.

Storage.

Banco.

Locks.

Filas.

Threads.

Mainframe desenvolveu durante décadas mecanismos sofisticados para administrar cargas enormes e concorrentes.

COBOL tornou-se parte natural desse ecossistema.

O valor está no conjunto:

COBOL
+
z/OS
+
CICS
+
Db2
+
JES2
+
WLM
+
RACF
+
STORAGE

Não apenas na linguagem isoladamente.

---

🛡️ CAMADA 6 — RACF

Descemos.

Porta gigantesca.

Guardião pergunta:

USERID?

Axel entrega.

ICH408I

Acesso negado.

Lidenbrock:

— Somos exploradores científicos!

RACF:

NOT AUTHORIZED.

Finalmente encontramos alguém no romance que possui bom senso.

---

🔐 RAZÃO 10 — Segurança e governança

Ambientes mainframe corporativos cresceram cercados por controles rigorosos.

Autenticação.

Autorização.

Auditoria.

Segregação.

Perfis.

Recursos.

Logs.

Isso não significa:

“mainframe é magicamente invulnerável.”

Não existe isso.

Significa que existe um ecossistema maduro de controle e operação.

E trocar um sistema não significa apenas trocar linguagem.

Significa reconstruir todo esse contexto.

---

🔥 CAMADA 7 — O núcleo: confiabilidade

Estamos próximos do centro.

A temperatura aumenta.

Na parede:

UPTIME

Lidenbrock finalmente entende.

O verdadeiro segredo não é COBOL sozinho.

É aquilo que organizações construíram ao redor dele.

Décadas de:

OPERAÇÃO
MONITORAMENTO
BACKUP
RECOVERY
CHANGE MANAGEMENT
CAPACITY PLANNING
SEGURANÇA
PROCEDIMENTOS
AUTOMAÇÃO

A aplicação COBOL está inserida numa máquina organizacional gigantesca.

---

🧱 RAZÃO 11 — Se funciona, substituir precisa ter motivo

Essa é talvez a mais desconfortável.

Tecnólogos adoram novidade.

Empresas adoram:

resultado.

Imagine:

Sistema A:

IDADE: 35 anos
ESTÁVEL: SIM
CONHECIDO: SIM
PERFORMANCE: BOA
AUDITADO: SIM

Sistema B:

IDADE: 0
ARQUITETURA: LINDA
POWERPOINT: EXTRAORDINÁRIO
RISCO: ???

Qual você coloca para processar bilhões?

Resposta:

depende do problema.

E justamente esse “depende” explica grande parte da longevidade do COBOL.

---

👴 RAZÃO 12 — Código antigo não significa código ruim

Essa confusão precisa morrer.

VELHO ≠ RUIM

Um algoritmo correto não expira porque completou 30 anos.

Se:

INPUT

continua válido,

a regra continua válida,

e:

OUTPUT

continua correto,

o programa não acorda no aniversário de 25 anos e pensa:

“Agora sou legado.”

Software não envelhece como leite.

O ambiente ao redor muda.

Requisitos mudam.

Pessoas mudam.

Riscos mudam.

Mas lógica correta pode continuar correta.

---

🌉 RAZÃO 13 — COBOL aprendeu a conversar com o mundo novo

Aqui nossa expedição encontra algo inesperado.

Uma fibra óptica.

Seguimos.

Ela chega até:

API

COBOL moderno não precisa viver isolado.

Podemos ter:

MOBILE
   ↓
REST
   ↓
z/OS CONNECT
   ↓
CICS
   ↓
COBOL
   ↓
DB2

Ou integração através de:

MQ
APIs
EVENTOS
JAVA
USS

O sistema de 30 anos pode participar de uma arquitetura moderna sem necessariamente ser destruído.

---

🔧 RAZÃO 14 — Ferramentas também evoluíram

A caricatura:

TELA VERDE
+
PROGRAMADOR DE 97 ANOS
+
CARTÃO PERFURADO

é divertida.

Mas incompleta.

Hoje podemos trabalhar com:

VS Code
Git
CI/CD
Zowe
ZUnit
DBB
Jenkins
GitHub
GitLab
Ansible
APIs

O código pode ser antigo.

O processo não precisa ser.

---

🤖 RAZÃO 15 — Agora chegou a IA

Nossa expedição encontra a criatura mais nova da caverna.

IA generativa.

Ela olha para milhões de linhas COBOL.

COBOL olha para ela.

Silêncio constrangedor.

Então alguém pergunta:

“Explique este programa.”

E ocorre algo interessante.

IA pode ajudar com:

COMPREENSÃO
DOCUMENTAÇÃO
TESTES
ANÁLISE
REFACTORING
MIGRAÇÃO
IMPACT ANALYSIS

Um dos grandes problemas históricos do legado — compreender código antigo — pode ser justamente uma das áreas onde IA oferece enorme potencial.

Ironia maravilhosa.

A tecnologia mais nova ajudando a preservar e modernizar uma das linguagens comerciais mais antigas.

---

🧠 RAZÃO 16 — O problema não é COBOL; é conhecimento

Empresas frequentemente dizem:

“Não encontramos COBOLzeiros.”

Existe verdade nisso em vários mercados.

Mas existe outra pergunta:

quantos desenvolvedores realmente conhecem as regras daquele sistema?

Você pode converter:

IF A = B
   PERFORM C
END-IF

para Java em cinco minutos.

O difícil é descobrir:

por que C precisa acontecer quando A = B.

Linguagem pode ser convertida.

Conhecimento de domínio precisa ser compreendido.

Essa é outra espécie de problema.

---

🌋 Encontramos o centro do CPD

Depois de dias descendo, Lidenbrock finalmente chega ao grande salão subterrâneo.

Esperávamos encontrar:

COBOL

no centro.

Não encontramos.

Encontramos algo muito maior.

Escrito na parede:

REGRAS DE NEGÓCIO

Agora tudo faz sentido.

COBOL não domina determinadas organizações simplesmente porque seja velho.

Nem porque alguém esqueceu de desligá-lo.

Ele permanece porque durante décadas empresas depositaram dentro desses sistemas:

PROCESSOS
CONTRATOS
REGRAS
EXCEÇÕES
HISTÓRIA
DINHEIRO
CONHECIMENTO

COBOL tornou-se uma espécie de rocha sedimentar empresarial.

Cada década colocou uma camada.

---

🪨 Arqueologia do software

2026 ─ APIs / IA / DevOps
2020 ─ Modernização
2010 ─ Serviços
2000 ─ Internet
1990 ─ Client/server
1980 ─ Expansões
1970 ─ Regras históricas
1960 ─ Fundação

No centro:

NEGÓCIO

É por isso que simplesmente arrancar COBOL pode ser equivalente a entrar numa escavação arqueológica com uma retroescavadeira.

Você certamente terminará rápido.

O problema é descobrir o que destruiu.

---

💡 Então COBOL é eterno?

Não.

Nenhuma tecnologia é.

COBOL pode ser substituído quando existir:

MOTIVO
+
BUSINESS CASE
+
ARQUITETURA
+
TESTES
+
MIGRAÇÃO
+
CONTROLE DE RISCO

Existem sistemas que deveriam ser aposentados.

Existem programas ruins.

Existem arquiteturas horríveis.

Existe dívida técnica.

Existe código que ninguém deveria defender apenas por nostalgia.

A questão não é:

“COBOL deve permanecer para sempre?”

A pergunta correta é:

“Qual problema estamos tentando resolver substituindo-o?”

Essa pergunta economiza milhões.

---

🦖 O dinossauro não venceu por ser dinossauro

Ele venceu porque continuou adaptando-se.

Padrões evoluíram.

Compiladores evoluíram.

Hardware evoluiu.

Integrações evoluíram.

Ferramentas evoluíram.

Processos evoluíram.

O COBOL de hoje não está rodando numa máquina de 1959.

Assim como Java moderno não está rodando num PC de 1995.

Confundir idade da linguagem com idade da plataforma é uma comparação intelectualmente preguiçosa.

---

🚀 A saída do vulcão

No romance de Verne, nossos exploradores eventualmente encontram uma saída espetacular através de atividade vulcânica.

Nossa equipe também sobe.

Passamos novamente por:

z/OS
JES2
JCL
Db2
VSAM
COBOL
CICS
APIs

Até retornar à superfície.

Smartphone na mão.

Aplicativo bancário aberto.

Axel faz uma transferência.

R$ 100,00

Confirma.

Um segundo depois:

TRANSFERÊNCIA REALIZADA.

Ele olha para Lidenbrock.

— Professor...

— Sim?

— Aquilo passou pela caverna?

O professor sorri.

Talvez.

---

☕ As 16 razões encontradas na expedição

Depois de nossa viagem, o diário registra:

1. COBOL está profundamente ligado a sistemas críticos.

2. Possui décadas de maturidade operacional.

3. Expressa regras empresariais de maneira clara.

4. Trabalha naturalmente com processamento decimal.

5. Sistemas COBOL acumulam conhecimento de negócio.

6. Reescritas completas podem custar fortunas.

7. Migrações de sistemas críticos carregam riscos enormes.

8. Batch continua sendo essencial.

9. O ecossistema mainframe oferece enorme capacidade de processamento.

10. Segurança e governança são maduras.

11. Sistemas estáveis precisam de motivo econômico para serem substituídos.

12. Código antigo não é automaticamente código ruim.

13. COBOL pode integrar-se com APIs e arquiteturas modernas.

14. Desenvolvimento COBOL pode utilizar ferramentas modernas.

15. IA pode acelerar compreensão, teste e modernização.

16. O ativo principal frequentemente não é o código — é o conhecimento empresarial nele acumulado.

E existe uma décima sétima razão não oficial:

porque ele ainda entrega o JOB.

---

☕ Epílogo — O manuscrito perdido

De volta ao escritório, Lidenbrock abre novamente o antigo manuscrito de Saknussemm.

Percebe algo estranho.

Não era islandês antigo.

Não era latim.

Era:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. CENTER-OF-EARTH.

       DATA DIVISION.
       WORKING-STORAGE SECTION.

       01 WS-COBOL-STATUS PIC X(08)
          VALUE 'ALIVE'.

       PROCEDURE DIVISION.

           PERFORM PROCESS-BUSINESS
              UNTIL END-OF-WORLD.

           STOP RUN.

Axel observa.

— Professor, existe um erro.

— Onde?

— END-OF-WORLD ainda não aconteceu.

Lidenbrock pensa.

Ao longe, nas profundezas do CPD, escutamos JES2 trabalhando.

$HASP373 BILLING STARTED

CICS continua recebendo transações.

Db2 continua fazendo COMMIT.

COBOL continua processando.

O professor fecha o livro.

Serve outra xícara de café.

E escreve no diário da expedição:

“Não encontramos COBOL enterrado no passado. Encontramos o presente construído sobre ele.”

Lá embaixo, o dinossauro olha para o próximo registro.

READ INPUT-FILE

Processa.

WRITE OUTPUT-RECORD

E segue adiante.

Sem hype.

Sem keynote.

Sem pedir desculpas pela idade.

Apenas fazendo aquilo que faz há décadas:

movendo o mundo enquanto quase ninguém percebe.

🌋🦖☕💾

JOBNAME: EARTHJOB
PROGRAM: COBOL
STATUS : RUNNING

Próxima parada: o centro do negócio.

https://eljefemidnightlunch.blogspot.com/2007/02/o-que-e-cobol.html

https://eljefemidnightlunch.blogspot.com/2025/07/homenagem-incrivel-grace.html

https://eljefemidnightlunch.blogspot.com/2026/06/padawan-testar-cobol-nao-e-desconfiar.html

Por que o COBOL continua a dominar o Processamento de Dados no Mundo dos Negócios? Uma linguagem orientada a negócios precisa declarar, gerenciar e manipular dados heterogêneos. Programas de negócios misturam strings de comprimento fixo e variável, dados de ponto flutuante, inteiros e decimais com abandono selvagem em estruturas de registro complicadas, geralmente com partes variáveis. Os programadores de banco de dados estão familiarizados com alguns desses problemas, e ferramentas de mapeamento objeto-relacional tropeçam nessas complexidades regularmente.