JVM COBOL からのネイティブ COBOL の呼び出し

JVM COBOL では、CALL 文を使用してネイティブコードと相互運用します。次に例を示します。

 call xxx using by yyy p by zzz q returning r

詳細は次のとおりです。

xxx: 記憶域またはリンケージ項目またはリテラルです。CALL 文で呼び出すエントリポイントが保持されます。
p および q: using キーワードと returning キーワード間の項目です。これらはパラメーターです。ゼロ個以上のパラメーターが使用可能です。
yyy および zzz: パラメーター渡しモード (by content、by reference、または by value) を指定します。デフォルトは by reference です。
RETURNING 句: オプションです。

共有ライブラリのネイティブエントリポイント (Windows 上の .dll ファイルまたは UNIX 上の .so ファイル) を呼び出すには、共有ライブラリをロードする必要があります。これにより、JVM ランタイムシステムで共有ライブラリが確実に認識されます。ライブラリをロードしてから、ネイティブエントリポイントの呼び出しを行ってください。

たとえば、JVM (JVMGEN) としてコンパイルされた、次のようなプログラム A があるとします。

       01 my-dll       procedure-pointer.

       set my-dll to entry "b"
       call "c"

また、COBOL プログラム B および C を含むネイティブ DLL があるとします。あるとします。

       program-id. b.
       display "IN B"notep

       program-id. c.

        display "INFO: in C"
        display "PASS"

これは、ネイティブ DLL (Windows では b.dll) または CSO (UNIX では b.so) をロードし、含まれるプログラムを見えるようにすることで、プログラム C への CALL が成功するようにします。

JVM ランタイムシステムは、要求されたエントリポイントを、Callable 属性を持つ JVM メソッドに解決しようとします。特定の名前のエントリポイントが JVM で見つからない場合、JVM ランタイムシステムは、エントリポイントをネイティブエントリポイントに解決しようとします。ネイティブエントリポイントが見つかった場合、エントリポイントが呼び出され、その名前はそれ以降のネイティブエントリポイントと関連付けられるため、全検索が再度行われることはありません。

注:

JVM エントリポイントと同じ名前のネイティブエントリポイントを呼び出すことはできません。
エントリポイントの名前が同じ 2 つのネイティブライブラリを、ロードすることはできません。