ネイティブのオブジェクト指向 COBOL プロキシで「setname」メソッドおよび「getname」メソッドを呼び出すと、Java クラスのパブリック メンバーおよび静的変数にアクセスできます。Java では変数名の大文字と小文字が区別されるため、COBOL コード内の name は、Java コードで宣言したものと大文字と小文字の区別を一致させる必要があります。
たとえば、次の Java クラスに含まれるパブリック変数 (classVal および instVal) にアクセスするとします。
public class x { static int classVal; int instVal; };
次の COBOL コード例は、静的変数 classVal を設定し、続いてメンバー instVal の値を取得します。
$set ooctrl(-f+p) repository. class x as "$Java$x" . working-storage section. copy "javatypes.cpy". 01 anX object reference. 01 anInt jint. procedure division. invoke x "setclassVal" using by value 4 invoke x "new" returning anX invoke anX "getinstVal" returning anInt