Lecciones del módulo (1/2)
Párrafos y PERFORM
En COBOL, la modularidad y la estructuración lógica del código dentro de la PROCEDURE DIVISION no se realizan mediante funciones o métodos, sino a través de los Párrafos y la instrucción PERFORM.
Definición de los párrafos
Un párrafo es una sección etiquetada de código que comienza con un nombre en la columna 8 (Área A) terminado por un punto ., seguido de una secuencia de instrucciones en la columna 12 (Área B).
STAMPA-MESSAGGIO.
DISPLAY "Questo è un paragrafo!".
Los párrafos permiten dividir programas potencialmente muy largos en bloques reutilizables y autodocumentados.
Ejecución de párrafos mediante PERFORM
La instrucción PERFORM invoca y ejecuta un párrafo, tras lo cual devuelve el control del flujo a la línea inmediatamente posterior a la llamada de PERFORM.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "Inizio programma...".
PERFORM ELABORA-DATI.
DISPLAY "Fine programma.".
STOP RUN.
ELABORA-DATI.
DISPLAY "Sto elaborando i dati in memoria...".
En el código anterior:
- Se ejecuta el
DISPLAYenMAIN-PROCEDURE. PERFORM ELABORA-DATIdesvía la ejecución al párrafoELABORA-DATI.- Una vez finalizado el párrafo
ELABORA-DATI, la ejecución regresa aMAIN-PROCEDUREpara imprimir "Fine programma." y detenerse conSTOP RUN..
Pruébalo tú mismo
Define un párrafo llamado DISPLAY-TOTAL que imprima 'TOTAL IS DONE' usando DISPLAY, e invócalo dentro de MAIN-PROCEDURE mediante PERFORM antes de detener el programa.
Mostrar pista
Escribe PERFORM DISPLAY-TOTAL. en la columna 12, y debajo del bloque MAIN-PROCEDURE declara el párrafo DISPLAY-TOTAL. en la columna 8.
Solución disponible después de 3 intentos
Invoca secuencialmente dos párrafos, primero INITIALIZE-DATA y luego PROCESS-DATA, dentro del bloque MAIN-PROCEDURE.
Mostrar pista
Inserta las dos instrucciones PERFORM en orden secuencial en la columna 12.
Solución disponible después de 3 intentos