COBOL程序员求助：如何将客户文件存入基于预订类型的数组

嘿，我来帮你搞定这个COBOL数组的问题！你现在的数组定义只是4个单独的数字，没法承载客户文件的详细信息，咱们一步步来调整和完善：

1. 重新设计数组结构 #

首先，你需要一个嵌套表结构——每个预订类型（共4种）下面对应一组客户记录。先定义客户的基础数据结构，再把它嵌套到预订类型的数组里：

* 定义单个客户的记录结构
01 Customer-Record.
    05 Customer-ID          PIC X(10).    // 客户ID
    05 Customer-Name        PIC X(30).    // 客户姓名
    05 Booking-Type-Code    PIC 9.        // 预订类型编码（1-4）
    05 Customer-Details     PIC X(50).    // 其他客户详情

* 定义按预订类型分组的客户数组
01 Booking-Table.
    05 Booking-Group OCCURS 4 TIMES INDEXED BY Booking-Idx.
        05 Assigned-Booking-Type PIC 9 VALUE 1, 2, 3, 4.  // 绑定4种预订类型
        05 Customer-List.
            * 假设每种类型最多存100个客户，可根据业务调整数量
            05 Customer-Entry OCCURS 100 TIMES INDEXED BY Cust-Idx.
                05 Cust-ID      PIC X(10).
                05 Cust-Name    PIC X(30).
                05 Cust-Details PIC X(50).

* 计数器数组：跟踪每种预订类型下已存储的客户数量
01 Customer-Counts.
    05 Cust-Count OCCURS 4 TIMES PIC 9(3) VALUE 0.

2. 读取客户文件并填充数组的逻辑 #

接下来要编写读取文件、根据预订类型分类填充数组的代码。核心是用索引定位到对应的预订类型组，再把客户数据存入该组的客户列表中：

* 先定义文件结束标志
01 End-of-File-Flag PIC X VALUE 'N'.

* 读取并填充数组的主逻辑
PERFORM UNTIL End-of-File-Flag = 'Y'
    READ Customer-File INTO Customer-Record
        AT END 
            SET End-of-File-Flag TO 'Y'
        NOT AT END
            * 根据客户的预订类型编码，定位到对应的Booking-Group
            MOVE Customer-Record.Booking-Type-Code TO Current-Booking-Type
            SET Booking-Idx TO Current-Booking-Type

            * 递增该类型的客户计数器，定位到下一个空的客户位置
            ADD 1 TO Cust-Count(Booking-Idx)
            SET Cust-Idx TO Cust-Count(Booking-Idx)

            * 将客户数据移动到数组对应位置
            MOVE Customer-Record.Customer-ID 
                TO Booking-Table(Booking-Idx).Customer-Entry(Cust-Idx).Cust-ID
            MOVE Customer-Record.Customer-Name 
                TO Booking-Table(Booking-Idx).Customer-Entry(Cust-Idx).Cust-Name
            MOVE Customer-Record.Customer-Details 
                TO Booking-Table(Booking-Idx).Customer-Entry(Cust-Idx).Cust-Details
END-PERFORM

3. 关键注意点 #

• 索引的使用：用INDEXED BY定义的索引比直接用下标（比如Booking-Group(2)）更高效，尤其是在嵌套表操作中。
• 数组大小规划：Customer-Entry OCCURS 100 TIMES的数值要根据实际业务的客户数量上限调整，避免溢出。如果需要动态扩容，部分COBOL版本支持ALLOCATE语句创建动态数组。
• 边界检查：在填充数组前，可以加判断确保Cust-Count不超过Customer-Entry的OCCURS次数，防止数组越界。
• 初始化：Cust-Count初始化为0，确保从第一个位置开始存储客户数据。

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