ILE-RPG ではサービス・プログラム(*SRVPGM) で公開プロシージャーを作成して親プログラム
から CALLP や CALLB で呼び出して使用することができる。

これに対して RPG III では CALL 命令しか使えないので、原理的にはサービス・プログラム
(*SRVPGM) は使用できないはずであるが、知られていない裏技を使えばこれらが可能になる
ことを発見したので、ここで紹介しよう。
もちろんこの手法は IBMマニュアルなどでは紹介されていない方法である。

あるサービス・プログラム : MYSRVPGM には、2つのプロシージャー : MY001 と MY002 を
持っているものとする。
親プログラム : OYA001 が、ILE-RPG であれば OYA001 はソース内で

のようにして MYSRVPGM の MY001, MY002 を呼び出すことができる。
ILE-RPG : OYA002 のコンパイルは

 CRTRPGMOD QTEMP/OYA001 SRCFILE(MYSRCLIB/QRPGLESRC) AUT(*ALL)
 CRTPGM MYLIB/OYA001 MODULE(QTEMP/OYA001) SRVPGM(MYLIB/MYSRVPGM) AUT(*ALL)

のようにしてコンパイルが行われるはずである。

それでは RPG III から、これらのプロシージャーをどのようにして利用すればよいのであろうか？
答えから言うと、同じ活動化グループの名前を持つ ILE-RPG *PGM をプロシージャー毎に作成
して、それらを RPG III から CALL 命令で呼び出せばよいのである。

ここで新しく MY001P と MY002P という名前の *PGM を作成する。
これらは MYSRVPGM をバインドするが活動化グループは *NEW ではなく、MYACTGRP の
ように同じ名前で作成するものとする。
MY001P と MY002P の機能は、それぞれプロシージャー MY001, MY002 を呼び出すだけ
の単純なものである。
OYA002 のコンパイルはもちろん CRTRPGPGM でよい。

さて、上記のような構成にすると RPG III : OYA002 が最初に CALL MY001P によって
プロシージャー : MY001 を利用した後で、CALL MY002P を実行すると MY001P を CALL
したときと同じ MYSRVPGM が利用されることになる。
つまり OYA002 は MYSRVPGM をバインドしているのと動作は同じになるのである。
もちろん OYA002 の終了後には RCLACTGRP MYACTGRP のようにして活動化グループ
を削除しておく必要がある。

■ RPG III での CGI 開発