一个cobol问题！~很菜很着急~

[fengluoyan]

代码是这样的：
EVALUATE TRUE
WHEN NUM < 100
compute money = price * 1000
DISPLAY "OREDERS !!" SPACE NUM
DISPLAY SNAME SPACE STYPE SPACE PRICE SPACE MONEY
WHEN OTHER
CONTINUE
END-EVALUATE

如果不加红体字部分才正常，加了之后就会报这样的错误:
CEE3207S The system detected a data exception (System Completion Code=0C7).
From compile unit TJB0055 at entry point TJB0055 at compile unit offset
at address 12900E8A.

希望大家不吝赐教~~

[不动如岳]

溢出，money定义的大小？

[windlysnowly]

这不是写着发生了数据例外吗，你可以看下数据类型和长度是否正确

[windlysnowly]

compute money = price * 1000
一个简单的调试方法，你可以把price手工替换成实际数字呀
compute money = 1 * 1000

[alan0128]

帮顶

[lijinlin_love]

计算结果溢出 检查长度