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

Linguagem de programação COBOL - REWRITE


Volta a página anterior

Volta ao Menu Principal


Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF.

O comando REWRITE é usado para atualizar registro alterados de um arquivo.
Se a cláusula FROM for incluída, o identifier-1 ou literal-1 será copiado para o record-name-1 antes do registro ser atualizado.
Se o registro estava locado durante o READ, o REWRITE irá desalocar (unlock) do mesmo automaticamente.

Há dois formatos diferentes que são usados para dois tipos diferentes de regravação e são descritos abaixo:

1. O primeiro formato serve para atualização em arquivos sequenciais. O último registro lido será atualizado pelo conteúdo do record-name-1.

2. O segundo formato serve para atualização em arquivos randômicos. O último registro lido será atualizado pelo conteúdo do record-name-1.
Se a chave do registro for alterada o mesmo não será alterado e os códigos entre INVALID KEY e NOT INVALID KEY serão executados.
Se a alteração for feita com sucesso os códigos entre NOT INVALID KEY e END-REWRITE serão executados.

Formatos:

Primeiro formato

REWRITE record-name-1 [ FROM { identifier-1
literal-1		 }]

Segundo formato

REWRITE record-name-1 [ FROM { identifier-1
literal-1		 }]
[INVALID KEY imperative-statement-1]
[NOT INVALID KEY imperative-statement-2]
[END-REWRITE]