segunda-feira, 4 de fevereiro de 2013

COBOL no Mainframe Programa → O Esqueleto: Divisões → Seções → Parágrafos → Frases → Declarações

🟦 COBOL no Mainframe e seu esqueleto

Programa → Divisões → Seções → Parágrafos → Frases → Declarações

(ou: como o código mais longevo do planeta ainda governa o mundo)

“COBOL não é velho. Velho é o problema que ele resolve.”
— Bellacosa, olhando um extrato bancário

🧬 Origem: antes do Java, antes do C, antes do hype

COBOL nasceu em 1959, patrocinado pelo Departamento de Defesa dos EUA, com uma ideia revolucionária para a época:

👉 programas legíveis por humanos de negócios, não apenas por matemáticos.

Enquanto outras linguagens focavam em ciência e engenharia, o COBOL foi criado para:

Folha de pagamento
Contabilidade
Bancos
Seguros
Governo
Tudo que não pode parar

E aqui vai o primeiro easter-egg:

🥚 Mais de 70% das transações financeiras globais ainda passam por COBOL.
Se ele cair, o mundo sente.

🧱 O mantra sagrado do COBOL

Todo programa COBOL clássico segue esta hierarquia:


Programa
 └── Divisões
     └── Seções
         └── Parágrafos
             └── Frases
                 └── Declarações

Isso não é só estilo.
É contrato social, organização mental e engenharia de sobrevivência.

Vamos por partes, Padawan.

🧠 1️⃣ Programa: o universo

O programa COBOL é a unidade máxima:

Compilável
Executável
Chamável por outro programa
Controlado por JCL
Versionado (ou não… dependendo do museu 😅)

Exemplo:


IDENTIFICATION DIVISION.
PROGRAM-ID. ELJEFE01.

Se não tem PROGRAM-ID, não é programa.
É só tristeza.

🧩 2️⃣ Divisões: os grandes blocos da mente COBOL

O COBOL clássico tem 4 divisões principais:

🔹 IDENTIFICATION DIVISION

Quem você é:

Nome do programa
Autor
Data
Comentários históricos (às vezes fósseis)


IDENTIFICATION DIVISION.
PROGRAM-ID. ELJEFE01.
AUTHOR. BELLACOSA.

🥚 Easter-egg: muitos programas em produção ainda têm DATE-WRITTEN. 1987.

🔹 ENVIRONMENT DIVISION

Onde você vive:

Arquivos
Dispositivos
Ambiente de execução

Hoje em dia:

Muitas vezes vazia
Mas ainda respeitada por tradição

🔹 DATA DIVISION

O coração do COBOL.

Aqui você define:

Arquivos
Registros
Variáveis
Estruturas
Formatos
Tamanhos
Regras de negócio implícitas


DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-SALDO     PIC 9(9)V99.

👉 Se você erra aqui, o programa compila… e falha em produção.

🔹 PROCEDURE DIVISION

Onde a mágica acontece.

É o fluxo lógico, a história do programa, o passo a passo do negócio.


PROCEDURE DIVISION.
    PERFORM CALCULA-SALDO
    DISPLAY WS-SALDO
    STOP RUN.

🧩 3️⃣ Seções: organização lógica (nem sempre usada)

As seções são agrupadores de parágrafos.

Exemplo clássico:


PROCEDURE DIVISION.
MAIN-SECTION.

Hoje:

Alguns usam
Outros ignoram
Todos respeitam quando encontram

🥚 Easter-egg: programas antigos têm seções enormes com 5 mil linhas.

🧩 4️⃣ Parágrafos: unidades de execução

O parágrafo é:

Um ponto de entrada
Um bloco executável
Algo que você pode PERFORM


CALCULA-SALDO.
    ADD WS-CREDITO TO WS-SALDO
    SUBTRACT WS-DEBITO FROM WS-SALDO.

👉 Parágrafo bom:

Nome claro
Uma responsabilidade
Fácil de testar (na teoria 😄)

🧩 5️⃣ Frases: uma ou mais declarações terminadas por ponto

No COBOL clássico:

O ponto (.) encerra uma frase
E também pode quebrar fluxo

Exemplo:


ADD A TO B
SUBTRACT C FROM B.

⚠️ Dica Bellacosa:

Ponto em excesso mata legibilidade e cria bugs invisíveis.

🧩 6️⃣ Declarações: as instruções de verdade

Aqui estão os verbos COBOL:

MOVE
ADD
SUBTRACT
MULTIPLY
DIVIDE
IF
EVALUATE
PERFORM
READ
WRITE

Exemplo:


IF WS-SALDO < 0
   MOVE 'NEGATIVO' TO WS-STATUS
END-IF

👉 Leia em voz alta.
Se fizer sentido, é COBOL bem escrito.

🛠️ Boas práticas Bellacosa Approved™

✔ Um parágrafo = uma responsabilidade
✔ Nomeie tudo como se fosse explicar para auditor
✔ Evite GO TO (sim, ele existe…)
✔ Centralize regras no DATA DIVISION
✔ Comente o porquê, não o como
✔ Código COBOL é lido mais do que escrito

🧠 Curiosidades que ninguém te conta

🥚 COBOL foi feito para ser lento para mudar, rápido para confiar
🥚 Programas com 40 anos rodam sem recompilar
🥚 O maior risco não é o COBOL — é ninguém entender o que ele faz
🥚 Modernizar não é reescrever, é encapsular e expor

🧘 Visão final para o Padawan

COBOL não é uma linguagem.
É uma forma de pensar sistemas críticos.

A hierarquia:

Programa → Divisões → Seções → Parágrafos → Frases → Declarações

existe para:

Clareza
Controle
Manutenção
Sobrevivência a décadas

Se você entende isso, você:

Lê qualquer programa
Não tem medo de legado
Está pronto para integrar com cloud, APIs, microsserviços

E lembre-se:

“Todo hype passa.
O extrato bancário continua.”