アプリケーションのエラー処理 - 例

使用しているプログラムが社員の詳細を検索する必要があり、この情報が見つからない場合は、なんらかの形でデータベースが壊れており、致命的エラーとなります。このような状況では、アプリケーションのエラー・ハンドラーを以下のように使います。

Fetch Fields(#SURNAME) From_File(PSLMST) With_Key(#EMPNO)
If_Status Is_Not(*OKAY)
   Invoke #AvFrameworkManager.avHandleError Curr_Comp(*component)
       Curr_Rout(ButtonHandler) Curr_Cmd(FETCH)
       Curr_Info('Employee details could not be accessed.')
       Curr_Retc(#io$Sts)
Endif

標準のエラー・ハンドラーの場合、以下を実行します(フレームワークの構成に依存します)。