COBOLNational クラス

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

CobolNational Java クラスを使用すると、UTF-16 文字列を生成して、COBOL の PIC N(...) usage is national フィールドに渡すことができます。

たとえば、次の COBOL プログラム (hellonat) は文字列 "Hello From Java" を受け取り、PIC N(40) USAGE IS NATIONAL として定義したデータ項目に格納します。

 $set unicode(portable)
  working-storage section.
  linkage section.
  01 lnk-natstring   pic n(40) usage is national.
  procedure division using lnk-natstring.
      display "Java said to COBOL [" lnk-natstring "]"
      move "Hello From Java" to lnk-natstring
      exit program returning 0.

文字列 "Hello From Java" を COBOL プログラム hellonat に渡す Java コードは次のとおりです。

CobolNational cobnat =
                     new CobolNational("Hello From Java", 40);
RuntimeSystem.cobcall("hellonat",
              new ParameterList().add(cobnat));
System.out.println(cobnat.toString());