IDENTIFICATION DIVISION.
PROGRAM-ID. USOPERFORM.
AUTHOR. HIRONAKAMURA.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-A PIC 9 VALUE 3.
PROCEDURE DIVISION.
Inicio.
DISPLAY "Este es el principio del programa"
PERFORM Rutina1 VARYING WS-A FROM 1 BY 1 UNTIL WS-A = 5
DISPLAY "Ahora voy a terminar el programa"
STOP RUN.
Rutina1.
DISPLAY "Numero: "WS-A.
Ejemplo tomado de https://www.tutorialspoint.com/es/cobol/cobol_loop_statements.htm
Be the first to comment
You can use [html][/html], [css][/css], [php][/php] and more to embed the code. Urls are automatically hyperlinked. Line breaks and paragraphs are automatically generated.