COBOL - Comando INITIALIZE - www.cadcobol.com

Menu principal [Fechar]

Introdução

Divisões

Identification Division

Environment Division

Data Division

Procedure Division

Comandos CICS

VSAM - File Status

Quadros importantes

SQL - Structured Query Language

Outros programas

Rotinas prontas

Palavras reservadas

Introdução ao Oracle

Sites de busca

Sites interessantes

Meu e-mail

INITIALIZE

Esta declaração permite inicializar uma série de item elementares contidos em um item de grupo. Itens numéricos serão inicializados com o valor zero e itens não-numéricos serão incializados com espaços em branco.

Sintaxe do comando GO TO

Primeiro exemplo:


       01  WSS-REGISTRO.
           05  CAMPOS-01       PIC X(020).
           05  CAMPOS-02       PIC 9(009)V(002).
           05  CAMPOS-03       PIC X(001).
           05  CAMPOS-04       PIC 9(010).
           05  CAMPOS-05       PIC X(020).
           05  CAMPOS-06       PIC 9(005)V(005).
           05  CAMPOS-07       PIC X(020).

           INITIALIZE WSS-REGISTRO	ou

           INITIALIZE WSS-REGISTRO
                      REPLACING ALPHANUMERIC BY SPACES
                                     NUMERIC BY ZEROES

Segundo exemplo - leia com atenção:


       01  WSS-REGISTRO.
           05  CAMPOS-01       PIC A(020).
           05  CAMPOS-02       PIC 9(009)V(002).
           05  CAMPOS-03       PIC X(001).
           05  FILLER          PIC X(005).
           05  FILLER          PIC X(009) VALUE 'DORNELLES'.

           INITIALIZE WSS-REGISTRO	ou

           INITIALIZE WSS-REGISTRO
                      REPLACING ALPHANUMERIC BY SPACES
                                     NUMERIC BY ZEROES 
 
 Os campos definido como FILLER não sofrem nenhuma ação do comando INITIALIZE ou seja:

 05  FILLER          PIC X(005).                   poderá conter caracteres inválidos  
 05  FILLER          PIC X(009) VALUE 'DORNELLES'. permanecerá com o conteúdo DORNELLES

INITIALIZE:

A instrução acima estabelecerá valor zero para os campos CAMPOS-02, CAMPOS-04 e CAMPOS-06 e preencherá os demais com espaços.

Observações:

identifier-1 é o campo a ser inicializado. Pode ser um item de grupo ou um item elementar.

identifier-2 é o conteúdo, na forma de constante, que irá inicializar o identifier-1. É o emissor.

literal-1 é um campo, cujo conteúdo irá inicializar o identifier-1. É o emissor.

O conteúdo que irá inicializar o identifier-1 deve ser compatível com a categoria deste.

Não pode haver repetição de categorias na opçãp REPLACING.

As categorias de dados da opçãp REPLACING são as categorias válidas para o COBOL.

O identifier-1 ou itens a ele subordinados não podem conter a opção DEPENDING ON da clásula OCCURS.

Campos do tipo índice (USAGE IS INDEX) não podem ser usados.

Índices declarados na opção INDEXED BY da cláusula OCCURS não podem ser usados.

Se a opçãp REPLACING não for usada, os campos de categoria:

Numérica, terão todos os seus bytes inicializados com zeros;
Alfabética, terão todos os seus bytes inicializados com bracos (espaços);
Alfanumérica, terão todos os seus bytes inicializados com bracos (espaços);