SBMJOB 错误内容的捕捉？ 高手指点。。。。

zhas400

如下程序：
     PGM         
        SBMJOB     CMD(CALL PGM(TESTA))    JOB(&JOB)   OUTQ(&OUT02)  MSGQ(&MSG01)        
        SBMJOB     CMD(CALL PGM(TESTB))    JOB(&JOB)   OUTQ(&OUT02)  MSGQ(&MSG01)     
        SBMJOB     CMD(CALL PGM(TESTC))    JOB(&JOB)   OUTQ(&OUT02)  MSGQ(&MSG01)              
        ENDPGM      

问题：
    PGM(TESTA)程序正常运行结束后才可以运行 PGM(TESTB)  .    如何捕捉PGM(TESTA)的运行结果。
    如何才能实现。可能PGM(TESTA)还没运行完。CL程序就结束了。我应该在那里去捕捉。

踏雪有痕

写个CL程序叫TESTD, 用TESTD代替TESTA和TESTB.  SUBJOB CALL TESTD

TESTD如下.

         PGM
         CALL PGM(TESTA)

              MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERR))

             CALL PGM(TESTB)

             GOTO       CMDLBL(END)

ERR:     SNDMSG     MSG('TESTA FAILED') +
                          TOUSR(XXXXX)

END:
             ENDPGM