如何通过COBOL编程实现DB2表中账号前6位置为星号的掩码处理

需求说明 #

从DB2表提取数据生成报表时，当type字段值为"accno"，需将account no字段格式化为前6位显示星号、保留后4位原数字；其他类型的account no字段保持原始内容不变。

原表数据 #

期望结果 #

COBOL代码实现 #

以下是核心逻辑的代码片段，假设已完成DB2数据读取的相关定义：

* 定义从DB2读取的输入记录
01  DB2-RECORD.
    05  AGENT-IN        PIC X(02).
    05  TYPE-IN         PIC X(05).
    05  ACCOUNT-NO-IN   PIC X(10).

* 定义输出报表的记录
01  REPORT-RECORD.
    05  AGENT-OUT       PIC X(02).
    05  TYPE-OUT        PIC X(05).
    05  ACCOUNT-NO-OUT  PIC X(10).

* 核心处理逻辑
PROCEDURE DIVISION.
    READ-DB2-RECORD.
        READ DB2-TABLE INTO DB2-RECORD
            AT END SET END-OF-DATA TO TRUE
        END-READ.

    PROCESS-RECORD.
        MOVE AGENT-IN TO AGENT-OUT.
        MOVE TYPE-IN TO TYPE-OUT.

        IF TYPE-IN = "accno"
            MOVE "******" TO ACCOUNT-NO-OUT(1:6)
            MOVE ACCOUNT-NO-IN(7:4) TO ACCOUNT-NO-OUT(7:4)
        ELSE
            MOVE ACCOUNT-NO-IN TO ACCOUNT-NO-OUT
        END-IF.

        WRITE REPORT-LINE FROM REPORT-RECORD.

代码说明 #

• 先将输入的agent和type直接映射到输出字段
• 通过IF TYPE-IN = "accno"判断是否需要处理账号：
  • 满足条件时，先把输出账号的前6位设为星号"******"，再将输入账号的第7到10位（后4位）移动到输出账号对应位置
  • 不满足条件时，直接将原始账号内容移动到输出字段

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