Capitulo 5.

5- Sentencias de control.

Ejecución condicional. Sentencia IF.

La sentencia IF toma una decisión referente a la acción a ejecutar en un programa, basándose en
el resultado, verdadero o falso, de una condición. Su formato es:
acción-1 acción-2
IF condición [THEN]
ELSE [END-IF]
NEXT SENTENCE NEXT SENTENCE

La condición viene dada por una expresión de BOOLE.

Si en la condición intervienen operadores de diferentes tipos, los operadores aritméticos tienen

mayor prioridad, después se ejecutan los operadores de relación y por ultimo los operadores lógicos.

La forma en que se ejecuta la sentencia IF es la siguiente:

Si el resultado de la condición es verdadero, se ejecutará lo indicado por la acción-1.

Si el resultado de la condición es falso, se ejecutará lo indicado por la acción-2.
Si el resultado de la condición es falso, y la cláusula ELSE se ha omitido, la acción-1 se
ignora.
En cualquier caso de los anteriormente expuestos, la ejecución continua con la siguiente
sentencia ejecutable.

El ámbito de la sentencia IF finaliza de cualquiera de las formas siguientes:

1- Por un punto.
2- Por la cláusula END-IF.

Cuando la acción-1 o la acción-2 están formadas por varias sentencias, solamente la ultima
finaliza con un punto, ya que este indica el final de una sentencia IF.

Si se especifica la frase END-IF no se puede utilizar la frase NEXT SENTENCE.

Pruebas de relación:

El formato general para formar un condición de relación es:

[NOT] >
[NOT] <
nombre dato-1 nombre dato-1
[NOT] =
literal IS literal
[NOT] GREATER THAN
expr-aritmetica expr-aritmetica
[NOT] LESS THAN
[NOT] EQUAL TO

Condiciones combinadas.

Una condición combinada esta formada por un conjunto de condiciones simples unidas por los
operadores OR y AND. El formato es el siguiente:
AND
condición simple condición simple
OR

También, hay que tener presente que el operador NOT puede preceder a una condición simple o
a una condición combinada.
 COBOL Verano 95. Capitulo 5. 28

Pruebas de clase.

Permiten saber si un campo es numérico o alfabético.

NUMERIC
nombre datos IS [NOT]
ALPHABETIC

Pruebas de signo.
Permiten determinar si el valor de un campo numérico de una expresión aritmética es positivo,
negativo o cero. El formato general es el siguiente:
nombre datos POSITIVE
IS [NOT] NEGATIVE
expr-aritmetica ZERO

Pruebas de nombre de condición.

Permiten probar si un nombre de condición al que se le ha asociado un determinado valor,

coincide con el valor del campo de datos del cual depende.

Anidamiento de sentencias IF.

Las sentencias IF...THEN pueden estar anidadas. Esto quiere decir que como acción-1 o acción-
2, de acuerdo con el formato, puede escribirse otra sentencia IF.

Estructura IF.

La estructura presentada a continuación, aparece con bastante frecuencia y es por lo que la

damos un tratamiento por separado. Esta estructura es consecuencia del anidamiento de sentencias IF.
IF condición-1
.
sentencias-1
.
ELSE IF condición-2
.
sentencias-2
.
ELSE IF condición-3
.
sentencias-3
.
ELSE
.
sentencias-n
.
[END-IF]

Si se cumple la condición-1, se ejecutan las sentencias-1 y si no se cumplen se examinan

secuencialmente las condiciones siguientes hasta ELSE, ejecutándose las sentencias correspondientes al
primer ELSE IF, cuya expresión sea cierta. Si todas las expresiones son falsas, se ejecutan las sentencias-
n correspondientes al ultimo ELSE. En cualquier caso, se continua con la siguiente sentencia en la
estructura.

Llamada a procedimientos. Sentencia PERFORM.

La sentencia PERFORM es utilizada para transferir explícitamente el control a uno o mas

procedimientos y devolver el control implícitamente, cuando la ejecución del procedimiento especificado,
finalice.
La sentencia PERFORM se puede utilizar para controlar la ejecución de una o mas sentencias,
las cuales están dentro del ámbito de la sentencia PERFORM.

© R. Carlos Soto Cameno.

29 COBOL Verano 95. Capitulo 5.

Formato 1:

PERFORM procedimiento-1 [THRU procedimiento-2]

Si no se especifica la sentencia THRU, la sentencia PERFORM ejecuta una vez, el conjunto de

