Important Notice: Our web hosting provider recently started charging us for additional visits, which was unexpected. In response, we're seeking donations. Depending on the situation, we may explore different monetization options for our Community and Expert Contributors. It's crucial to provide more returns for their expertise and offer more Expert Validated Answers or AI Validated Answers. Learn more about our hosting issue here.

iSeries / AS400 FAQ : Programming : RPG : How do I convert to and from java String type?

April 26, 2017AS400 convert iSeries Java Programming rpg String type

0

Posted

iSeries / AS400 FAQ : Programming : RPG : How do I convert to and from java String type?

1 Answer

0

Posted

Here is the source of the module I made to do this: —- Source of P.JAVA in QSRVSRC —- // ********************************************************************** // Copybook for F.JAVA // ********************************************************************** D String C Const(‘java.lang.String’) D Object C Const(‘java.lang.Object’) D*————————————————– D* Procedure name: #newString D* Purpose: Convert a OS/400 character to java string D* Returns: Return a java string object D* Parameter: parm D*————————————————– D #cvtToString PR O CLASS(*JAVA:String) @01 D parm 65535A CONST VARYING D*————————————————– D* Procedure name: #cvtFromString D* Purpose: Convert from java String to os/400 character D* Returns: Returned os/400 string D* Parameter: javaString => String in java format D*————————————————– @01 D #cvtFromString PR 65535A VARYING D javaString O CLASS(*J