COBOL - Output Procedure

---

Para selecionar, editar ou alterar registros classificados antes de gravá-los do arquivo de trabalho de classificação em outro arquivo, use a frase OUTPUT PROCEDURE da instrução SORT.

Cada procedimento de saída deve estar contido em uma seção ou em um parágrafo. Um procedimento de saída deve incluir ambos os seguintes elementos:

• Pelo menos uma instrução RETURN ou uma instrução RETURN com a frase INTO
  
  
• Quaisquer declarações necessárias para processar os registros que são disponibilizados, um de cada vez, pela declaração RETURN

A instrução RETURN disponibiliza cada registro classificado para o procedimento de saída. (A instrução RETURN para um arquivo de classificação é semelhante a uma instrução READ para um arquivo de entrada.)

Você pode usar as frases AT END e END-RETURN com a instrução RETURN. As instruções imperativas na frase AT END são executadas após todos os registros terem sido retornados do arquivo de classificação. O terminador de escopo explícito END-RETURN delimita o escopo da instrução RETURN.

Se você usar RETURN INTO em vez de RETURN, os registros serão retornados para WORKING-STORAGE, LOCAL-STORAGE ou para uma área de saída.

---

Exemplo:

O exemplo a seguir mostra uma técnica de codificação que garante que a instrução RETURN encontre a condição AT END antes que o programa termine de ser executado. A instrução RETURN, codificada com a frase AT END, é executada até que ocorra a condição AT END.