COBOL程序用MQGET读取MQ消息出现额外字符问题求助

问题根源 #

这种现象本质是消息格式、编码或接收变量类型不匹配，导致MQ或COBOL对消息内容做了错误的转码/解析。

具体解决步骤 #

1. 匹配MQ消息格式（MQMD.Format） #

确保接收端MQGET指定的格式与发送端一致，字符串消息必须使用MQFMT_STRING（值为'MQSTR '），避免默认二进制格式导致的解析错误。

MOVE 'MQSTR   ' TO MQMD-FORMAT.

2. 修正接收变量定义 #

接收消息的变量必须定义为字符型（PIC X(n)），禁止使用数字型（PIC 9(n)）或压缩十进制类型——这类类型会将字符按数字编码规则解析，插入额外分隔符（比如示例中的.）。

• 错误定义：

  01  MSG-RECEIVE    PIC 9(6).
  

• 正确定义：

  01  MSG-RECEIVE    PIC X(6).
  

3. 同步字符集编码（MQMD.CodedCharSetId） #

如果队列管理器与程序的字符集不同（如队列用EBCDIC，程序用ASCII），需设置正确的字符集ID，并开启转码选项：

MOVE 1208 TO MQMD-CODED-CHAR-SET-ID.  // 1208对应UTF-8，37对应EBCDIC
MOVE MQGMO_CONVERT TO MQGMO-OPTIONS.

4. 校验发送端格式 #

确认发送消息时使用了与接收端匹配的格式和编码，比如发送端是否用MQFMT_STRING发送字符串，而非二进制格式MQFMT_NONE。

内容的提问来源于stack exchange，提问作者Soraya