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