COBOL言語の「REWRITE文」の使い方について理解しよう！｜用語辞典

COBOL（コボル）言語の予約語REWRITEを使ったファイルの更新とは

辞典・辞書-REWRITE-イメージ

COBOL（コボル）言語のREWRITE文とは？

COBOL(コボル)を使ったファイル操作は、実際の開発現場でもよく使われています。今回ご紹介するREWRITE文は、そのファイル操作の１つで、ファイルのレコードを更新したい場合に使用します。あるファイルを読み込んで別のファイルに書き出す際に使用するWRITE文と比べ、REWRITE文は、同じファイルのレコードを更新する際に使用するのが特徴です。では早速REWRITE文の使い方について見ていきましょう。

書き方：

REWRITE　レコード名-1 〔FROM 一意名-1〕

〔END-REWRITE〕

レコード名-1：更新するレコード記述項を記載します
一意名-1：レコード名-1の更新内容を記載します

使用例：

辞典・辞書-REWRITE-使用例

使用例は、入力ファイルから１レコード読み込み、指定した値に更新するプログラムです。この使用例のように、ファイルのレコード項目を初期化して次の処理につなげたい場合などに、REWRITE文は大変便利です。

入力ファイル（sample.txt）：

実行結果：

辞典・辞書-REWRITE-実行結果

出力ファイル（sample.txt）：

REWRITE文のCOBOL（コボル）言語における基本事項やルールについて

「REWRITE」「END-REWRITE」の間の空白や改行は、自由に設定できます。
「レコード名-1」は、データ部のファイル節で指定したレコードを指定する必要があります。
「FROM 一意名-1」は、省略する事ができます。
また、省略した際の「レコード名-1」の更新は MOVE文で代用する事ができます。
REWRITE文の実行前には、対象レコードのREAD文が正常に実行されている必要があります。

COBOL(コボル)言語のREWRITE文を扱う上での注意点

ファイルを読み込む際は、入出力両用モード（I-O指定）で開く必要があります。

従って、ファイルのオープンモードが、読み込み用の入力モード（INPUT）、書き込み用の出力モード（OUTPUT）、追加書き込み用の拡張モード（EXTEND）の場合には、REWRITE文を使用する事はできません。

REWRITE文を使ったCOBOL(コボル)プログラムの活用法

REWRITE文は、ファイルのレコードを初期化する際や、毎回利用するマスタファイルのレコードを更新する際に便利に使用できます。ここでは活用法として、ファイルのレコード全てに対して、日付を処理日付に更新し、レコード数分連番を付与してファイル出力する簡単なプログラムをご紹介します。

サンプルプログラム（REWRITE_SAMPLE02）：

IDENTIFICATION        DIVISION.
PROGRAM-ID.          REWRITE_SAMPLE02.
ENVIRONMENT           DIVISION.
INPUT-OUTPUT          SECTION.
 
*> -- 更新ファイルを指定 --
FILE-CONTROL.
SELECT SAMPLE-FILE ASSIGN TO 'sample.txt'
FILE STATUS  IS IN-FILE-STATUS.
DATA           DIVISION.
FILE           SECTION.
  FD SAMPLE-FILE.
  01 IN-FILE-REC.
   03 IN-DATE     PIC X(8).
   03 IN-RENBAN    PIC 9(2).
   03 IN-SPACE    PIC 9(1).
 
WORKING-STORAGE       SECTION.
  01 IN-FILE-STATUS PIC XX.
  01 WK-IN-RENBAN   PIC 9(2).
 
PROCEDURE DIVISION. 
  DISPLAY "REWRITE START".
  MOVE ZERO TO WK-IN-RENBAN.
 
  OPEN I-O SAMPLE-FILE.
  PERFORM READ-RTN.
 
  *>1レコードずつ読み込む
  PERFORM UNTIL IN-FILE-STATUS NOT = "00"
 
    MOVE FUNCTION CURRENT-DATE(1:8) TO IN-DATE
    ADD  1            TO WK-IN-RENBAN
    MOVE WK-IN-RENBAN        TO IN-RENBAN
    REWRITE IN-FILE-REC
    END-REWRITE
 
    PERFORM READ-RTN
  END-PERFORM.
  CLOSE SAMPLE-FILE.
STOP RUN.
 
*> -- 更新ファイル読込処理 --
READ-RTN       SECTION.
  READ SAMPLE-FILE
    AT END
      DISPLAY "REWRITE END"
    NOT AT END
      CONTINUE
    END-READ.
READ-EXIT.

入力ファイル（sample.txt）：

実行結果：

出力ファイル（sample.txt）（※）：

辞典・辞書-REWRITE-イメージ

（※）日付は実際の処理日（年月日）が設定されます。

今回ご紹介したREWRITEのサンプルプログラムは、ファイルのレコード項目を初期化したり、全てのレコードを加工編集した後、ファイル出力する方法をご紹介しました。ファイル操作は業務プログラムでもよく利用されます。しっかり使い方やその他のファイル操作との違いを理解し、さまざまな業務要件で活用できるようにしておきましょう。

この記事を読んだ人は、こちらの記事も読んでいます

【未経験者歓迎】COBOLプログラマー・システムエンジニアの募集

株式会社COBOLの求人・転職・募集情報を見る

COBOL入門のカテゴリー

｜　基礎　｜　応用　｜　勉強　｜　試験　｜　辞書　｜