如何在COBOL中实现IBM大型机ASM的可变长度UNPK指令功能？

要完全匹配ASM中EX指令指定长度的UNPK+OI操作逻辑，核心是按指定长度截取压缩十进制数据的有效数字部分，转换为16位前导零填充的无符号数字字符串，以下是可直接复用的COBOL实现方案：

核心思路 #

ASM逻辑中：

• R8指定的是压缩数据的"有效数字字节数"（不含最后一个带符号的字节），比如R8=1对应2字节压缩数据（1个数字字节+1个符号字节）
• UNPK将指定长度的压缩十进制转换为字符，OI处理后仅保留数字位、忽略符号，最终补前导零到16位

COBOL中通过重定义输入缓冲区+逐字节解析数字位实现精准匹配，避免直接使用固定长度COMP-3字段的局限性。

完整代码实现 #

工作存储节定义 #

WORKING-STORAGE SECTION.
*> 输入缓冲区：存储可变长压缩十进制数据（预留足够长度，比如最多支持9字节压缩数据）
01 WS-INPUT-COMP-BUFFER PIC X(10).
*> 对应ASM的R8寄存器：指定有效数字字节数（1=2字节压缩，2=3字节，以此类推）
01 WS-COMP-DATA-LEN     PIC 9(01) VALUE 0.
*> 重定义输入缓冲区，拆分数字字节和符号字节
01 WS-COMP-REDEF REDEFINES WS-INPUT-COMP-BUFFER.
   05 WS-DIGIT-BYTES OCCURS 1 TO 9 TIMES DEPENDING ON WS-COMP-DATA-LEN.
      10 WS-SINGLE-DIGIT-BYTE PIC X(01).
   05 WS-SIGN-BYTE       PIC X(01).
*> 临时存储解析后的数字值
01 WS-TEMP-NUM           PIC 9(15) VALUE ZEROS.
*> 最终输出：16位前导零填充的数字字符串
01 WS-OUTPUT-16CHAR      PIC 9(16) VALUE ZEROS.
*> 循环控制变量
01 WS-IX                 PIC 9(02) VALUE 0.

过程部逻辑 #

PROCEDURE DIVISION.
    *> ------------------------------
    *> 测试场景1：2字节压缩数据X'123C'，R8=1
    *> ------------------------------
    MOVE X'123C' TO WS-INPUT-COMP-BUFFER.
    MOVE 1 TO WS-COMP-DATA-LEN.
    PERFORM PARSE-COMP-TO-16CHAR.
    *> 此时WS-OUTPUT-16CHAR = '0000000000000123'

    *> ------------------------------
    *> 测试场景2：3字节压缩数据X'12345C'，R8=2
    *> ------------------------------
    MOVE X'12345C' TO WS-INPUT-COMP-BUFFER.
    MOVE 2 TO WS-COMP-DATA-LEN.
    PERFORM PARSE-COMP-TO-16CHAR.
    *> 此时WS-OUTPUT-16CHAR = '0000000000012345'

    STOP RUN.

*> 通用解析子程序
PARSE-COMP-TO-16CHAR.
    MOVE ZEROS TO WS-TEMP-NUM WS-IX.
    *> 解析所有有效数字字节（每个字节含2位十进制数）
    PERFORM VARYING WS-IX FROM 1 BY 1 UNTIL WS-IX > WS-COMP-DATA-LEN
        COMPUTE WS-TEMP-NUM = WS-TEMP-NUM * 100 +
            (FUNCTION NUMVAL(WS-SINGLE-DIGIT-BYTE(WS-IX)(1:1)) * 10) +
            FUNCTION NUMVAL(WS-SINGLE-DIGIT-BYTE(WS-IX)(2:1))
    END-PERFORM.
    *> 解析符号字节的高四位数字（忽略低四位符号位）
    COMPUTE WS-TEMP-NUM = WS-TEMP-NUM * 10 +
        FUNCTION NUMVAL(WS-SIGN-BYTE(1:1)).
    *> 移动到16位字段，自动补前导零
    MOVE WS-TEMP-NUM TO WS-OUTPUT-16CHAR.
    EXIT PARAGRAPH.

关键细节说明 #

1. 缓冲区重定义：通过OCCURS DEPENDING ON实现可变长度的数字字节拆分，精准匹配R8指定的处理长度。
2. 数字位解析：逐字节提取压缩十进制的每一位数字，忽略符号字节的低四位符号位（和ASM的OI处理逻辑一致）。
3. 前导零填充：利用COBOL的数值自动对齐特性，将解析后的数字移动到PIC 9(16)字段时，自动补前导零到16位，无需额外处理。

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