COBOL - Procedimento de entrada

Para processar os registros em um arquivo de entrada antes de serem liberados para o programa de classificação, use a frase INPUT PROCEDURE da instrução SORT.

Você pode usar um procedimento de entrada para:

Libere itens de dados para o arquivo de classificação de WORKING-STORAGE ou LOCAL-STORAGE.
Liberar registros que já foram lidos em outras partes do programa.
Leia registros de um arquivo de entrada, selecione-os ou processe-os e libere-os para o arquivo de classificação.

Cada procedimento de entrada deve estar contido em parágrafos ou seções. Por exemplo, para liberar registros de uma tabela em WORKING-STORAGE ou LOCAL-STORAGE para o arquivo de classificação SORT-WORK-2, você pode codificar da seguinte forma:

  SORT SORT-WORK-2
  ON ASCENDING KEY SORT-KEY
  INPUT PROCEDURE 600-SORT3-INPUT-PROC
. . .
600-SORT3-INPUT-PROC SECTION.
PERFORM WITH TEST AFTER
  VARYING X1 FROM 1 BY 1 UNTIL X1 = 100
  RELEASE SORT-WORK-2-AREA FROM TABLE-ENTRY (X1)
END-PERFORM.

Para transferir registros para o programa de classificação, todos os procedimentos de entrada devem conter pelo menos uma instrução RELEASE ou RELEASE FROM. Para liberar A de X, por exemplo, você pode codificar:

MOVE X TO A.
RELEASE A.

Alternativamente, você pode codificar:

RELEASE A FROM X.