Nos arquivos relativos, os registros poderão ter tamanho fixo ou variável.

TAMANHO FIXO

O registro REGISTRO-CADASTRO do arquivo CADASTRO abaixo, com tamanho fixo de 200 caracteres,

DADOS-01	DADOS-02
100 caracteres	100 caracteres

é definido pelas seguintes declarações;

FD CADASTRO.

01 REGISTRO-CADASTRO.

02 DADOS-01 PIC X(100).

02 DADOS-02 PIC X(100).

TAMANHO VARIÁVEL

O registro REGISTRO-CADASTRO do arquivo CADASTRO abaixo, com tamanho variável de 101 a 200 caracteres;

DADOS-01	DADOS-02
100 caracteres	1 a 100 caracteres

é definido pelas seguintes declarações;

FD CADASTRO

RECORD IS VARYING IN SIZE

FROM 101 TO 200 CHARACTERS

DEPENDING ON TAMANHO-REGISTRO.

01 REGISTRO-CADASTRO.

02 DADOS-01 PIC X(100).

02 DADOS-02.

03 PIC X OCCURS 1 TO 100 TIMES

DEPENDING ON TAMANHO-1.

WORKING-STORAGE SECTION.

01 TAMANHO-REGISTRO PIC 9(3) BINARY.

01 TAMANHO-1 PIC 9(3) BINARY.