14.14.2 新しい出力ファイルの作成 |
 |
ファイルに大きな変更を加えるには，そのファイルを読み込みアクセス用にオープンし，新しいファイルを書き込みアクセス用にオープンします。新しい出力ファイルを作成するので，レコードのサイズを変更したり，レコードを追加したり削除したりできます。
OPEN/WRITE コマンドは，書き込みアクセス用の新しいファイルをオープンします。新しいファイルは元のファイルと同じ名前にすることができ，バージョン番号は，古いファイルのバージョン番号より 1 だけ大きくなります。
 | 注意
読み込み用に正しいファイルがオープンされるように，既存のファイルを読み込みアクセス用にオープンしてから，新しいバージョンを書き込みアクセス用にオープンするようにしなければなりません。
|
ファイルに変更を加えるには，次の手順に従ってください。
| 1
|
該当ファイルを読み込みアクセス用にオープンする。
これは入力ファイルであり，このファイルを変更する。
|
| 2
|
書き込みアクセス用に新しいファイルをオープンする。
これは出力ファイルであり，このファイルを作成する。出力ファイルに入力ファイルと同じ名前を指定すると，出力ファイルは，入力ファイルより1 だけ大きいバージョン番号を持つ。
|
| 3
|
READ コマンドを使用して，変更中のファイルからレコードを 1 つずつ読み込む。
元のファイルからそれぞれのレコードを読み込むときに，レコードをどのように処理するかを決定する。
|
| 4
|
すべてのレコードが終了するまで，レコードの読み込みと処理を続ける。
|
| 5
|
CLOSE コマンドを使用して，入力ファイルと出力ファイルの両方をクローズする。
|
次の表では，RECORD シンボルに元のファイルから読み込んだレコードが収められます。
| 変更なし
|
新しいファイルに同じシンボルを書き込む。
|
| 変更あり
|
INQUIRE コマンドを使用して別のレコードをシンボルに読み込んでから，変更済みのシンボルを新しいファイルに書き込む。
|
| 削除された
|
シンボルを新しいファイルに書き込まない。
|
| 挿入された
|
ループを使用して，シンボルにレコードを読み込んだり，シンボルを新しいファイルに書き込んだりする。
|
例：レコードの変更
- 次の例では，NEW_FILE シンボルが新しいファイルに書き込まれています。
$ ! No change
$ WRITE NEW_FILE RECORD
|
- 次の例では，INQUIRE コマンドが変更されたシンボルを新しいファイルに書き込むために使用されています。
$ ! Change
$ INQUIRE NEW_RECORD "New record"
$ WRITE NEW_FILE NEW_RECORD
|
- 次の例では，ループが新しいファイルにシンボルを書き込むために使用されています。
$ ! Insertion
$LOOP:
$ !Get new records to insert
$ INQUIRE NEW_RECORD "New record"
$ IF RECORD .EQS. "" THEN GOTO END_LOOP
$ WRITE NEW_FILE NEW_RECORD
$ GOTO LOOP
$END_LOOP:
|
例：出力ファイルの作成
次の例は，入力ファイルからレコードを読み込み，レコードを処理してから出力ファイルにコピーするコマンド・プロシージャを示しています。
$! Open STATS.DAT for reading and assign it
$! the logical name INFILE
$! Open a new version of STATS.DAT for writing
$! and assign it the logical name OUTFILE
$!
$ OPEN/READ INFILE DISK4:[MURPHY]STATS.DAT
$ OPEN/WRITE OUTFILE DISK4:[MURPHY]STATS.DAT
$!
$ BEGIN_LOOP:
$! Read the next record from INFILE into the symbol RECORD
$!
$ READ/END_OF_FILE=END_LOOP INFILE RECORD
$! Display the record and see if the user wants to change it
$! If yes, get the new record
$! If no, write record directly to OUTFILE
$!
$ PROMPT:
$ WRITE SYS$OUTPUT RECORD
$ INQUIRE/NOPUNCTUATION OK "Change? Y or N [Y] "
$ IF OK .EQS. "N" THEN GOTO WRITE_RECORD
$ INQUIRE RECORD "New record"
$!
$ WRITE_RECORD:
$ WRITE OUTFILE RECORD
$ GOTO BEGIN_LOOP
$!
$! Close input and output files
$ END_LOOP:
$ CLOSE INFILE
$ CLOSE OUTFILE
$ EXIT
|
