ILE-RPGで２回目の実行がおかしくなったら?

最近次のような障害を聞くことがある。

①１回目のILE-RPGプログラム実行では正しいのだが
続けて２回目を実行すると障害が発生したり
２回目の実行がうまく行かないことが多い。

②１回目のILE-RPGプログラム実行の速度と
２回目の実行の速度がかなりちがう。

というような障害が発生しているらしい。
このほとんどの原因はILE-RPGのコンパイルの方法が
間違っていることに原因がある。

CRTBNDRPG OBJLIB/MYPGM SRCFILE(MYSRCLIB/QRPGLESRC)

…このコンパイルでは省略時の活動化グループが
IBM が定める QILE という明示的な名前の活動化グループとして
コンパイルされてしまう。
結果的にどうなるかというとこのプログラムでいくら

SETON LR して終了してもプログラムはCPUノメモリーに
残ったままであり次回に呼び出されると *INZSR ルーチンは
実行されることがなく動作を始めてしまう。

従って２回目の実行では *INZSR で記述されているロジックは
実行されないので期待とは異なる動きになってしまう。

米国ではこのことはIBMユーザーに雑誌などで
よく知られているが日本のユーザーでは
まだまだ知っている人は少ないようだ。

CRTBNDRPG PGM(OBJLIB/MYPGM) SRCFILE(MYSRCLIB/QRPGLESRC) DFTACTGRP(*NO)
ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)

活動化グループの指定は必ず

を明示的に指定すること。
ソース・デバッグを可能にするためには

にする必要がある。
権限に制限されないように

も必要である。
これが正しいILE-RPGのコンパイル手法である。