RPG での String オブジェクトの作成

String オブジェクトを Java™ メソッドに渡す必要がある場合は、次のようにして String オブジェクトを作成することができます。
D newString       PR              O   EXTPROC(*JAVA
D                                           : 'java.lang.String'
D                                           : *CONSTRUCTOR)
D   value                    65535A   CONST VARYING 
D string          S                   like(jstring)
  /free
     string = newString ('abcde');
     …
  /end-free
ストリングを、UCS-2 データまたはグラフィック・データとして指定して作成したい場合は、以下のコーディングを使用します。
D newStringC      PR              O   EXTPROC(*JAVA
D                                           : 'java.lang.String'
D                                           : *CONSTRUCTOR)
D   value                    16383C   CONST VARYING 
D string          S                   like(jstring)
D graphicData     S             15G
D ucs2Data        S            100C
  /free
     string = newStringC (%UCS2(graphicData));
     …
     string = newStringC (ucs2Data);
 /end-free