Comando Perform...

[Fito]

Hola Amigos:

En otros coboles he visto que hay una instruccion EXIT PERFORM CYCLE. Esto hace que un bucle siga iterando salteando las instrucciones siguientes.

En PowerCobol tendremos algo parecido?

Saludos


Fito....

[JCantero]

@Fito, esto funciona en opencobol, acucobol y rmcobol

No tengo el compilador de powercobol, pruebalo.


************************************************** ****************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
************************************************** ****************
IDENTIFICATION DIVISION.
PROGRAM-ID. YOUR-PROGRAM-NAME.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 i pic 99.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "Hello world"
perform varying i from 1 by 1 until i = 10
display i
if i = 5 THEN
exit perform
end-if
end-perform.
STOP RUN.
END PROGRAM YOUR-PROGRAM-NAME.

[Josber]

@Fito, Te refieres a que no se ejecutan las instrucciones del perform, pero éste continúa, ¿no?, o ¿te refieres a salir de un perform?

[JCantero]

@Fito, incluso en el caso de que tengas perform anidados "exit perform" sale del perform que lo contiene


************************************************** ****************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
************************************************** ****************
IDENTIFICATION DIVISION.
PROGRAM-ID. YOUR-PROGRAM-NAME.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 i pic 99.
01 j pic 99.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "Hello world"
perform varying i from 1 by 1 until i = 10
display i
if i = 5 THEN
exit perform
end-if
perform varying j from 1 by 1 until j = 10
display '--'
if j = 3 THEN
exit perform
end-if
end-perform
end-perform.
STOP RUN.
END PROGRAM YOUR-PROGRAM-NAME.

[Fito]

Hola Amigos:

Me refiero a que siga con el otro elemento del bucle, que salte las instrucciones de abajo, no quiero que salga del perform. El EXIT PERFORM en power está.

Saludos....

Fito...

[Kuk]

@Fito, el compilador de Fujitsu no lo tiene. Debes hacerlo mediante IFs y ELSEs.

[Kuk]

@Fito, también puedes hacerlo con párrafos y simular el Break del lenguaje C, que es lo que querías en principio:


ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 idx pic 9(4) comp-5.
PROCEDURE DIVISION.

move 1 to idx

perform loop
thru loop-exit
until idx > 10

goback
.

loop.

if idx = 5
add 1 to idx

go to loop-exit
end-if

display idx

add 1 to idx
.

loop-exit.
exit.

[Fito]

Hola @Kuk, de forma "casera" lo hago así, pero era por si había una instrucción que me podía clarificar el código, nada más.

De esa manera como decís, es como lo vengo haciendo desde siempre

Saludos

Fito...

[Kuk]

@Fito, PowerCOBOL no acepta lo que mencionas en tu primer post, esto es seguro. Así que no queda otra que hacerlo como lo hacías siempre. ;)