Utilizando PERFORM VARYING en COBOL
La instrucción PERFORM VARYING se utiliza en COBOL para iterar sobre un rango de valores, incrementando o decrementando una variable de control en cada iteración. Esto permite ejecutar un bloque de código repetidamente mientras se realizan cambios en la variable de control.
Ejemplo de Uso
Supongamos que queremos imprimir los números del 1 al 10. Podemos usar PERFORM VARYING para lograr esto:
IDENTIFICATION DIVISION.
PROGRAM-ID. PRINT-NUMBERS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 I PIC 99 VALUE 1.
PROCEDURE DIVISION.
PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10
DISPLAY 'Número: ' I
END-PERFORM.
STOP RUN.
En este ejemplo, la instrucción PERFORM VARYING se utiliza para iterar sobre la variable I desde 1 hasta 10, incrementando su valor en 1 en cada iteración. Dentro del bucle, se muestra el valor actual de I.
Puntos Clave:
- PERFORM VARYING se utiliza para ejecutar un bloque de código repetidamente mientras se realizan cambios en una variable de control.
- La variable de control puede ser incrementada o decrementada en cada iteración, y se especifica el rango de valores sobre el cual se itera.
- Es importante tener en cuenta las condiciones de parada del bucle para evitar bucles infinitos.
¡Ahora estás listo para utilizar la instrucción PERFORM VARYING en tus programas COBOL para realizar operaciones repetitivas de manera eficiente!
No hay comentarios:
Publicar un comentario