sentencias que forman el procedimiento-1. Si la opción THRU se especifica, entonces se ejecutan, una
vez todos los procedimientos existentes en el programa entre procedimiento-1 y procedimiento-2, ambos
inclusive.

Formato 2:
entero
PERFORM procedimiento-1 [THRU procedimiento-2] TIMES
nombre datos

Si no se especifica la opción THRU, la sentencia PERFORM ejecuta el numero de veces

especificado por entero o por un nombre de datos, le conjunto de sentencias que forman procedimiento-1.
Si la opción THRU se especifica, entonces se ejecutan el numero de veces especificado, todos los
procedimientos existentes en el programa entre procedimiento-1 y procedimiento-2, ambos inclusive.

Formato 3:

entero
PERFORM TIMES {sentencia}..... END-PERFORM
nombre datos

Cuando se emplea este formato, la sentencia PERFORM ejecuta el numero de veces especificado
por entero o por nombre de datos, el conjunto de sentencias que hay entre PERFORM y END-
PERFORM. Un punto, como final de alguna de las sentencias de esta estructura, daría lugar a un error, ya
que se entendería como final de la sentencia PERFORM.

Formato 4:
AFTER
PERFORM procedimiento-1 [THRU procedimiento-2] WITH TEST
BEFORE
UNTIL condición

Si no se especifica la opción THRU, la sentencia PERFORM ejecuta el conjunto de sentencias

que forman el procedimiento-1 hasta que la condición sea verdad. Si la opción THRU se especifica,
entonces se ejecutan, hasta que la condición sea verdad, todos los procedimientos existentes en el
programa entre procedimiento-1 y procedimiento-2, ambos inclusive.

La ejecución, si no se ha especificado la opción WITH TEST, se realiza de la forma siguiente:

1- Se evalúa la condición. Si es cierta, se da por finalizada la ejecución de la
sentencia PERFORM y se pasa a la sentencia siguiente en el programa, si
es falsa se pasa al punto 2.
2- Se ejecuta el procedimiento-1 hasta el procedimiento-2, si ha sido especificado, y
se vuelve al punto 1.
La opción TEST BEFORE, evalúa la condición antes de la ejecución, esto quiere decir que la
ejecución se efectuara 0 o mas veces. Es la opción por defecto.

La opción TEST AFTER, evalúa la condición después de la ejecución, esto quiere decir que la
ejecución se efectuara una o mas veces.

Formato 5:

© R. Carlos Soto Cameno.

 COBOL Verano 95. Capitulo 5. 30

BEFORE
PERFORM WITH TEST UNTIL condición
AFTER
{sentencia} ...
END-PERFORM

Cuando se emplea este formato, la sentencia PERFORM ejecuta el conjunto de sentencias que
hay entre PERFORM y END-PERFORM hasta que la condición sea verdad. Un punto, como final de
alguna de las sentencias de esta estructura, daría lugar a un error, ya que se entendería como final de la
sentencia PERFORM.

Formato 6:
BEFORE
PERFORM procedimiento-1 [THRU procedimiento-2] WITH TEST
AFTER
nombre dato-1 nombre dato-2 nombre dato-3
VARYING FROM literal BY
nombre indice-1 nombre indice-2 nombre indice-3

UNTIL condición

La ejecución, si no se ha especificado la opción TEST AFTER, se realiza de la forma siguiente:

1- El nombre dato-1 se inicializa al valor especificado por literal o nombre dato-2
que sigue a FROM.
2- Se evalúa la condición. Si es cierta, se da por finalizada la ejecución de la
sentencia PERFORM y se pasa a la sentencia siguiente en el programa. Si
es falsa se pasa al punto 3.
3- Se ejecuta el procedimiento-1 hasta el procedimiento-2, si ha sido especificado.
4- Se suma a nombre dato-1 el valor especificado por nombre dato-3 que sigue a BY,
y se vuelve al punto 2.

Formato 7:
BEFORE nombre dato-1 nombre dato-2
PERFORM WITH TEST VARYING FROM literal
AFTER nombre indice-1 nombre indice-2
nombre dato-3
BY UNTIL condición {sentencia} ... END-PERFORM
nombre indice-3

La ejecución, si no se ha especificado la opción TEST AFTER, se realiza de la forma siguiente:

