在AS400上进行Java开发（原创）

在AS400上使用RPG开发，操作数据的效率当然会快很多，但是RPG处理数据逻辑毕竟是非常麻烦。其实在AS400 v5r4以上的版本都是可以支持java开发，下面是一个用Java开发删除某一用户下所有Spool File的功能。

1、创建Java工作目录：MD DIR(JavaPgm)

2、编写Java代码

1)创建源文件:CRTSRCPF FILE(LIBNAME/FILENAME) IGCDTA(*YES)

2)进入创建的文件：[WRKOBJPDM LIB(ZTEST) OBJ(QJAVASRC) 然后输入 12]

3)在当前画面按下F6毽进入创建源代码界面：

4）编写Java代码

3、将源代码复制成Stream File

CPYTOSTMF FROMMBR('/qsys.lib/ztest.lib/qjavasrc.file/testaa.mbr') TOSTMF('javapgm/testaa.java' )

STMFOPT(*REPLACE) STMFCODPAG(*PCASCII)

5、设置Java的ClassPath

1）输入命令：WRKENVVAR,如果之前已经设置过变量“CLASSPATH",可在此变量前输入”2“进入修改，否则需要新增”CLASSPATH”变量，注意：如果有多个路径中间使用“:”分隔，这点与Windows上不同

4、 编译Java源代码

1)输入QSH命令

2)在QSH命令模式中输入：Javac JavaPgm/testaa.java

5、运行Java程序

1）退出QSH

2）输入命令:JAVA CLASS(testaa) OUTPUT(*PRINT)

我们这里是不想出现运行窗口，如果想立即出现显示结果可以不用output参数

运行完成后：之前的所有SPOOL File全部删除，只有我们当前运行Java产生的一个SPOOL File

输入“5”查看Spool File 内容