Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF.
Esta instrução condicional permite a avaliação de itens ou condições. A ação subsequente do
programa depende do resultado dessa avaliação.
Semelhante ao comando SE da lógica de programação, podemos ter comandos na
procedure que só serão executados se for satisfeita ou não a condição indicada numa cláusula IF.
Esse comando avalia uma condição existente em sua sintaxe e faz com que o programa execute uma
determinada ação dependendo do resultado dessa avaliação.
Em outras palavras, podemos dizer que se uma condição for verdadeira, executa uma alternativa, ou então,
executa outra alternativa. END-IF, ou um ponto fecham a condição. Podemos ter também IF aninhados, ou seja,
um IF dentro de outro.
O THEN é equivalente ao simbolo ENTAO, que usamos na lógica de programação e o mesmo é facultativo.
O seu formato geral é:
Caso o campo PESO-BRUTO for menor ou igual a 70, o programa
irá executar uma rotina chamada 900-PESO-ABAIXO.
Este mesmo comando tambem poderia ser codificado da seguinte maneira:
Um comando IF também pode comparar um campo com uma expressão aritmética:
Terceiro exemplo:
Cláusula CONTINUE (Cobol 85) ou NEXT SENTENCE (Cobol 74):
Os comandos do terceiro exemplo tambem poderia ser codificado da seguinte maneira:
No COBOL 85 a expressão
NEXT SENTENCE também poderá ser utilizada desde que não se coloque
o END-IF no final do comando.
Quarto exemplo:
Instrução condicional aninhada: Uma intrução condicional aninhada é um comando IF que contém
outros comando IF de nível hierárquico inferior.