Java 変数へのアクセス

制約事項: 次の説明はネイティブコードにのみ該当します。

ネイティブのオブジェクト指向 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