Creating String objects in RPG

If you need a String object to pass to a Java™ method, you can create it like this:

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

If you want to create a string with UCS-2 data or graphic data, use this code:

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