C/400 から外部プログラムを呼び出して実行するには linkage を使って

#pragma map(MyPGM, "MYPGM     ")
#pragma linkage(MyPGM, OS)           
void  MyPGM(void);          
    :
  MyPGM();   /* 外部プログラムの実行 */

のようにして実行する。

しかし、上記の記述では外部プログラム : MYPGM はライブラリー・リスト上の

どこかのライブラリーに存在していなければならない。

C/400 解説書には次のように書かれている。

外部プログラムの名前を指定します。

#PRAGMAマップ指示ステートメントが OS400プログラムの命名規則に併せて

指定されていないときは、この名前を10文字以内の大文字で指定しなければなりません。

指定されたプログラム名が長すぎるときは切り捨てられます。

#PRAGMA連携処理中は 255文字より長い文字は 255文字に切り捨てられます。

255文字までの文字に切り捨てられた名前で #PROGMAマップを指定してください。

かなり意味不明の解説である。

筆者は長い間前述の指定を使用していて C/400 ではライブラリー名の指定が

できないものと思い込んでいた。

しかしユーザー・プログラムがライブラリー・リストを変更している場合には

弊社製品のライブラリーがライブラリー・リストから除去されてしまうために

実行時のエラーが発生する事態に出くわしてしまった。

そこで「OS400プログラムの命名規則」というくだりに注目して

ライブラリー/プログラム名 の形式を使って

#pragma map(MyPGM, "MYLIB/MYPGM")
#pragma linkage(MyPGM, OS)           
void  MyPGM(void);

のように変更したところ、あっさり正常に動作した。

このように

#pragma map(<関数名>, "<ライブラリー名>/<プログラム名>")

の形式で記述するとライブラリー・リストに左右されることなく明示的に

外部プログラムを呼び出すことができるようになる。

これを早速すべてのプログラム・ソースに反映させることによって

製品の品質を高めることができるようになった。