Explicação do FILLER em Programa COBOL

Na linguagem de programação COBOL, você define todas variáveis e campos de dados em seção chamada Data Division. Aqui, configura registros para arquivos de disco, layouts de impressão, contadores e armazenamento de trabalho para cálculos. Define a maioria dos campos dando nomes únicos, mas palavra-chave FILLER permite reservar espaço de memória sem necessidade de nome.

FILLER

FILLER é palavra reservada, significando que não pode usar a palavra para nomear campos ou registros exceto para definir elementos de memória individuais. Usa FILLER imediatamente após número de nível e precedendo cláusula PICTURE que define tamanho e tipo de dado do campo. COBOL restringe uso de FILLER à Data Division; não se aplica às divisões Identification, Environment ou Procedure.

Layouts de Registro

Um dos usos mais comuns para FILLER é definições de registro de dados. Se usa arquivo de dados com registro de 150 caracteres e não precisa rotular todos campos, pode definir caracteres desnecessários como FILLER, como no código:

01 registro-cliente. 05 FILLER PIC X(10). 05 nome-cliente PIC X(30). 05 endereco-cliente PIC X(30). 05 cidade-cliente PIC X(30). 05 FILLER PIC X(50).

Isso permite ler registro de 150 caracteres e identificar campos desejados — nome, endereço, cidade — ignorando resto.

Extração de Substring

Pode usar FILLER para auxiliar extração de substrings de string maior. Exemplo: extrair primeiros 5 dígitos de CEP, configure na Working-Storage Section:

01 cep-completo. 05 cep-principal PIC X(5). 05 FILLER PIC X(5).

Na Procedure Division, move CEP completo para cep-completo, depois move cep-principal para campo destino. Assim, descarta tudo após primeiros 5 dígitos.

FILLER e VALUE

Em registro, campo FILLER reserva espaço e aceita qualquer dado movido para ele. Também pode definir campo FILLER com valor. Programadores usam frequentemente para cabeçalhos de relatório, como:

01 linha-impressao. 05 FILLER PIC X(10) VALUE SPACES. 05 FILLER PIC X(15) VALUE "RELATORIO FINAL". 05 FILLER PIC X(20) VALUE SPACES. 05 FILLER PIC X(5) VALUE "PAG ". 05 numero-pagina PIC ZZZ9.

Note que títulos e espaçamento do cabeçalho são feitos com FILLER, exceto campo nomeado que exibe número da página.

• Dá Para Ler iBooks Online?
• CTR Vs. Taxas de Conversão