首页 > 解决方案 > 在 COBOL 中操作变量的 HEX 值

问题描述

使用常量确实有效:MOVE X "41" TO HEXSTRING-WRK.
HEXSTRING-WRK 的值 = 'A

但是十六进制值“41”应该是可变的,这如何实现MOVE
我的尝试没有成功:

01 TEST-VAR PIC X(28) VALUE "41".
01 HEXSTRING-WRK PIC X(28).  
01 HEXSTRING-WRK2 PIC X(30).  


STRING '"X"' DELIMITED BY SIZE     
               TEST-VAR DELIMITED BY SIZE  
 INTO HEXSTRING-WRK2                                   
END STRING.                                            
                                                                                
MOVE HEXSTRING-WRK2 TO HEXSTRING-WRK.

HEXSTRING 的十六进制值 -> 2258223431

AS400 上的 IBM COBOL

标签: cobol

解决方案


推荐阅读