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

Smart/400开发上手4: 调试Cobol代码 (DEBUG with QBATCH)-LMLPHP

05-11 19:53