Na linguagem de programação COBOL, você define todas as variáveis e campos de dados em uma seção de seu programa chamada Divisão de Dados. Aqui, você configura registros para arquivos de disco, layouts de impressão, contadores e armazenamento de trabalho para cálculos. Você define a maioria dos campos de dados dando-lhes nomes exclusivos, mas a palavra-chave FILLER permite que você reserve espaço de memória sem a necessidade de um nome.
FILLER
FILLER é uma palavra reservada, o que significa que você não pode usar a palavra para nomear campos ou registros, a não ser para definir elementos de memória individuais. Use FILLER imediatamente após um número de nível e antes de uma cláusula PICTURE que define o tamanho e o tipo de dados de um campo. O COBOL restringe o uso do FILLER à Divisão de Dados; não se aplica às divisões de Identificação, Meio Ambiente ou Procedimento.
Vídeo do dia
Layouts de registro
Um dos usos mais comuns de FILLER é para definições de registro de dados. Se você usar um arquivo de dados com um comprimento de registro de 150 caracteres e não precisar rotular todos os campos nele, poderá definir os caracteres desnecessários como FILLER, como no código a seguir:
01 cadastro de cliente. 05 FILLER PIC X (10). 05 nome do cliente PIC X (30). 05 endereço do cliente PIC X (30). 05 PIC X da cidade do cliente (30). 05 FILLER PIC X (50).
Isso permite que você leia um registro de 150 caracteres e identifique os campos desejados - o nome do cliente, o endereço e a cidade - enquanto ignora o restante do registro.
Extração de SubString
Você pode usar a palavra-chave FILLER para auxiliar na extração de substrings de uma string maior. Por exemplo, para extrair os primeiros cinco dígitos de um CEP, você pode configurar as seguintes instruções na seção Working-Storage:
01 CEP completo. 05 Zip primário PIC X (5). 05 FILLER PIC X (5).
Na Divisão de Procedimento, você move um CEP mais 4 para o CEP inteiro e, em seguida, move o CEP principal para um campo de destino. Ao fazer isso, você elimina tudo após os primeiros cinco dígitos.
FILLER e VALUE
Em um registro, um campo FILLER reserva espaço na memória e aceita qualquer tipo de dado que você mover para ele. Você também pode definir um campo FILLER para ter um valor. Os programadores usam essa técnica com frequência para configurar cabeçalhos de relatório, como no exemplo a seguir:
01 linha de impressão. 05 FILLER PIC X (10) ESPAÇOS DE VALOR. 05 FILLER PIC X (15) VALOR "RELATÓRIO DE FIM DE ANO". 05 FILLER PIC X (20) ESPAÇOS DE VALOR. 05 FILLER PIC X (5) VALUE "PAGE". 05 página-número PIC ZZZ9.
Observe que os títulos e espaçamento do cabeçalho da página do relatório são todos feitos com FILLER, exceto um campo nomeado que exibe um número de página.
