公司里用了个专门的业务系统,叫QUICS.用来代替400原来的操作画面.好处是界面友好,400的绿屏没法比.坏处也很多,最关键的是debug非常麻烦.后来看网上的帖子以及自己琢磨,终于可以相对简便的debug了.方法如下:
一．程序编译：
RPGLE程序：
Debugging views (DBGVIEW) 选项填“*LIST”，或“SOURCE”
RPG程序：
Source listing option (OPTION) 选项填“*LSTDBG”
Generation options (GENOPT) 选项填“*LIST”
如果编译的程序未指定这个参数，那么执行STRDBG命令时，将会毫无效果。
二． DEBUG ：
1. 打开QUICS，查看JOB ID
2. 使用WRKJOB查看所提交的JOB的以下3个参数值：
*Job id
*User Name
*Job Number
3. 执行STRSRVJOB，填入第2步骤获得的3个参数进行QBATCH JOB服务过程； (其实,只要填写JOB ID即可,即,第二步可以省略)
4. STRDBG + 程序名
Update production files （UPDPROD）
OPM source level debug （OPMSRC）
5. 在QUICS中执行该程序
6. 在OS/400命令行窗口；可通过F6设置断点。程序将在断点中停留；可以使用交互式DEBUG使用DEBUG命令进行处理
7. 一旦程序或者JOB结束，使用ENDDBG和ENDSRVJOB结束操作。