IBM DebugTool中巧用GOTO调试程序

最近接触IBM DebugTool比较多，再说一个在mainframe上面调试COBOL或者PL/I程序的技巧吧。
经常在用IBM DebugTool或者DTCN调试程序的时候，造测试数据很不容易。如果调试过程中发现这次数据没有造成功，我们没有必要每次都退出全部程序重新造数据，可以巧妙地利用“GOTO”语句，随心所欲地在程序里面跳转。
比如下面这一个程序段，在调试过程中我们可以在Call黑盒子程序BLACKBOX的前后都设置一个断点，即9178行以及9202行都设置一个断点，如果我们发现程序跑到了9202行但是返回码不是我们想要的结果，那么运行“GOTO 9178” 即可重新回到Call黑盒子之前，无限反复尝试，重新造数据，直到成功！

SOURCE: TESTPGM1 --1----+----2----+----3----+----4----+----5 LINE: 9178 OF 15895
0020  01 WS-FIELDS.
0021  05 WS-CALLED-PGM ...