1- El nombre dato-1 se inicializa al valor especificado por literal o nombre dato-2
que sigue a FROM.
2- Se evalúa la condición. Si es cierta, se da por finalizada la ejecución de la
sentencia PERFORM y se pasa a la sentencia siguiente en el programa. Si
es falsa se pasa al punto 3.
3- Se ejecutan las sentencias entre PERFORM y END-PERFORM.
4- Se suma a nombre dato-1 el valor especificado por nombre dato-3 que sigue a BY,
y se vuelve al punto 2.

Formato 8:

© R. Carlos Soto Cameno.

31 COBOL Verano 95. Capitulo 5.

BEFORE
PERFORM procedimiento-1 [THRU procedimiento-2] WITH TEST
AFTER
nombre dato-1 nombre dato-2 nombre dato-3
VARYING FROM literal BY
nombre indice-1 nombre indice-2 nombre indice-3

UNTIL condición-1
nombre dato-4 nombre dato-5 nombre dato-6
AFTER FROM literal-2 BY
nombre indice-4 nombre indice-5 nombre indice-6

UNTIL condición-2

La ejecución, si no se ha especificado la opción TEST AFTER, se realiza de la forma siguiente:

1- El nombre dato-1 y el nombre dato-4 se inicializan a los valores respectivos que
siguen a cada FROM.
2- Se evalúa la condición-1. Si es cierta, se da por finalizada la ejecución de la
sentencia PERFORM y se pasa a la sentencia siguiente en el programa. Si
es falsa se pasa al punto 3.
3- Se evalúa la condición-2. Si es cierta, el nombre dato-4 se inicializa al valor
especificado por literal-2 o nombre dato-4 que sigue a FROM, también se
suma a nombre dato-1 el valor especificado por nombre dato-3 que sigue a
BY y se continua en el punto 2. Si es falsa se pasa al punto 4.
4- Se ejecutan las sentencias entre procedimiento-1 y procedimiento-2, si ha sido
especificado.
5- Se suma a nombre dato-4 el valor especificado por nombre dato-6 que sigue a BY,
y se vuelve al punto 3.

Los nombres dato y/o pueden ser enteros o reales, positivos o negativos y cero excepto los
nombres de índice que deben ser enteros.

Anidamiento de sentencias PERFORM.

Dentro del ámbito de una sentencia PERFORM, puede especificarse otra sentencia PERFORM,
aunque hay que tener presentes las siguientes reglas:
1- El procedimiento PERFORM ejecutado desde el ámbito de otro PERFORM debe
ser totalmente exterior o totalmente interior a este.
2- Los ámbitos de dos PERFORM se pueden solapar cuando las sentencias de
llamada para su ejecución están fuera de estos ámbitos.
3- Las sentencias PERFORM pueden ser anidadas libremente.
4- Un procedimiento PERFORM puede llamarse asimismo, esto es, la recursividad
esta permitida.

Sentencia EXIT.

Esta sentencia se utiliza como complemento de la sentencia PERFORM, para proporcionar un

punto final para uno o mas procedimientos, a fin de permitir la salida desde cualquier punto.

Formato: EXIT

La sentencia EXIT forma por si sola un párrafo identificado por un nombre.

Sentencia de bifurcación GO.

© R. Carlos Soto Cameno.

 COBOL Verano 95. Capitulo 5. 32

Esta sentencia permite transferir el control desde un punto de la división PROCEDURE a otro.

Formato 1:
GO TO [nombre procedimiento]

Se puede omitir la escritura del nombre de procedimiento utilizando la sentencia GO TO en

combinación con la sentencia ALTER, especificando en esta ultima el nombre del procedimiento al que
se debe bifurcar.

Formato 2:

GO TO nombre procedimiento-1 [nombre procedimiento-2]... DEPENDING ON nombre datos

Sentencia ALTER.

Esta sentencia permite modificar el punto al cual ha de bifurcar una sentencia GO. Su formato es
el siguiente:

ALTER nombre procedimiento-1 TO [PROCEED TO] nombre procedimiento-2

[nombre procedimiento-3 TO [PROCEED TO] nombre procedimiento-4] ...

Sentencia STOP.

Esta sentencia permite suspender temporal o definitivamente la ejecución de un programa.

RUN
STOP
literal

La sentencia STOP RUN termina el programa y devuelve el control al sistema operativo. Por eso
es la ultima sentencia que se ejecuta.

La sentencia STOP literal, suspende la ejecución del programa y envía el literal especificado a la
pantalla. A continuación el operador puede continuar la ejecución del programa o bien detener la misma.

© R. Carlos Soto Cameno.