CL过程监控JOB的错误消息

PGM
MONMSG MSGID(CPF0001) EXEC(GOTO ERROR)
CALL PROGA
CALL PROGB
RETURN
ERROR: SNDPGMMSG MSG(扐 CALL command failed? MSGTYPE(*ESCAPE)
ENDPGM