エラー処理

アプリケーションのロジックは、戻り値がある呼び出しのエラー条件を調べ、エラー発生時に適切な処理を行うように設計します。

次のコード例は、エラーの一般的な処理方法を示しています。この例では、ATMICALL(3) は、一般的な ATMI 呼び出しを表しています。

エラー処理

. . .
CALL "TPINITIALIZE" USING TPINFDEF-REC
                    USR-DATA-REC
                    TPSTATUS-REC.
IF NOT TPOK
   error message, EXIT PROGRAM
CALL "TPBEGIN" USING TPTRXDEF-REC
               TPSTATUS-REC.
IF NOT TPOK
   error message, EXIT PROGRAM

   Make atmi calls
   Check return values

IF  TPEINVAL
      DISPLAY "Invalid arguments were given."
IF  TPEPROTO
      DISPLAY "A call was made in an improper context."
. . .
   ATMICALL(3) リファレンス・ページに説明されている
   すべての場合のエラーを含めます。ほかの戻りコードは使用できません。
   そのため、それらをテストする必要はありません。
. . .
   (続く)

TP-STATUS の値は、各問題の詳細を示し、どのレベルで問題の解決が可能かを示しています。アプリケーションで、ある処理に特定のエラー条件が定義されている場合、APPL-RETURN-CODE IN TPSTATUS-REC の値にも同じことが言えます。