COBOL - Comando PERFORM - www.cadcobol.com

O comando PERFORM é usado para executar código. Há dois modos diferentes de operação.

O primeiro modo é usado para executar código em outra área do programa e é invocado mencionando um procedimento ou nome de parágrafo. Neste modo, o código no outro paragrafo(s) é executado e o controle devolvido aos comandos que segue a declaração PERFORM.

O segundo modo é chamado um PERFORM in-line, porque o código a ser executado está de fato dentro do comando PERFORM.
No segundo modo, o código que é executado está entre o PERFORM e o END-PERFORM.

Abaixo a descrição de cada um dos quatro formatos:

1. O primeiro formato é usado para executar o código referenciado uma vez.
2. O segundo formato é usado para executar a rotina referenciada múltiplas vezes. O número de vezes é indicado através do identifier-1 ou integer-1.

3. O terceiro formato também é usado para executar a rotina referenciada múltiplas vezes. O número de vezes é dependente da condição-1. O código será executado repetidamente até que condição-1 for verdadeira. A condição será testada antes da
execução do código a menos que a frase WITH TEST AFTER seja incluída.

4. O quarto formato é usado para executar a rotina referenciada múltiplas vezes, sendo que o número vezes é dependente de uma condição como no terceiro formato.

A primeira diferença entre formato 3 e formata 4 é a frase VARYING que é usada para contar em uma variável as repetições a serem executadas.
A variável VARYING é setada de um valor antes que a rotina referenciada seja executada.
Antes de cada passagem subseqüente, a variável VARYING é incrementada pelo valor do identifier-4 ou literal-2 do BY.
A opção AFTER pode ser incluída para variar o valor de uma variável adicional.
Se esta opção for usada, a variável AFTER será incrementada por seu ciclo inteiro durante cada tempo que a variável VARYING é executada.