COBOL冰淇淋销售程序编译错误调试请求

错误1：数值型数据向RECEIPT-REC的MOVE语句无效 #

这个问题的核心是COBOL中数值型与字符型数据的移动规则不匹配，或字段长度/类型定义冲突：

• 先检查RECEIPT-REC中对应字段的定义：如果ITEM-FLAVOR-PRICE是数值型（如PIC 9(5)V99），而RECEIPT-REC里的价格字段是字符型（PIC X系列），直接MOVE会触发类型不兼容错误。解决方法是使用编辑型过渡变量：

  01  EDITED-PRICE PIC $$999.99.
  * 在PERFORM循环内执行移动：
      MOVE ITEM-FLAVOR-PRICE TO EDITED-PRICE
      MOVE EDITED-PRICE TO RECEIPT-PRICE-FIELD-IN-REC
  

• 如果RECEIPT-REC的字段也是数值型，检查两者的长度是否匹配：比如源字段是9(5)V99（7位数字含小数），目标字段如果是9(4)V99，会因长度不足报错，需调整目标字段的PIC定义至与源字段一致或更大。
• 排查是否错误使用MOVE CORRESPONDING：如果RECEIPT-REC和源数据结构的字段名不完全匹配，MOVE CORR会忽略不匹配字段，导致看似“无效”的移动。

错误2：DISPLAY "!"语句后语法错误（expecting TO） #

这个错误90%是语句终止符缺失或语法结构错误：

• 检查DISPLAY "!"语句末尾是否遗漏了COBOL必需的句号（.）。COBOL要求每个语句以句号结尾，漏写会导致编译器将后续标识符误认为当前语句的一部分，触发“expecting TO”（编译器误判你要写MOVE ... TO ...类语句）。
• 检查是否将多个语句错误写在同一行且未正确分隔：比如DISPLAY "!" MOVE ITEM-COUNT TO TOTAL，编译器会把MOVE当成DISPLAY的参数引发错误。正确写法：

  * 写法1：分开写并加句号
      DISPLAY "!".
      MOVE ITEM-COUNT TO TOTAL.
  * 写法2（部分COBOL版本支持）：
      DISPLAY "!", ITEM-COUNT.
  

• 确认语句对齐格式：COBOL要求语句起始于B区（第8列之后），如果DISPLAY写在A区（第1-7列），可能被误判为注释或其他指令。

针对课程作业的额外提示 #

• 确保EVALUATE语句语法正确：EVALUATE FLAVOR-CHOICE后每个WHEN子句要有明确分支，结尾加END-EVALUATE。
• 多商品录入的循环逻辑要设置清晰的终止条件（比如用户输入特定字符结束），避免死循环。
• 收据生成时，用编辑型字段统一金额、数量的输出格式，保证收据规范。

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