🧾 COBOL 4.00 no IBM Mainframe

Guia para Iniciantes: Código Limpo, Seguro e Econômico

“COBOL 4 não perdoa código ruim.
Ele executa… e te cobra por isso.”

---

🕰️ Um Pouco de Contexto (Por que COBOL 4 importa)

O Enterprise COBOL 4.00 marcou uma virada de chave no mainframe:

• Introduziu um novo compilador

• Passou a gerar código mais próximo da arquitetura moderna

• Começou a penalizar código antigo e relaxado

👉 Muitos programas antigos funcionam, mas:

• Gastam mais CPU

• Usam mais memória

• Sofrem em batch pesado

---

🧱 Estrutura Básica de um Programa COBOL (Visão Rápida)

IDENTIFICATION DIVISION.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.

Para iniciantes:

• DATA DIVISION mal feita = desastre

• PROCEDURE DIVISION confusa = CPU jogada fora

---

⚠️ Grandes Perigos para Iniciantes no COBOL 4

☠️ 1. Código que “funciona” mas custa caro

Exemplo perigoso:

PERFORM UNTIL EOF
   READ ARQ
   MOVE CAMPO-A TO CAMPO-B
END-PERFORM

❌ MOVE desnecessário dentro do loop
❌ Loop sem controle de volume

✅ Melhor prática:

READ ARQ AT END
   SET EOF TO TRUE
END-READ

E só mover o que for necessário.

---

☠️ 2. PERFORM Excessivo (Modular demais mata CPU)

Iniciantes adoram:

PERFORM TRATA-REGISTRO

dentro de loop com milhões de registros.

⚠️ Cada PERFORM é custo.

✔️ Dica:

• Inline lógica crítica

• Use PERFORM para controle, não para micro-rotinas

---

☠️ 3. Variáveis mal definidas (memória desperdiçada)

Erro clássico:

01 WS-VALOR     PIC X(1000).

Quando só precisa de 10 bytes 😱

✔️ Regra de ouro:

• PIC do tamanho exato

• Evite campos genéricos “pra garantir”

📉 Menos memória = menos cache miss = menos CPU.

---

☠️ 4. Repetir cálculos desnecessários

Erro comum:

COMPUTE WS-TOTAL = WS-QTD * WS-VALOR

feito várias vezes no loop com os mesmos valores.

✔️ Dica:

• Calcule uma vez

• Armazene

• Reutilize

---

🧼 Como Escrever Código Mais Limpo no COBOL 4

✅ Use nomes claros

WS-VALOR-TOTAL
WS-FIM-ARQUIVO

❌ Evite:

WS-A
WS-X1

---

✅ Evite lógica escondida

Código perigoso:

IF A = B
   MOVE X TO Y
ELSE
   IF C = D
      MOVE Z TO Y
   END-IF
END-IF

✔️ Melhor:

• Clareza > esperteza

• COBOL foi feito para ser legível

---

🚀 Performance no COBOL 4: Dicas Práticas

⚙️ 1. Tire código de dentro de loops

Cada instrução dentro de loop custa N vezes.

---

⚙️ 2. Use corretamente os níveis da DATA DIVISION

• Campos agrupados bem definidos

• Evite REDEFINES desnecessário

REDEFINES mal usado = bugs silenciosos.

---

⚙️ 3. Cuidado com STRING e UNSTRING

Eles são poderosos… e caros.

✔️ Use apenas quando necessário
✔️ Evite em loops grandes

---

⚙️ 4. Arquivos: leia com cuidado

• READ sequencial é barato

• READ aleatório é caro

• Releitura custa CPU e I/O

---

🧠 Pontos de Atenção que Geram Bugs em Produção

Armadilha	Problema
Campo não inicializado	Resultado imprevisível
EOF mal tratado	Loop infinito
IF aninhado demais	Erro lógico
REDEFINES confuso	Dados corrompidos
Índices fora do limite	ABEND

---

🧙 Curiosidades & Easter Eggs COBOL 4

• COBOL 4 foi o primeiro passo real rumo ao COBOL 5

• Programas antigos compilam, mas podem custar o dobro de CPU

• O compilador já “entende” melhor a arquitetura do zSeries

---

🧭 Primeiros Passos Recomendados para Padawans

1. Aprenda estrutura limpa

2. Evite copiar código velho sem entender

3. Sempre pense:

   “Isso vai rodar quantas vezes?”

4. Meça CPU quando possível

5. Menos código = menos custo

---

🏁 Conclusão

COBOL 4.00 é:

• Estável

• Poderoso

• Implacável com código mal escrito

“No mainframe, não existe código inocente.
Só código caro ou econômico.”