论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2008-04-11 11:42 |只看该作者 |倒序浏览

MONMSG可以监控到已知的错误信息，如
MONMSG MSGID(CPF7302) EXEC(DO) 监控到CPF7302
但MSGID必须是确定的，
在MSGID可能为多个，且具体不知道是哪个的时候，如何捕捉到错误消息（有用）并写入数据文件？

望指教，谢谢！

[ 本帖最后由 pmf 于 2008-4-11 11:44 编辑 ]

文库|博客

fxf_china

小富即安

论坛徽章:: 0

2楼 [报告]

发表于 2008-04-11 12:35 |只看该作者

CPF0000可捕获所有以'CPF'开头的错误

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

tomroom

丰衣足食

论坛徽章:: 1

3楼 [报告]

发表于 2008-04-11 12:40 |只看该作者

用如下方法：

         PGM
         DCL       VAR(&MSGDTA) TYPE(*CHAR) LEN(80)
         DCL       VAR(&MSGID) TYPE(*CHAR) LEN(7)
         MONMSG    MSGID(CPF0000 MCH0000) EXEC(GOTO CMDLBL(ERROR))

  /*------------------------------------------------*/
  /* Your Process Goes Here                   */
  /*------------------------------------------------*/

         RETURN

  ERROR: RCVMSG    MSGTYPE(*EXCP) MSGDTA(&MSGDTA) +
                     MSGID(&MSGID)
         MONMSG    MSGID(CPF0000)
         SNDPGMMSG MSGID(&MSGID) MSGF(QCPFMSG) MSGDTA(&MSGDTA) +
                     MSGTYPE(*ESCAPE)
         MONMSG    MSGID(CPF0000)

         ENDPGM