Na linguagem de programação COBOL , você define todas as variáveis e campos de dados em uma seção de seu programa chamado a Divisão de Dados. Aqui , você configura registros de arquivos em disco , layouts de impressão , contadores e armazenamento de trabalho para os cálculos. Você define a maioria dos campos de dados , dando-lhes nomes únicos , mas a palavra-chave FILLER permite reservar espaço de memória sem a necessidade de um nome. FILLER
FILLER é uma palavra reservada , ou seja, você não pode usar a palavra para os campos ou outros do que para definir os elementos de memória individuais registros de nomes. Você usa FILLER imediatamente após um número de nível anterior e uma cláusula de imagem que define o tamanho de um campo e tipo de dados. COBOL restringe o uso de FILLER à Divisão de dados , que não se aplica às divisões Identificação, Ambiente ou procedimento
Grave Layouts
Um dos usos mais comuns . para enchimento é para definições de registro de dados. Se você usar um arquivo de dados com um comprimento de registro de 150 caracteres e você não precisa se rotular todos os campos nele, você pode definir os caracteres desnecessários como enchimento , como no código a seguir :
01 cliente - record.05 FILLER PIC X (10) ,05 - nome do cliente PIC X (30) ,05 - cliente endereço PIC X (30) , 05 clientes da cidade PIC X (30) , 05 FILLER PIC X (50). < br >
Isto permite-lhe ler um registro de 150 caracteres e identificar os campos que deseja - o nome do cliente , endereço e cidade - . , ignorando o resto do registro
subString extração
Você pode usar a palavra-chave FILLER para auxiliar na extração de substrings de uma string maior. Por exemplo, para extrair os cinco primeiros dígitos de um CEP, você pode configurar as seguintes declarações na seção Working -Storage :
01 todo -zip - code.05 primário -zip PIC X (5) 0,05 FILLER PIC X (5).
na Divisão Processo, você move um CEP -plus -4 para -zip -code todo, em seguida, passar primário -zip para um campo de destino . Ao fazer isso, você largar tudo depois dos primeiros cinco dígitos .
FILLER e VALOR
um registro, um campo de preenchimento de espaço de memória reservas e aceita qualquer tipo de dados você se move para ele. Você também pode definir um campo FILLER para ter um valor . Os programadores usam esta técnica com freqüência para a criação de títulos de relatório , como no exemplo a seguir :
01 print- line.05 FILLER PIC X (10 ) VALOR SPACES.05 FILLER PIC X (15 ) VALOR " FIM DE ANO rELATÓRIO " .05 FILLER PIC X (20 ) VALOR SPACES.05 FILLER PIC X (5) VALUE" pAGE " .05 página - número PIC ZZZ9 .
Note-se que os títulos de cabeçalho da página relatório e espaçamento é feito com enchimento, com exceção de um campo com o nome que exibe um número de página .