Utilizando PERFORM THROUGH en COBOL
La instrucción PERFORM THROUGH se utiliza en COBOL para ejecutar un bloque de código repetidamente para un rango de valores específico. Esto permite realizar bucles sobre un conjunto ordenado de datos, como un rango de índices en un array o una tabla.
Ejemplo de Uso
Supongamos que tenemos un array que almacena los días de la semana y queremos imprimirlos. Podemos usar PERFORM THROUGH para lograr esto:
IDENTIFICATION DIVISION.
PROGRAM-ID. PRINT-DAYS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DAYS OCCURS 7 TIMES.
05 DAY PIC X(10) VALUE 'Lunes',
PIC X(10) VALUE 'Martes',
PIC X(10) VALUE 'Miércoles',
PIC X(10) VALUE 'Jueves',
PIC X(10) VALUE 'Viernes',
PIC X(10) VALUE 'Sábado',
PIC X(10) VALUE 'Domingo'.
PROCEDURE DIVISION.
PERFORM THROUGH DAY
DISPLAY 'Día: ' DAY
END-PERFORM.
STOP RUN.
En este ejemplo, la instrucción PERFORM THROUGH se utiliza para iterar sobre el array DAYS, ejecutando el bloque de código para cada elemento del array. Dentro del bucle, se muestra el valor actual del elemento.
Puntos Clave:
- PERFORM THROUGH se utiliza para ejecutar un bloque de código repetidamente para un rango de valores específico.
- Es útil para iterar sobre arrays o tablas en COBOL.
- Se pueden realizar operaciones específicas para cada elemento del conjunto de datos dentro del bucle.
¡Ahora estás listo para utilizar la instrucción PERFORM THROUGH en tus programas COBOL para realizar operaciones repetitivas sobre conjuntos de datos ordenados!
No hay comentarios:
Publicar un comentario