Bellacosa Mainframe apresenta Section e Paragrafos no COBOL uso do perform

SECTION e PERFORM no COBOL

Depois de aprender IF, READ e variáveis, o próximo grande passo para um programador COBOL é dominar:

• SECTION;

• PARAGRAPH;

• PERFORM;

• PERFORM INLINE;

• PERFORM OUT-OF-LINE;

• PERFORM UNTIL;

• PERFORM VARYING;

• TEST BEFORE;

• TEST AFTER;

• TIMES.

Esses comandos controlam praticamente toda a lógica dos programas COBOL batch e online.

---

O que é SECTION?

SECTION é:

um agrupamento de parágrafos.

Ela organiza grandes blocos de processamento.

---

Exemplo

PROCESSAMENTO SECTION.

VALIDAR-CLIENTE.
   DISPLAY 'VALIDANDO'.

CALCULAR-LIMITE.
   DISPLAY 'CALCULANDO'.

---

Hierarquia COBOL

DIVISION
   ↓
SECTION
   ↓
PARAGRAPH
   ↓
STATEMENTS

---

O que é PARAGRAPH?

É uma rotina lógica.

---

Exemplo

CALCULAR-TOTAL.

---

Analogia simples

Imagine uma empresa.

FINANCEIRO (SECTION)
   ↓
CALCULAR-JUROS
GERAR-BOLETO
ATUALIZAR-SALDO

RH (SECTION)
   ↓
CALCULAR-FOLHA
GERAR-HOLERITE

---

O que é PERFORM?

PERFORM é o comando usado para:

executar rotinas.

---

Exemplo

PERFORM CALCULAR-TOTAL

---

Fluxo

MAIN
 ↓
PERFORM CALCULAR-TOTAL
 ↓
Executa rotina
 ↓
Retorna

---

PERFORM OUT-OF-LINE

É o PERFORM tradicional.

Chama um parágrafo ou SECTION externa.

---

Exemplo

MAIN.

   PERFORM PROCESSAR-CLIENTE

   STOP RUN.

PROCESSAR-CLIENTE.

   DISPLAY 'PROCESSANDO'.

---

Fluxo

MAIN
 ↓
PERFORM
 ↓
PROCESSAR-CLIENTE
 ↓
RETORNA

---

Vantagens

• reutilização;

• modularização;

• manutenção.

---

PERFORM INLINE

Executa comandos diretamente.

Não precisa criar parágrafo.

---

Exemplo

PERFORM

   DISPLAY 'PROCESSANDO'

END-PERFORM

---

Fluxo

PERFORM
 ↓
EXECUTA BLOCO
 ↓
FIM

---

Quando usar INLINE?

Pequenas lógicas.

---

Quando usar OUTLINE?

Processamentos maiores.

---

Chamar um parágrafo

PERFORM CALCULAR-TOTAL

---

Chamar vários parágrafos

PERFORM INICIALIZA
PERFORM PROCESSA
PERFORM FINALIZA

---

PERFORM THRU

Executa vários parágrafos em sequência.

---

Exemplo

PERFORM INICIO
   THRU FIM

---

Exemplo completo

INICIO.

   DISPLAY '1'.

MEIO.

   DISPLAY '2'.

FIM.

   DISPLAY '3'.

Resultado:

1
2
3

---

PERFORM SECTION

Também pode chamar uma SECTION inteira.

---

Exemplo

PERFORM PROCESSAMENTO

---

Onde PROCESSAMENTO é:

PROCESSAMENTO SECTION.

---

PERFORM TIMES

Executa quantidade fixa.

---

Exemplo

PERFORM 5 TIMES

   DISPLAY 'OLA'

END-PERFORM

---

Resultado

OLA
OLA
OLA
OLA
OLA

---

Muito usado para

• testes;

• repetições simples;

• validações.

---

PERFORM UNTIL

Loop até condição verdadeira.

---

