17.18.2 エラー処理を組み込れたコマンド・プロシージャの例 |
 |
たとえば，エラーが起きた時にメッセージを表示して終了するには，次のようなコマンド・プロシージャを書きます。
$ ON ERROR THEN GOTO ERRPROC
:
$ ERRPROC:
$ WRITE SYS$OUTPUT "エラーが発生しました。中断します。"
$ EXIT
|
上記の例では，エラーが起きた時にラベル ERRPROC へジャンプします。
コマンド・プロシージャの実行中にキーボードから [Ctrl] + [Y] (コントロール Y) を入力すると実行を中断してコマンド待ちの状態に戻りますが，
[Ctrl] + [Y] が入力されたときの処理を ON コマンドであらかじめ規定しておくことができます。
次の例では，コマンド・プロシージャの実行中に
[Ctrl] + [Y] が入力された場合，ファイルが開いていれば，それを閉じてから終了します。
$ ON CONTROL_Y ERROR THEN GOTO INTERRUPT
$ OPEN/READ DATAFILE FOO.DAT
:
$ INTERRUPT:
$ IF F$TRNLNM("DATAFILE",,,,,"MAX_INDEX") .NES. "" THEN CLOSE DATAFILE
$ WRITE SYS$OUTPUT "強制中断されました。"
$ EXIT
|
また，この ON コマンドによる [Ctrl] + [Y] の制御は， [Ctrl] +
[C] が入力された場合でも同じように働きます。
