COBOL -Definição de arquivo

A FILE SECTION deve conter um indicador de nível para cada arquivo de entrada e saída. Para todos os arquivos, exceto classificar ou mesclar arquivos, a FILE SECTION deve conter uma entrada FD. Para cada arquivo de classificação ou mesclagem, a SEÇÃO DE ARQUIVO deve conter uma entrada SD.

DATA DIVISION.
FILE SECTION.
FD FILENAME.
   RECORD CONTAINS N CHARACTERS.
   BLOCK CONTAINS N CHARACTERS/RECORDS.
   RECORDING MODE IS F/FB/V/VB/S/U.
   DATA RECORD IS FILE-REC.
01 FILE-REC PIC X(N).

• Cláusula RECORD[opcional] - Isto é para especificar o comprimento do registro dos arquivos em bytes.
  
  
• Cláusula BLOCK CONTAINS[Opcional] - A cláusula BLOCK CONTAINS especifica o tamanho dos registros físicos.
  
  
• Cláusula RECORDING MODE[Opcional] - A cláusula RECORDING MODE especifica o formato dos registros físicos em um arquivo QSAM. A cláusula é ignorada para um arquivo VSAM.
  
  
• Cláusula DATA RECORD[Opcional] - A cláusula DATA RECORDS tem a sintaxe verificada, mas serve apenas como documentação para os nomes dos registros de dados associados ao arquivo.
  
  O nome de dados não precisa ter uma descrição de registro de número de nível 01 associado com o mesmo nome.

Exemplo:

Vamos pegar um arquivo de funcionário,

DATA DIVISION.
FILE SECTION.
01 EMPLOYEE-DETAILS.
   05 EMPLOYEE-ID   PIC 9(05).
   05 EMPLOYEE-NAME PIC X(20).
   05 EMPLOYEE-GRADE PIC X(01).
   05 EMPLOYEE-SALARY PIC 9(10).