この例では、JVM COBOL ランタイム システムが mfjarprogmap ユーティリティを使用して作成された Java プロパティ ファイルを使用して、どのようにパッケージの一部としてコンパイルされたプログラムを呼び出すかを示します。Java プロパティ ファイルに格納されている .jar ファイルを COBOL から直接どのように呼び出せるかを示します。
program-id myapp. procedure division. display "Hello world from myapp". goback. end program myapp.
program-id caller.01 p procedure-pointer.01 runner pic x(10). procedure division. set p to entry "myapp.jar". move "myapp" to runner. call runner. goback. end program caller.
mkdir bin
cob -j caller.cbl cob myapp.cbl -C 'jvmgen(sub)' -C 'iloutput(bin)' -C 'ilnamespace(com.mycompany.desktopapp)'カレント ディレクトリに caller.class ファイルが作成され、myapp.class ファイルが bin/com/mycompany/desktopapp ディレクトリに作成されます。
jar cvf myapp.jar -C bin/ .カレント ディレクトリに myapp.jar が作成されます。
mfjarprogmap -verbose -jar myapp.jar
mfcobolprogmap.properties ファイルが作成され、myapp.jar に追加されます。
java callercaller.class ファイルが実行されて myapp.jar が呼び出され、さらに .jar ファイルに Java プロパティ ファイルが含まれていることから、ランタイム システムではそれを使用して、パッケージ化された場所にある呼び出されたプログラムを見つけます。その結果、Hello world from myapp というメッセージが表示されます。