quarta-feira, 7 de fevereiro de 2007

COBOL Controle de Fluxo IF e Carga de Paragrafos PERFORM

Bellacosa Mainframe e o if e perform no cobol

COBOL : Controle de Fluxo IF e Carga de Paragrafos PERFORM

Dois dos comandos mais importantes do COBOL são:

IF

PERFORM

Praticamente toda lógica COBOL usa esses comandos.

Eles controlam:

decisões;
execução;
loops;
fluxo batch;
regras de negócio.

O que é IF no COBOL?

O IF é usado para:

tomar decisões.

Analogia simples

Imagine:

SE chover
   pegar guarda-chuva
SENÃO
   sair normalmente

Isso é:

lógica condicional.

Sintaxe básica

IF condição
   instrução
END-IF

Exemplo simples

IF SALDO > 0
   DISPLAY 'SALDO POSITIVO'
END-IF

Como funciona?

O COBOL verifica:

SALDO > 0 ?

Se for verdadeiro:

executa DISPLAY

IF com ELSE

IF SALDO > 0
   DISPLAY 'POSITIVO'
ELSE
   DISPLAY 'NEGATIVO'
END-IF

Fluxo lógico

      CONDIÇÃO
        ↓
   VERDADEIRO?
     /     \
   SIM      NÃO
    ↓        ↓
COMANDO1  COMANDO2

IF com várias condições

AND

IF IDADE > 18
AND SALDO > 1000

OR

IF STATUS = 'A'
OR STATUS = 'P'

NOT

IF NOT ERRO

Comparações usadas no IF

Operador	Significado
=	Igual
>	Maior
<	Menor
>=	Maior igual
<=	Menor igual
NOT	Negação

Exemplo completo

IF SALDO >= 1000
   DISPLAY 'CLIENTE VIP'
ELSE
   DISPLAY 'CLIENTE NORMAL'
END-IF

IF aninhado

IF dentro de IF.

Exemplo

IF STATUS = 'A'
   IF SALDO > 1000
      DISPLAY 'VIP'
   END-IF
END-IF

Problema comum

IFs excessivos deixam código:

complexo.

O que é PERFORM?

PERFORM é usado para:

executar rotinas ou loops.

Um dos comandos mais importantes do COBOL

Analogia simples

Imagine apertar um botão:

EXECUTAR PROCESSAMENTO

Isso é:

PERFORM.

PERFORM simples

PERFORM CALCULAR

O que acontece?

O COBOL:

vai até o parágrafo;
executa;
retorna.

Exemplo completo

PROCEDURE DIVISION.

MAIN.
    PERFORM CALCULAR
    STOP RUN.

CALCULAR.
    DISPLAY 'PROCESSANDO'.

Fluxo visual

MAIN
 ↓
PERFORM CALCULAR
 ↓
CALCULAR
 ↓
RETORNA MAIN

PERFORM UNTIL

Usado para:

repetição (loop).

Exemplo

PERFORM UNTIL EOF = 'S'

   READ ARQCLIENTE
      AT END
         MOVE 'S' TO EOF
   END-READ

END-PERFORM

O que isso faz?

Repete:

até EOF = 'S'

Muito usado em batch

Principalmente:

leitura arquivos;
processamento registros;
relatórios.

Fluxo PERFORM UNTIL

INICIO LOOP
    ↓
LER REGISTRO
    ↓
EOF?
 /      \
NÃO      SIM
 ↓        ↓
CONTINUA FIM

PERFORM VARYING

Similar ao:

FOR.

Exemplo

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

   DISPLAY WS-I

END-PERFORM

Resultado

1
2
3
...
10

Muito usado em tabelas

O que é inline PERFORM?

PERFORM sem parágrafo externo.

Exemplo

PERFORM
   DISPLAY 'TESTE'
END-PERFORM

PERFORM TIMES

Executa quantidade fixa.

Exemplo

PERFORM 5 TIMES
   DISPLAY 'OLA'
END-PERFORM

Resultado

OLA
OLA
OLA
OLA
OLA

IF + PERFORM juntos

Muito comum no COBOL.

Exemplo

IF SALDO > 0
   PERFORM PROCESSAR
ELSE
   PERFORM ERRO
END-IF

Fluxo real batch

LER
 ↓
IF válido
 ↓
PERFORM cálculo
 ↓
WRITE saída

Exemplo batch completo

PERFORM UNTIL EOF = 'S'

   READ CLIENTE
      AT END
         MOVE 'S' TO EOF

      NOT AT END

         IF SALDO > 0
            PERFORM PROCESSA
         ELSE
            PERFORM REJEITA
         END-IF

   END-READ

END-PERFORM

O que é EOF?

End Of File

Fim do arquivo.

Vantagens do IF

clareza;
decisão;
controle lógico.

Vantagens do PERFORM

modularização;
reutilização;
loops organizados;
menos GO TO.

COBOL moderno usa muito:

IF;
END-IF;
PERFORM;
EVALUATE.

O que o PERFORM substituiu?

Em muitos casos:

GO TO.

Isso ajudou a reduzir:

spaghetti code.

Curiosidades incríveis

1. Grande parte do processamento bancário usa PERFORM UNTIL

2. IF é uma das instruções mais usadas do COBOL

3. Sistemas batch podem executar bilhões de loops PERFORM diariamente

4. O COBOL estruturado reduziu muito uso de GO TO

Erros comuns de iniciantes

1. Esquecer END-IF

2. Criar loops infinitos

3. Misturar muitos IFs aninhados

4. Não controlar EOF corretamente

Dicas importantes

Use END-IF sempre

Prefira PERFORM ao GO TO

Modularize lógica em parágrafos

Controle loops cuidadosamente

Como isso aparece no dia a dia?

Praticamente em:

batch;
bancos;
cartões;
DB2;
CICS;
processamento financeiro.

Resumo rápido

Comando	Função
IF	Decisão
ELSE	Caminho alternativo
PERFORM	Executa rotina
PERFORM UNTIL	Loop
PERFORM VARYING	Repetição contador
END-IF	Final IF
EOF	Fim arquivo

Conclusão

IF e PERFORM são duas das estruturas mais importantes do COBOL.

Elas controlam decisões, execução de rotinas e loops, sendo fundamentais para programas batch e online no ambiente mainframe IBM Z.

Translate

quarta-feira, 7 de fevereiro de 2007