1. MD DIR(java)
2. CRTSRCPF MYLIB/QJAVASRC
3. Creating a member called test in QJAVASRC
open the member in edit mode and
do - "S caps off" at the top of the seu to allow lower case
4.Then i write this java program in member 'test'.
public class test {
static String mystring;
public static String setMyString(String s) {
mystring = s + "prog";
return mystring;
}
}
5. CPYTOSTMF FROMMBR('/qsys.lib/ablib.lib/qjavasrc.file/test.mbr') TOSTMF('/java/test.java') STMFCODPAG(*PCASCII)
6. wrklnk java
7. take option 5 and see the test.java there
8. qsh
9. javac /java/test.java
10. wrklnk java (see if the class file is created or not)
11. create a RPGLE member in QRPGLESRC called TESTJAVA
This is my RPGLE program TESTJAVA which calls the Java method setMyString described in the above Java program:
Code:
D setMyString PR o class(*java:'java.lang.String')
D extproc(*java:
D 'test':'setMyString')
D static
D mystring o class(*java:'java.lang.String')
*
D makeString PR o extproc(*java:'java.lang.String':
D *constructor)
D bytes 65000a const varying
*
D getBytes PR 100a Varying
D extproc(*java
D :'java.lang.String'
D :'getBytes')
*
D string s o class(*java:'java.lang.String')
D bytes2 s 20a varying
/free
string = makestring('This is a test ');
string = setMyString(string);
bytes2 = getBytes(string);
dsply bytes2;
return;
14. Compile the program
15. ADDENVVAR ENVVAR(CLASSPATH) VALUE('/JAVA')
16. call the RPGLE program
Stealer 回复于：2006-01-04 10:02:21
谢了，回去看看
coolk 回复于：2006-01-04 12:51:33
好帖子！希望加为精华！
pl421 回复于：2006-01-04 12:54:23
不错的东西2
qingzhou 回复于：2006-01-04 13:14:23
引用：原帖由 coolk 于 2006-1-4 12:51 发表
好帖子！希望加为精华！
ＯＫ！
tme45 回复于：2006-01-04 17:43:10
我想知道的东西，谢谢了！
tme45 回复于：2006-01-05 12:25:04
能行 但是不明白rpgle里面的代码（定义）
请问AS400上关于java的资料那里有啊？
我怎么没看到相关资料啊
bpcsusr 回复于：2006-01-05 14:13:50
不错啊很实用.
macrodba 回复于：2006-01-06 10:00:00
刚开始学习这栋栋
chinagirlwang 回复于：2006-03-27 17:21:19
请问一下：
1。 do - "S caps off" at the top of the seu to allow lower case
S caps off 不能运行?
2.STMFCODPAG(*PCASCII)
没有 * pcascii？
linmagician 回复于：2006-04-05 09:22:13
不错的东西
helloabc 回复于：2006-04-05 10:10:25
好贴，谢谢！
|
