COBOL 语言 REWRITE语句文件更新

COBOL阿木 发布于 2025-06-14 8 次阅读


阿木博主一句话概括:深入解析COBOL语言中的REWRITE语句:文件更新技术详解

阿木博主为你简单介绍:
COBOL(Common Business-Oriented Language)是一种历史悠久的高级编程语言,广泛应用于商业、金融和行政等领域。在COBOL编程中,文件处理是核心功能之一,而REWRITE语句则是实现文件更新操作的关键。本文将深入探讨COBOL语言中的REWRITE语句,分析其在文件更新中的应用,并提供相关代码示例,以帮助读者更好地理解和掌握这一技术。

一、
COBOL语言以其简洁、易读和易于维护的特点,在商业编程领域占据重要地位。文件更新是COBOL程序中常见的操作,而REWRITE语句是实现这一功能的核心。本文将围绕REWRITE语句展开,详细介绍其在文件更新中的应用。

二、REWRITE语句概述
REWRITE语句是COBOL语言中用于更新现有记录的语句。它允许程序在文件中查找并修改特定记录的内容。REWRITE语句通常与READ语句结合使用,以实现记录的定位和更新。

三、REWRITE语句语法
REWRITE语句的基本语法如下:

```
REWRITE record-name
FROM record-variable
WITH LOCK
INVALID KEY
KEY IS key-1 key-2 ...
NOT INVALID KEY
KEY NOT IS key-1 key-2 ...
KEY IS NULL
NOT INVALID KEY
KEY NOT IS NULL
KEY IS ZEROS
NOT INVALID KEY
KEY NOT IS ZEROS
KEY IS SPACES
NOT INVALID KEY
KEY NOT IS SPACES
KEY IS LOW-VALUES
NOT INVALID KEY
KEY NOT IS LOW-VALUES
KEY IS HIGH-VALUES
NOT INVALID KEY
KEY NOT IS HIGH-VALUES
KEY IS ALL 'A'
NOT INVALID KEY
KEY NOT IS ALL 'A'
KEY IS ALL ' '
NOT INVALID KEY
KEY NOT IS ALL ' '
KEY IS ALL LOW-VALUES
NOT INVALID KEY
KEY NOT IS ALL LOW-VALUES
KEY IS ALL HIGH-VALUES
NOT INVALID KEY
KEY NOT IS ALL HIGH-VALUES
KEY IS ALL ZEROS
NOT INVALID KEY
KEY NOT IS ALL ZEROS
KEY IS ALL SPACES
NOT INVALID KEY
KEY NOT IS ALL SPACES
KEY IS ALL '0'
NOT INVALID KEY
KEY NOT IS ALL '0'
KEY IS ALL '9'
NOT INVALID KEY
KEY NOT IS ALL '9'
KEY IS ALL 'A'
NOT INVALID KEY
KEY NOT IS ALL 'A'
KEY IS ALL 'B'
NOT INVALID KEY
KEY NOT IS ALL 'B'
KEY IS ALL 'C'
NOT INVALID KEY
KEY NOT IS ALL 'C'
KEY IS ALL 'D'
NOT INVALID KEY
KEY NOT IS ALL 'D'
KEY IS ALL 'E'
NOT INVALID KEY
KEY NOT IS ALL 'E'
KEY IS ALL 'F'
NOT INVALID KEY
KEY NOT IS ALL 'F'
KEY IS ALL 'G'
NOT INVALID KEY
KEY NOT IS ALL 'G'
KEY IS ALL 'H'
NOT INVALID KEY
KEY NOT IS ALL 'H'
KEY IS ALL 'I'
NOT INVALID KEY
KEY NOT IS ALL 'I'
KEY IS ALL 'J'
NOT INVALID KEY
KEY NOT IS ALL 'J'
KEY IS ALL 'K'
NOT INVALID KEY
KEY NOT IS ALL 'K'
KEY IS ALL 'L'
NOT INVALID KEY
KEY NOT IS ALL 'L'
KEY IS ALL 'M'
NOT INVALID KEY
KEY NOT IS ALL 'M'
KEY IS ALL 'N'
NOT INVALID KEY
KEY NOT IS ALL 'N'
KEY IS ALL 'O'
NOT INVALID KEY
KEY NOT IS ALL 'O'
KEY IS ALL 'P'
NOT INVALID KEY
KEY NOT IS ALL 'P'
KEY IS ALL 'Q'
NOT INVALID KEY
KEY NOT IS ALL 'Q'
KEY IS ALL 'R'
NOT INVALID KEY
KEY NOT IS ALL 'R'
KEY IS ALL 'S'
NOT INVALID KEY
KEY NOT IS ALL 'S'
KEY IS ALL 'T'
NOT INVALID KEY
KEY NOT IS ALL 'T'
KEY IS ALL 'U'
NOT INVALID KEY
KEY NOT IS ALL 'U'
KEY IS ALL 'V'
NOT INVALID KEY
KEY NOT IS ALL 'V'
KEY IS ALL 'W'
NOT INVALID KEY
KEY NOT IS ALL 'W'
KEY IS ALL 'X'
NOT INVALID KEY
KEY NOT IS ALL 'X'
KEY IS ALL 'Y'
NOT INVALID KEY
KEY NOT IS ALL 'Y'
KEY IS ALL 'Z'
NOT INVALID KEY
KEY NOT IS ALL 'Z'
KEY IS ALL '1'
NOT INVALID KEY
KEY NOT IS ALL '1'
KEY IS ALL '2'
NOT INVALID KEY
KEY NOT IS ALL '2'
KEY IS ALL '3'
NOT INVALID KEY
KEY NOT IS ALL '3'
KEY IS ALL '4'
NOT INVALID KEY
KEY NOT IS ALL '4'
KEY IS ALL '5'
NOT INVALID KEY
KEY NOT IS ALL '5'
KEY IS ALL '6'
NOT INVALID KEY
KEY NOT IS ALL '6'
KEY IS ALL '7'
NOT INVALID KEY
KEY NOT IS ALL '7'
KEY IS ALL '8'
NOT INVALID KEY
KEY NOT IS ALL '8'
KEY IS ALL '9'
NOT INVALID KEY
KEY NOT IS ALL '9'
KEY IS ALL '-'
NOT INVALID KEY
KEY NOT IS ALL '-'
KEY IS ALL '.'
NOT INVALID KEY
KEY NOT IS ALL '.'
KEY IS ALL '/'
NOT INVALID KEY
KEY NOT IS ALL '/'
KEY IS ALL '+'
NOT INVALID KEY
KEY NOT IS ALL '+'
KEY IS ALL '='
NOT INVALID KEY
KEY NOT IS ALL '='
KEY IS ALL '<'
NOT INVALID KEY
KEY NOT IS ALL ''
NOT INVALID KEY
KEY NOT IS ALL '>'
KEY IS ALL '&'
NOT INVALID KEY
KEY NOT IS ALL '&'
KEY IS ALL '%'
NOT INVALID KEY
KEY NOT IS ALL '%'
KEY IS ALL '@'
NOT INVALID KEY
KEY NOT IS ALL '@'
KEY IS ALL ''
NOT INVALID KEY
KEY NOT IS ALL ''
KEY IS ALL '$'
NOT INVALID KEY
KEY NOT IS ALL '$'
KEY IS ALL ''
NOT INVALID KEY
KEY NOT IS ALL ''
KEY IS ALL '|'
NOT INVALID KEY
KEY NOT IS ALL '|'
KEY IS ALL '~'
NOT INVALID KEY
KEY NOT IS ALL '~'
KEY IS ALL '_'
NOT INVALID KEY
KEY NOT IS ALL '_'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '('
NOT INVALID KEY
KEY NOT IS ALL '('
KEY IS ALL ')'
NOT INVALID KEY
KEY NOT IS ALL ')'
KEY IS ALL ','
NOT INVALID KEY
KEY NOT IS ALL ','
KEY IS ALL ';'
NOT INVALID KEY
KEY NOT IS ALL ';'
KEY IS ALL ':'
NOT INVALID KEY
KEY NOT IS ALL ':'
KEY IS ALL '"'
NOT INVALID KEY
KEY NOT IS ALL '"'
KEY IS ALL "'"
NOT INVALID KEY
KEY NOT IS ALL "'"
KEY IS ALL '`'
NOT INVALID KEY
KEY NOT IS ALL '`'
KEY IS ALL '^'
NOT INVALID KEY
KEY NOT IS ALL '^'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT IS ALL ']'
KEY IS ALL '{'
NOT INVALID KEY
KEY NOT IS ALL '{'
KEY IS ALL '}'
NOT INVALID KEY
KEY NOT IS ALL '}'
KEY IS ALL '['
NOT INVALID KEY
KEY NOT IS ALL '['
KEY IS ALL ']'
NOT INVALID KEY
KEY NOT