Menu

COBOL - Value Clause

  1. A cláusula VALUE é usada para definir um valor inicial para a variável de armazenamento de trabalho.

  2. Isso pode ser especificado apenas na variável de armazenamento de trabalho.

  3. A cláusula VALUE não pode fazer parte da entrada RECORD DESCRIPTION na FILE SECTION.

Exemplos:

 01 W04-X-PGM-NAME PIC X(08) VALUE 'PXXBB290'.

No exemplo acima, a variável W04-X-PGM-NAME é definida com um valor inicial de PXXBB290.

Os itens alfanuméricos e alfabéticos podem ser inicializados em Espaços e os itens numéricos podem ser inicializados em Zeros.

Exemplo 1: Alphanumeric

01 W04-NAME PIC X(08) VALUE SPACES.

Exemplo 2: Alphabetic

01 W04-LAST-NAME PIC A(08) VALUE SPACES.

Exemplo 3: Numeric

01 W04-MOBILE PIC 9(08) VALUE ZEORES.