【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                                             'java.lang.String':
     d                                             'getBytes') VARYING
     d*
     d* Prototype the String method trim. It doesnt take any parameters,
     d* but since it is not a static method, must be called using a String
     d* object.
     d trimstring      pr              o   EXTPROC(*JAVA:
     d                                             'java.lang.String':
     d                                             'trim')
     d                                     CLASS(*JAVA:'java.lang.String')      return type
     d*
     d result          s             30A   inz('   1234 5 ') varying
     d*
     C                   EVAL      string = makestring(result)
     C                   EVAL      string = trimstring(string)
     c                   eval      result = GetBytes(string)
     c     result        dsply
     C*
     C                   SETON                                        LR
     C                   RETURN

调用java的方法有什么好处，答案是：可以使用java的标准库。
当然也可以调用自己写的class，参照rpgle guide。
%2Fbooks_web%2Fc0925076172.htm