使用CICS COBOL在Web页面上发送和显示十六进制值

Question

我想通过CICSWEB (COBOL)向网页发送一个十六进制值。

例如IMOVE 'DACA' to OT-S(OT-S是变量)，当我将该变量发送到网页时，显示字符'DACA'而不是显示等效的十六进制值。

我的代码是:

*************************
MOVE OT-S TO NAMEVAL.
EXEC CICS DOCUMENT CREATE
DOCTOKEN(TOKEN1)
TEMPLATE(WBTMP1)
SYMBOLLIST(SYMLIST1)
LENGTH(LENGTH OF SYMLIST1)
DELIMITER(DL1)
END-EXEC.
EXEC CICS WEB SEND DOCTOKEN(TOKEN1)
CLNTCODEPAGE('8859-1')
END-EXEC.

在上面的代码中，NAMVAL是一个必须发送到网页符号的变量。

我期望在将该变量发送到页面时显示等效的十六进制值(这是一个波斯语单词)，但显示的是相同的初始值。

Answer 1

您可以使用符号x' daca '或x"DACA"来移动COBOL中的十六进制字面值。我明白这是你所问的，但正如@Hogstrom和@GilbertLeBlanc所指出的，你可能需要操纵代码页来获得你想要的结果。

IBM Enterprise COBOL还支持国家文字和DBCS文字，CICS通过DOCUMENT CREATE上的HOSTCODEPAGE选项支持文档中的特定代码页。