WHEN EXCEPTION USE と HANDLER

 同一の例外処理手順が必要な箇所がいくつかあるとき,例外処理区を内部手続きとしてまとめて記述することができる。
 内部手続きとして書いた例外処理区をhandler区という。handler区は,HANDLER文で始まり,END HANDLER文で終わる。HANDLER文には,handlerの名前を指定する。handlerの名前は,数値変数名と同様の規則で命名する。
 例外処理手順としてhandler区を利用する場合は,WHEN EXCEPTION IN 〜 USE 〜 END WHEN に代えて WHEN EXCEPTION USE 〜 END WHEN を用いる。WHEN EXCEPTION USE行に利用するhandler区の名前を書く。

100 WHEN EXCEPTION USE h
110    PRINT 1/A
120 END WHEN
130 WHEN EXCEPTION USE h
140    PRINT SQR(-1)
150 END WHEN
160 HANDLER h
170    PRINT EXTYPE
180 END HANDLER
190 END