as400中怎么java开发_【AS/400】rpgle调用java的方法

h DFTACTGRP(*NO) ACTGRP(*NEW)

d*

d* Define a field to store the String object we wish to trim

d string          s               O   CLASS(*JAVA:'java.lang.String')

d*

d* Prototype the constructor for the String class. The

d* constructor expects a byte array.

d MakeString      pr              O   EXTPROC(*JAVA:

d                                             'java.lang.String':

d                                             *CONSTRUCTOR)

d                                     CLASS(*JAVA:'java.lang.String')      return type

d    bytes                      30A   CONST VARYING

d*

d* Prototype the String method getBytes which converts a String to a byte

d* array. We can then store this byte array in an alpha field.

d GetBytes        pr            30A   EXTPROC(*JAVA:

d