RPG 中で例外エラーをモニターするには？

RPGプログラムがエラーでアベンドしたとき、決まったように｢このエラーは監視されていない｣

というメッセージが出る。

それでは RPG内部ではどのように監視できるのだろう。

ファイル仕様書の継続行で ＊PSSR という名前のサブルーチンを定義しておけば

例外エラーはすべてここへ制御が移される。

その後、再開場所を ENDSR に定義する。

ソースコード

0001.00      H            Y/                                                   
0002.00      F********** RPG  エラーモニター **********************************
0003.00      FFILE    IF  F    9999            DISK
0004.00      F                                              KINFDS INFDS
0005.00      F                                              KINFSR *PSSR
0006.00      F*****************************************************************
0007.00      I*( プログラム状況データ構造 )
0008.00      IINFDSP     SDS
0009.00      I                                        1  10 PGID
0010.00      I                                       81  90 PGLB
0011.00      I                                       43  46 CPFID
0012.00      I                                       91 170 CPFMSG
0013.00      C*( *PSSR からの戻り )
0014.00      C           *IN93     IFEQ *ON                        *PSSR
0015.00      C                     SETOF                     93
0016.00      C                     GOTO CPFERR
0017.00      C                     END                             *PSSR
0018.00      C******************************************************
0019.00      C           *PSSR     BEGSR
0020.00      C******************************************************
0021.00      CSR         CPFID     IFNE *BLANKS
0022.00      CSR                   Z-ADD30        MSGSEV
0023.00      CSR                   SETON                     93
0024.00      CSR                   END
0025.00      CSR                   ENDSR'*DETC '