オブジェクト指向 COBOL の Java ドメインを使用する場合、Java オブジェクトに直接アクセスすることはありません。常にプロキシを経由してアクセスします。一方、javasup クラスの getJavaObject メソッドを使用すると、実際の Java オブジェクトへのポインターを取得することができます。このメソッドを Java Native Interface (JNI) と組み合わせて使用すると、オブジェクト指向 COBOL の Java ドメインでは利用できない Java の機能も利用可能になります。
JNI ポインターを取得するには、javasup クラスの getEnv メソッドを呼び出します。JNI ポインターは関数テーブルへのポインターです。次の例に示すように、コピーブック javatypes.cpy で定義されている JNINativeInterface 構造体を使用すると、JNI 関数テーブルに容易にアクセスできます。
working-storage section.
01 JEnv pointer.
linkage section.
01 lnk-JNINativeInterface JNINativeInterface.
*>
procedure division.
invoke javasup "getEnv" returning jEnv
*> Map the pointer passed in JEnv to the
*> JNINativeInterface structure so that we
*> can call JNI functions.
set address of lnk-JNINativeInterface to JEnv
*>
以上の処理を行うと、JNINativeInterface の型定義で指定されている名前を使用して、JNI 関数を呼び出すことが可能になります。
具体的には、COBOL 開発システム インストールの docs/mfcobol.docs.zip 内にある「Java Run-time Class Library Reference」を参照してください。