我在使用一些 cobol 代码时遇到了一些麻烦。在下面的代码中,它会导致这两个错误。当我尝试添加时,编译器不喜欢。
CH7PPB.CBL:158: Error: 'NEW-DUES' is not numeric name CH7PPB.CBL:161: Error: 'NEW-INSURANCE' is not numeric name
MOVE UNION-DUES TO OLD-DUES
MULTIPLY UNION-DUES BY .04 GIVING NEW-DUES
ADD UNION-DUES TO NEW-DUES
MOVE INSURANCE TO OLD-INSURANCE
MULTIPLY INSURANCE BY .03 GIVING NEW-INSURANCE
ADD INSURANCE TO NEW-INSURANCE
NEW-DUES 和 NEW-INSURANCE 定义如下。
05 NEW-DUES PIC Z9(4).99.
05 NEW-INSURANCE PIC Z9(4).99.
感谢您的任何帮助。