COBCH1431 例外宣言は PERFORM-TYPE(MF) でのみ指定できる

プログラムは、デフォルトの MF 以外のパラメーターで PERFORM-TYPE 指令を使用してコンパイルされており、例外宣言が含まれています。この方法は推奨されません。

解決方法:

コードを編集して、例外宣言の代わりに TRY/CATCH 構造を使用してから再コンパイルします。

例:

次の例では、$set 文を削除して、デフォルトの perform-type(mf) 指令を呼び出します。

      $set perform-type(osvs)
       repository.
           class exception-class as "System.Exception".
       procedure division.
       declaratives.
       s1 section.
       use after exception exception-class.
           display "Hit exception"
       end declaratives.
       s2 section.