OpenVMS マニュアル

14.7.4 エラー・メッセージの出力先の切り換え

これ以降の節では，エラー・メッセージの出力先を切り換える方法を説明します。

省略時の設定では，コマンド・プロシージャは， SYS$ERROR に示されるファイルにシステム・エラー・メッセージを送信します。 SYS$ERROR を再定義すれば，エラー・メッセージを指定するファイルに書き出すこともできます。ただし，SYS$ERROR を SYS$OUTPUT と異なるように再定義すると (SYS$ERROR を再定義せずに SYS$OUTPUT を再定義すると)，標準 VMS システム・エラー表示方式を使用する DCL コマンドやイメージは，システム・エラー・メッセージとシステム重大エラー・メッセージを SYS$ERROR と SYS$OUTPUT の両方に送信します。したがって，ユーザはこれらのメッセージを， SYS$ERROR の定義に示されるファイルで 1 回と， SYS$OUTPUT に示されるファイルで 1 回の合計 2 回受信することになります。成功メッセージ，通知メッセージ，警告メッセージは， SYS$OUTPUT に示されるファイルにだけ送信されます。

DCL コマンドからエラー・メッセージが出されないようにしたい場合は， SYS$ERROR も SYS$OUTPUT もターミナルに定義しないようにします。

コマンド・プロシージャから自分のイメージを実行するときに，そのイメージで SYS$ERROR を参照する場合には，イメージはシステム・エラー・メッセージを， SYS$ERROR によって示されるファイルにだけ送信します。 SYS$ERROR が SYS$OUTPUT と異なる場合でも，この規則が適用されます。 SYS$ERROR と SYS$OUTPUT が異なる場合には，標準的なシステム・エラー表示メカニズムを使用する DCL コマンドとイメージだけが，この 2 つのファイルにメッセージを送信します。

このコマンド・プロシージャはパラメータとしてディレクトリ名を受け付け，省略時の値をそのディレクトリに設定し，ディレクトリ内のファイルをパージします。システム・エラー・メッセージが出力されないようにするために，プロシージャは， SYS$ERROR と SYS$OUTPUT をヌル・デバイスとして一時的に定義します。

$ ! Purge files in a directory and suppress messages 
$ ! 
$ SET DEFAULT 'P1' 
$ ! Suppress messages 
$ ! 
$ DEFINE/USER_MODE SYS$ERROR NL: 
$ DEFINE/USER_MODE SYS$OUTPUT NL: 
$ PURGE 
$ EXIT 

システム・メッセージが出力されないようにするために， SET MESSAGE コマンドを使用することもできます。 /NOFACILITY，/NOIDENTIFICATION，/NOSEVERITY，/NOTEXT のいずれかの修飾子を使用すれば，機能名，メッセージ識別，重大度レベル，メッセージ・テキストを出力しないように設定できます。

次の例では，2 番目の SET MESSAGE コマンドが実行されるまで，機能，識別，重大度，テキスト・メッセージの出力が一時的に禁止されます。

$ ! Purge files in a directory and suppress system messages 
$ ! 
$ SET DEFAULT 'P1' 
$ ! Suppress system messages 
$ ! 
$ SET MESSAGE/NOFACILITY - 
             /NOIDENTIFICATION - 
             /NOSEVERITY - 
             /NOTEXT 
$ PURGE 
$ SET MESSAGE/FACILITY - 
             /IDENTIFICATION - 
             /SEVERITY 
             /TEXT 
$ EXIT 

14.8 ファイルの読み込みと書き込み (ファイル入出力)

コマンド・プロシージャからファイルを読み込んだり，コマンド・プロシージャにファイルを書き込んだりするには，次のようにします。

注意 ユーザがログインすると，システムが SYS$INPUT，SYS$OUTPUT，SYS$COMMAND， SYS$ERROR の各ファイルを自動的にオープンするため，これらのファイルを読み書きのために明示的にオープンする必要はありません。

この後の節では，次のことについて説明します。

• OPEN コマンドの使用

• ファイルへの書き込み

• WRITE コマンドの使用

• READ コマンドの使用

• CLOSE コマンドの使用

• ファイルの変更

  • レコードの更新

  • 新しい出力ファイルの作成

  • ファイルへのレコードの追加

14.9 OPEN コマンドの使用

OPEN コマンドは，順編成ファイル，相対編成ファイル，索引順編成ファイルをオープンします。ファイルはプロセス永久ファイルとしてオープンされ， CLOSE コマンドでファイルを明示的にクローズしない限り，プロセスが存在する間はオープンされたままになります。ファイルがオープンされているときは，プロセス永久ファイルの使用に関する OpenVMS RMS の制限事項に従います。

