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
Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF.
REWRITE
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.
Formato:
