COBOL - Condição simples de Negação

A forma mais simples de fazer uma condição de negação é usar o operador lógico NOT.

Formato:

IF NOT [CONDITION]
   Instruções COBOL da negação
END-IF.

A condição simples negada é o oposto da condição simples verdadeira.

Ou seja, se o valor de verdade da condição simples for verdadeiro, então o valor de verdade dessa mesma condição simples negada é falso e vice-versa.

Colocar uma condição simples negada entre parênteses não altera seu valor de verdade. Ou seja, as duas afirmações a seguir são equivalentes:

      NOT A IS EQUAL TO B.
      NOT (A IS EQUAL TO B).

vejamos o exemplo:

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLOCOB.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUM1 PIC 9(2) VALUE 20.
01 WS-NUM2 PIC 9(9) VALUE 25.

PROCEDURE DIVISION.
A000-FIRST-PARA.

    IF NOT WS-NUM1 IS LESS THAN WS-NUM2 THEN
         DISPLAY 'IF-BLOCK'
    ELSE
         DISPLAY 'ELSE-BLOCK'
    END-IF.

    STOP RUN.

Quando você compila e executa o programa acima, ele produz o seguinte resultado −

Saída:

ELSE-BLOCK