OPEN コマンドは，ファイルをオープンすると，論理名 (最初のパラメータとして指定される)をファイル (2 番目のパラメータとして指定される) に割り当て，その名前をプロセス論理名テーブルに収めます。これ以降の READ，WRITE，CLOSE コマンドはこの論理名を使用してファイルを参照します。

次の例では，OPEN コマンドは，論理名 INFILE を DISK4:[MURPHY]STATS.DAT ファイルに割り当てます。

$ OPEN/READ INFILE DISK4:[MURPHY]STATS.DAT 

注意 OPEN コマンドの中の論理名は固有の名前でなければなりません。入力したコマンドは正しいのに，OPEN コマンドが動作しない場合には， OPEN コマンドの中の論理名を変更します。論理名定義のリストを表示するには，SHOW LOGICAL コマンドを使用します。

コマンド・プロシージャが正しいファイルにアクセスできるようにするには，完全なファイル指定 (たとえば，DISK4:[MURPHY]STATS.DAT) を使用するか，ファイルをオープンする前に SET DEFAULT コマンドを使用して正しいデバイスとディレクトリを指定します。

共用可能ファイルも指定できます。 /SHARE 修飾子を使用すると，他の開かれているファイルをアクセス可能に設定できます。さらに，ユーザは DCL コマンド TYPE と SEARCH を使用して，共用可能ファイルにアクセスできます。

OPEN/READ コマンドはファイルを開き，論理名をファイルに割り当て，レコード・ポインタをファイルの先頭に設定します。読み込みの対象としてファイルを開く場合には，レコードを読み込むことはできますが，書き込むことはできません。レコードを読み込むたびに，ポインタは次のレコードに移動します。

このコマンド・プロシージャの OPEN/READ コマンドは，ファイル STATS.DAT を開き，論理名 INFILE をファイルに割り当てます。

$   OPEN/READ INFILE DISK4:[MURPHY]STATS.DAT 
$ READ_FILE: 
$   READ/END_OF_FILE=DONE INFILE DATA 
$   GOTO READ_FILE 
$ DONE: 
$   CLOSE INFILE 
$   EXIT 

新しいファイルに書き込む場合には，OPEN/WRITE コマンドを使用します。 OPEN/WRITE コマンドは印刷ファイル形式で順編成ファイルを作成します。ファイルのレコード形式は固定長制御部付き可変長 (VFC) であり， 2 バイトのレコード・ヘッダが付いています。 /WRITE 修飾子を /APPEND 修飾子と組み合わせて使用することはできません。

既存のファイルを指定した場合には，OPEN/WRITE コマンドは，既存のファイルより 1 つだけ大きいバージョン番号の新しいファイルを開きます。

次の例のコマンド・プロシージャは，書き込みのために使用できる新しいファイル (NAMES.DAT) を作成します。

$   OPEN/WRITE OUTFILE DISK4:[MURPHY]NAMES.DAT 
$ UPDATE: 
$   INQUIRE NEW_RECORD "Enter name" 
$   WRITE OUTFILE NEW_RECORD 
$   IF NEW_RECORD .EQS. "" THEN GOTO EXIT_CODE 
$   GOTO UPDATE 
$ EXIT_CODE: 
$   CLOSE OUTFILE 
$   EXIT 

OPEN/APPEND コマンドは，既存のファイルの最後にレコードを追加します。存在しないファイルを開こうとした場合には，エラーが発生し，ファイルは開かれません。 /APPEND 修飾子を /WRITE 修飾子と組み合わせて使用することはできません。

次の例では，レコードが既存のファイル，NAMES.DAT の最後に追加されます。

$ OPEN/APPEND OUTFILE DISK4:[MURPHY]NAMES.DAT 
$ INQUIRE NEW_RECORD "Enter name" 
$ WRITE OUTFILE NEW_RECORD 
   .
   .
   .
$ CLOSE OUTFILE 

OPEN/READ/WRITE コマンドは，レコード・ポインタをファイルの先頭に設定し，最初のレコードを読み込むことができるようにします。この方法を使用してファイルを開く場合には，最後に読み込んだレコードだけを置換できます。新しいレコードをファイルの最後に書き込むことはできません。さらに，変更されたレコードは，置換されるレコードと正確に同じサイズでなければなりません。

次の例では，レコード・ポインタがファイル STATS.DAT の先頭に設定され，最初のレコードを読み込むことができるようにします。

$ OPEN/READ/WRITE FILE DISK4:[MURPHY]STATS.DAT