Exemplo

PERFORM UNTIL EOF = 'S'

   READ ARQCLI

END-PERFORM

---

Fluxo

CONDIÇÃO?
 ↓
FALSA
 ↓
EXECUTA
 ↓
TESTA NOVAMENTE

---

Muito usado em leitura de arquivos

---

PERFORM VARYING

Equivalente ao FOR.

---

Exemplo

PERFORM VARYING WS-I
        FROM 1
        BY 1
UNTIL WS-I > 10

   DISPLAY WS-I

END-PERFORM

---

Resultado

1
2
3
4
5
6
7
8
9
10

---

O que é contador?

Variável usada para controlar repetições.

---

Exemplo

01 WS-I PIC 9(3).

---

Contador manual

ADD 1 TO WS-I

---

Contador automático

PERFORM VARYING

---

TEST BEFORE

Condição testada antes.

Padrão COBOL.

---

Exemplo

PERFORM UNTIL WS-I > 10

   DISPLAY WS-I

END-PERFORM

---

Fluxo

TESTA
 ↓
EXECUTA
 ↓
TESTA

---

Pode não executar nenhuma vez

---

Exemplo

WS-I = 20

Nunca entra no loop.

---

TEST AFTER

Condição testada depois.

Executa pelo menos uma vez.

---

Exemplo

PERFORM WITH TEST AFTER
UNTIL WS-I > 10

   DISPLAY WS-I

END-PERFORM

---

Fluxo

EXECUTA
 ↓
TESTA
 ↓
EXECUTA

---

Similar ao DO-WHILE

---

Comparação

Tipo	Teste
TEST BEFORE	Antes
TEST AFTER	Depois

---

Exemplo visual

TEST BEFORE

Condição?
 ↓
Executa

---

TEST AFTER

Executa
 ↓
Condição?

---

Exemplo clássico de leitura batch

OPEN INPUT ARQCLI

PERFORM UNTIL EOF = 'S'

   READ ARQCLI
      AT END
         MOVE 'S' TO EOF

      NOT AT END
         PERFORM PROCESSAR

   END-READ

END-PERFORM

CLOSE ARQCLI

---

Tipos mais usados de PERFORM

Tipo	Uso
PERFORM parágrafo	Executa rotina
PERFORM THRU	Executa faixa
PERFORM SECTION	Executa SECTION
PERFORM TIMES	Repetição fixa
PERFORM UNTIL	Repetição por condição
PERFORM VARYING	Loop contador
TEST BEFORE	Testa antes
TEST AFTER	Testa depois
INLINE	Código embutido
OUT-OF-LINE	Rotina externa

---

Erros comuns de iniciantes

Usar THRU excessivamente

Pode gerar manutenção difícil.

---

Esquecer contador no VARYING

Loop infinito.

---

Não controlar EOF

Loop infinito em arquivos.

---

Usar SECTION gigantes

Dificulta manutenção.

---

Dicas de programador experiente

✅ Prefira PERFORM de parágrafos nomeados

✅ Use VARYING para tabelas

✅ Use UNTIL para leitura de arquivos

✅ Use TEST AFTER quando precisar executar ao menos uma vez

✅ Evite GO TO quando possível

✅ Mantenha SECTIONs pequenas e organizadas

---

Resumo rápido

SECTION
 ↓
Agrupa parágrafos

PARAGRAPH
 ↓
Contém lógica

PERFORM
 ↓
Executa rotina

TIMES
 ↓
Quantidade fixa

UNTIL
 ↓
Até condição

VARYING
 ↓
Contador automático

TEST BEFORE
 ↓
Testa antes

TEST AFTER
 ↓
Testa depois

Dominar SECTION e PERFORM é um dos maiores passos para evoluir de programador COBOL iniciante para desenvolvedor capaz de entender e manter aplicações corporativas de grande porte em bancos, seguradoras e sistemas críticos do ambiente IBM Z.