对应QUICS 程序进行DEBUG的方法

公司里用了个专门的业务系统,叫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结束操作。