Smart/400开发上手4: 调试Cobol代码 （DEBUG with QBATCH）

Step1:Compile Cobol source

CB TIM07 using *SRCDBG option
例如：CB MEMBER(TIM07) OPTION(*SRCDBG) WORKU(TIM003)

Step2:HOLD QBATCH & Submit Job

2.1 先HOLD住：
HLDJOBQ QBATCHGZ

2.2 Submit Job：
D》Batch Processing 》Schedule Submision》 提交启动Job

Step3:WRKJOBQ QBATCHGZ

3.1 ：先选3 （选择一个状态为RLS的JOB，一般Number较大）
3.2 ：后选5

3.3 ：复制：
CALL PGM(BMANMTHRD) PARM(‘L2TIM6TEST’ X’000000030F’ ‘P’ X’001F’)

Step4：启动调试

4.1 ： RLSJOBQ QBATCHGZ

4.2 ： STRISDB PGM(TIM07) INVPGM(*NO)

4.3 ： 粘贴进命令行：
CALL PGM(BMANMTHRD) PARM(‘L2TIM6TEST’ X’000000030F’ ‘P’ X’001F’)

Step5：成功进入调试，you will be free！

主要快捷键：
F3=Exit F5=Step F6=Break F11=Display variable
F12=Cancel F17=Run F23=Change variable
F4=Go to current F9=Retrieve F10=Actions
F13=Run to location F14=Program list F24=More keys