Fórum — COBOL Dicas

Conhecimento que atravessa gerações. Compartilhe o que você sabe.

Como funciona o PERFORM VARYING e quando usar no lugar do PERFORM UNTIL?

Publicado

Publicação inicial

17/04/2025 14:43 · Publicado

Uma dúvida comum entre iniciantes, com espaço pra explicação e exemplo de código.

Exemplo de PERFORM UNTIL

Código · COBOL

PERFORM 0002-LER-REGISTRO  UNTIL FIM-ARQUIVO = "S"

Exemplo de PERFORM VARYING

Código · COBOL

     PERFORM VARYING WRK-IND1 FROM 1 BY 1 UNTIL
                           WRK-IND1 GREATER COPY002A-QUANT-REG

Resposta

31/05/2025 15:01 · Publicado

Muito legal esse espaço com informações e dicas.
Eu usava bastante o PERFORM VARYING para "varrer tabelas" (occurs)

Agradecimentos: 1 Entre para agradecerRegistros do fórum anterior preservados.