COBOL顺序文件I/O开发学生GPA计算程序遇编译报错求助

错误1：outRecord缺少PICTURE子句 #

• 触发原因：COBOL中文件描述符（FD）下定义的记录必须明确指定PICTURE子句，你当前myOutFile的01层outRecord没有配置任何格式定义，编译无法识别该字段的长度和类型。
• 修复方案：根据你要输出的内容长度定义格式，比如要输出整行学生数据的话，可以修改为：

FD myOutFile.
01 outRecord PIC X(120).

如果需要拆分输出字段，可以按需求拆分层级定义对应的PIC子句即可。

错误2：CUMULATIVE-QP不是数值类型 #

• 触发原因：你给CUMULATIVE-QP定义的PIC ZZ.99属于编辑型数值格式，这类格式仅用于最终显示/输出时的排版（比如自动消去前导零），不支持算术运算（COMPUTE、ADD等操作）。
• 修复方案：拆分两个字段，一个用于计算的纯数值型字段，一个用于输出的编辑型字段：

WORKING-STORAGE SECTION.
01 CUMULATIVE.
    05 CUMULATIVE-QP-CALC   PIC 99V99 VALUE 0. *> 纯数值，用于计算
    05 CUMULATIVE-QP-DISP   PIC ZZ.99. *> 编辑型，用于显示/输出

所有计算逻辑都用CUMULATIVE-QP-CALC操作，比如：

IF GRADE = 'A'
    COMPUTE CUMULATIVE-QP-CALC = CUMULATIVE-QP-CALC + 4
END-IF

需要显示或写入输出文件前，再把计算结果移动到编辑字段：

MOVE CUMULATIVE-QP-CALC TO CUMULATIVE-QP-DISP
DISPLAY CUMULATIVE-QP-DISP

额外逻辑优化提示 #

1. 你当前的程序逻辑存在重复读文件的问题：Begin、ProcessData、PrintLines三个段落都各自执行了READ操作，会导致每次处理跳过多条记录，无法按顺序处理所有输入行。建议调整为单次循环内完成「读一行→处理计算→输出」的流程，示例逻辑参考：

PROCEDURE DIVISION.
Main.
    PERFORM Begin.
    PERFORM UNTIL EOF-SWITCH = "Y"
        PERFORM ProcessData
        PERFORM PrintLines
    END-PERFORM
    PERFORM CloseFiles.
STOP RUN.

调整后只需要在ProcessData开头执行一次READ操作即可，避免重复读导致的记录丢失。
2. 你当前把CalculatedValues组项定义在了FD myInFile的下方，FD下的所有01层条目都属于输入文件的记录格式，计算用的变量应该移动到WORKING-STORAGE SECTION中定义，避免运行时读取文件出错。

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