
¿Qué son los IF de signo de COBOL?
Capítulo 32: IF de signo
Seguimos con más tipos de condiciones en los IF
. En esta ocasión, vas a ver los IF
de signo.
Los IF de signo
Los IF
de signo, son aquellos que establecen una expresión entorno al tipo de signo de un valor. Si es negativo, positivo o cero.
Metalenguaje de IF de signo

Podemos elegir entre operaciones aritméticas, literales o identificadores. Después, podemos negar o no la expresión con NOT
, seguido de las palabras para comparar signos.
IF de signo con expresión aritmética
En este caso, le pasamos una condición de tipo expresión aritmética directamente.
IDENTIFICATION DIVISION.
PROGRAM-ID. Capitulo32.
ENVIRONMENT DIVISION.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
77 Numero1 PIC S99 VALUE +10.
77 Numero2 PIC S99 VALUE -10.
77 Numero3 PIC S99 VALUE ZEROS.
PROCEDURE DIVISION.
RelacionSigno.
IF (5*10/8*56*56/4) IS POSITIVE THEN
DISPLAY "El número es positivo."
END-IF
STOP RUN.
END PROGRAM Capitulo32.
El número es positivo
IF de signo con literal
En esta ocasión, le paso un literal a la expresión de comparación de signo.
IDENTIFICATION DIVISION.
PROGRAM-ID. Capitulo32.
ENVIRONMENT DIVISION.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
77 Numero1 PIC S99 VALUE +10.
77 Numero2 PIC S99 VALUE -10.
77 Numero3 PIC S99 VALUE ZEROS.
PROCEDURE DIVISION.
RelacionSigno.
IF 0 IS ZERO THEN
DISPLAY "El número es cero."
END-IF
STOP RUN.
END PROGRAM Capitulo32.
El número es cero.
IF de signo con identificador
La última posibilidad, es que en la expresión, le pasemos un valor de identificador.
IDENTIFICATION DIVISION.
PROGRAM-ID. Capitulo32.
ENVIRONMENT DIVISION.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
77 Numero1 PIC S99 VALUE +10.
77 Numero2 PIC S99 VALUE -10.
77 Numero3 PIC S99 VALUE ZEROS.
PROCEDURE DIVISION.
RelacionSigno.
IF Numero2 IS NEGATIVE THEN
DISPLAY "El número es negativo."
END-IF
STOP RUN.
END PROGRAM Capitulo32.
El número es negativo.
Comentarios
Si te quedan dudas sobre el temario, sobre Cobol, o cualquier otra cosa relacionada o simplemente quieres agradecer, aquí tienes tu sitio para dejar tu granito de arena. Gracias por tus comentarios y por darle vida a este sitio web.