IF de relación o comparación de COBOL

Con el fin de entender los diferentes tipos de IF, vamos a verlos con algunos ejemplos. En este capítulo te mostraré el primer tipo, Los IF de relación.

Ya hemos visto todos los tipos de IF, no obstante, ahora que los comprendes bien, vamos a analizarlos para que los conozcas todavía mejor.

A continuación, tienes los diferentes tipos de if. Los veremos uno por uno.

• Relación
• Signo
• Clase
• Complejos
• Nombres de condición

Los IF de relación

Los IF de relación o comparación, son los que se utilizan para comparar valores, si son mayores, menores, o iguales.

Aquí tienes su metalenguaje con todas las posibilidades que tiene.

IF de comparación con literales

Lo primero que vamos a escribir obligatoriamente, es el verbo IF.

Lo siguiente es una expresión de algún tipo. Esta es obligatoria. Puede ser o bien un valor literal, un identificador o una expresión aritmética.

IS es opcional.

Ponemos alguno de los operadores utilizados en los IF de relación.

Si queremos hacer una negación, tenemos que poner obligatoriamente el NOT, pero este en sí, no es un elemento obligatorio.

Después, indicamos una segunda expresión a comparar. Con un THEN opcional, el código, que también es opcional (pero no tiene sentido utilizar un IF sin código) y el END-IF que también es opcional y no se puede poner si no ponemos el bloque de código.

Con esto y lo del capítulo anterior, doy por sentado que entiendes como funciona el metalenguaje de COBOL y que sabrás interpretar los próximos que vengan. Si no te aclaras con algo, déjame un comentario.

Vamos a utilizar una de las posibilidades de este tipo de IF, la relación entre literales.

⁠⁠       IDENTIFICATION DIVISION.
       PROGRAM-ID. Capitulo31.

       ENVIRONMENT DIVISION.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.

       PROCEDURE DIVISION.
       RelacionLiterales.
       IF 10 IS GREATER THAN 5 THEN
           DISPLAY "El valor 10 es mayor que 5."
       END-IF
       STOP RUN.
       END PROGRAM Capitulo31.

El valor 10 es mayor que 5.

IF de comparación con identificadores

Los identificadores son los nombres que tienen las variables. Entonces, esto se trata de pasar las expresiones mediante variables.

⁠⁠       IDENTIFICATION DIVISION.
       PROGRAM-ID. Capitulo31.

       ENVIRONMENT DIVISION.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       77  Numero1 PIC 99 VALUE 10.
       77  Numero2 PIC 99 VALUE 5.

       PROCEDURE DIVISION.
       RelacionIdentificadores.
       IF Numero2 IS LESS THAN Numero1 THEN
           DISPLAY "El valor 10 es mayor que 5."
       END-IF
       STOP RUN.
	   END PROGRAM Capitulo31.

El valor 10 es mayor que 5.

IF de comparación con expresiones aritméticas

En este tipo de IF, pasaremos expresiones aritméticas en la comparación.

⁠⁠       IDENTIFICATION DIVISION.
       PROGRAM-ID. Capitulo31.

       ENVIRONMENT DIVISION.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.

       PROCEDURE DIVISION.
       RelacionAritmetica.
       IF (5*2) IS NOT LESS THAN (2.5*2)
           DISPLAY "El valor 10 es mayor que 5."
       END-IF
       STOP RUN.
       END PROGRAM Capitulo31.

El valor 10 es mayor que 5.

IF de relación mixta

Por último, el IF de relación mixta, el cual, utiliza una combinación entre los otros tres tipos. Aquí un ejemplo:

⁠⁠       IDENTIFICATION DIVISION.
       PROGRAM-ID. Capitulo31.

       ENVIRONMENT DIVISION.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       77  Numero1 PIC 99 VALUE 10.

       PROCEDURE DIVISION.
       RelacionMixta.
       IF Numero1 GREATER THAN OR EQUAL (100/10) THEN
           DISPLAY "10 es mayor o igual a 10."
       END-IF
       STOP RUN.
       END PROGRAM Capitulo31.

10 es mayor o igual a 10.

Ya se que los resultados de estos IF no podían ser más inútiles, pero espero que con ellos, te haya sido más fácil comprender este capítulo.