この例では、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
Windows:
cobol caller.cbl jvmgen; cobol myapp.cbl jvmgen(sub) iloutput(bin) ilnamespace(com.mycompany.desktopapp);
UNIX:
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 (Windows)、bin/com/mycompany/desktopapp (UNIX) ディレクトリに作成されます。
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 メッセージが表示されます。