Aprendiendo COBOL: PERFORM UNTIL

Aprendiendo COBOL: PERFORM UNTIL

Utilizando PERFORM UNTIL en COBOL

La instrucción PERFORM UNTIL se utiliza en COBOL para ejecutar un bloque de código repetidamente hasta que se cumpla una condición específica. Esto permite realizar bucles mientras una condición sea falsa.

Ejemplo de Uso

Supongamos que queremos imprimir los números del 1 al 10. Podemos usar PERFORM UNTIL para lograr esto:

IDENTIFICATION DIVISION.
PROGRAM-ID. PRINT-NUMBERS.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 I            PIC 99 VALUE 1.

PROCEDURE DIVISION.
   PERFORM UNTIL I > 10
       DISPLAY 'Número: ' I
       ADD 1 TO I
   END-PERFORM.
   STOP RUN.
        

En este ejemplo, la instrucción PERFORM UNTIL se utiliza para iterar sobre la variable I hasta que su valor sea mayor que 10. Dentro del bucle, se muestra el valor actual de I y luego se le suma 1 en cada iteración.

Puntos Clave:

• PERFORM UNTIL se utiliza para ejecutar un bloque de código repetidamente mientras una condición sea falsa.
• El bucle se ejecutará hasta que la condición especificada se vuelva verdadera.
• Es importante tener cuidado con las condiciones de salida del bucle para evitar bucles infinitos.

¡Ahora estás listo para utilizar la instrucción PERFORM UNTIL en tus programas COBOL para realizar operaciones repetitivas de manera eficiente!

© 2024 Programar desde Cero