COBOL中READ ... INTO语句的用途及重复存储疑问

文件缓冲区到底能不能改？ #

先明确：COBOL标准没规定文件定义的记录缓冲区（比如EMPLOYEE-REC）是只读的，绝大多数编译器允许直接修改里面的字段——比如执行ADD 1 TO EMPL-ID是合法的。但这种操作非常不推荐：一来后续的READ会直接覆盖缓冲区内容，修改的内容大概率会被冲掉；二来部分编译器的文件I/O优化机制可能让修改后的内容出现异常，排查起来特别麻烦。

为啥要费劲用READ ... INTO加重复结构？ #

以下是几种典型场景：

• 操作与原始数据隔离：如果要对读取的记录做修改、计算或者需要长期保留这条数据，用独立的工作存储变量（比如WS-EMPL）就不用担心被下一次READ覆盖。比如读取员工记录后计算薪资调整，修改WS-EMPL里的薪资字段，完全不影响下一次读进来的原始数据。
• 多记录对比/处理：要是需要同时拿当前记录和上一条记录做对比（比如检查员工编号是否连续），工作存储区可以存上一条的内容，而文件缓冲区始终放最新读的记录，两者互不干扰。
• 数据格式适配：文件记录格式和程序内部处理格式不一样时，重复结构可以配合REDEFINES做转换。比如文件里的日期是YYYYMMDD的字符串，工作存储区可以把它重定义成年、月、日三个独立数字字段，方便后续做日期计算，还不用动原始文件缓冲区的格式。
• 代码模块化更清晰：把文件读取和数据处理分开，用工作存储区的变量当子程序参数，比直接传文件缓冲区靠谱。比如把薪资计算写成子程序，传WS-EMPL进去，子程序不用关心文件I/O的状态，代码维护起来更简单。
• 兼容老环境/编译器：有些早期COBOL编译器对修改缓冲区支持有限，或者在特定批处理环境里，改缓冲区可能触发文件锁、缓存同步的问题，用INTO写到工作存储区是更稳妥的兼容方案。

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