Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/flutter/9.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
在cobol中添加两个整数会产生不需要的结果_Cobol_Gnucobol - Fatal编程技术网

在cobol中添加两个整数会产生不需要的结果

在cobol中添加两个整数会产生不需要的结果,cobol,gnucobol,Cobol,Gnucobol,我正在将一个文件读入一个表,注意第一行不是表的一部分 1000 MS 1 - Join Grps Group Project 5 5 Four Programs Programming 15 9 Quiz 1 Quizzes 10 7 FORTRAN

我正在将一个文件读入一个表,注意第一行不是表的一部分

1000
MS 1 - Join Grps    Group Project       5             5             
Four Programs       Programming         15            9             
Quiz 1              Quizzes             10            7             
FORTRAN             Programming         25            18            
Quiz 2              Quizzes             10            9             
HW 1 - Looplang     Homework            20            15            
在代码中,该表表示如下:

01     GRADES.
05         GRADE OCCURS 1 TO 100 TIMES DEPENDING ON RECORD-COUNT INDEXED BY J.
10            ASSIGNMENT-NAME   PIC X(20).
10            CATEGORY          PIC X(20).
10            POINTS-POSSIBLE   PIC 9(14).
10            POINTS-EARNED     PIC 9(14).
我还有一些其他的累加器变量,用于以后计算总和/百分比

01     RECORD-COUNT             PIC 9(8) VALUE 0.
01     TOTAL-EARNED-POINTS      PIC 9(14).
01     TOTAL-POSSIBLE-POINTS    PIC 9(14) VALUE 0.
我的问题是,当我逐行阅读记录时,我想做以下工作:

ADD POINTS-EARNED(RECORD-COUNT) TO TOTAL-EARNED-POINTS
其中,RECORD-COUNT是迭代中的当前位置。 我希望第一次迭代后的总赢得分数的值仅为5,对吗? 但是,当我显示总分时,控制台显示:

50000000000000
这是50万亿吗?或者它是数字5的一个滑稽的表现? 我如何写这篇文章,这样我就可以用它做适当的数学运算,从而打印出一份适当的成绩报告

编辑:我知道可能有更好的方法来编写这个程序,但在尝试编写这个程序之前,我从未使用过cobol,我可能不会再使用它,或者至少在很长一段时间内不会使用它。这是一个类,所以只要我能正确打印我的输出,我就很好。 完整代码,到目前为止:

IDENTIFICATION DIVISION.
PROGRAM-ID. GRADEREPORT.
AUTHOR. JORDAN RENAUD.
DATE-WRITTEN. 09/18/2020.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
       SELECT GRADES-FILE ASSIGN TO "bill"
           ORGANIZATION IS LINE SEQUENTIAL
           ACCESS IS SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD GRADES-FILE.
01     INPUT-TOTAL-POINTS       PIC 9(4).
01     INPUT-GRADES.
05         INPUT-GRADE OCCURS 1 to 100 TIMES DEPENDING ON RECORD-COUNT INDEXED BY I.
10            INPUT-ASSIGNMENT-NAME   PIC X(20).
10            INPUT-CATEGORY          PIC X(20).
10            INPUT-POINTS-POSSIBLE   PIC 9(14).
10            INPUT-POINTS-EARNED     PIC 9(14).

WORKING-STORAGE SECTION.
77     GRADES-FILE-EOF          PIC 9.
01     RECORD-COUNT             PIC 9(8) VALUE 0.
01     TOTAL-EARNED-POINTS      PIC 9(4) VALUE ZERO.
01     TOTAL-POSSIBLE-POINTS    PIC 9(14) VALUE 5.
01     K                        PIC 9(14) VALUE 1.
01     TMP                      PIC 9(14).
01     CURRENT-CATEGORY         PIC X(20).
01     CATEGORY-WEIGHT          PIC X(3).
01     LAST-CATEGORY            PIC X(20).
01     TOTAL-POINTS             PIC 9(4).
01     GRADES.
05         GRADE OCCURS 1 TO 100 TIMES DEPENDING ON RECORD-COUNT INDEXED BY J.
10            ASSIGNMENT-NAME   PIC X(20).
10            CATEGORY          PIC X(20).
10            POINTS-POSSIBLE   PIC 9(14).
10            POINTS-EARNED     PIC 9(14).

PROCEDURE DIVISION.
       OPEN INPUT GRADES-FILE.
       READ GRADES-FILE INTO TOTAL-POINTS.
       DISPLAY TOTAL-EARNED-POINTS
       PERFORM UNTIL GRADES-FILE-EOF = 1
           READ GRADES-FILE
              AT END SET
              GRADES-FILE-EOF TO 1
              NOT AT END
                 ADD 1 TO RECORD-COUNT
                 MOVE INPUT-GRADES TO GRADE(RECORD-COUNT)
                 SET TOTAL-EARNED-POINTS UP BY POINTS-EARNED(RECORD-COUNT)
                 DISPLAY TOTAL-EARNED-POINTS
           END-READ
       END-PERFORM.
       CLOSE GRADES-FILE.
       DISPLAY TOTAL-EARNED-POINTS.
       SORT GRADE ASCENDING CATEGORY.
       MOVE CATEGORY(1) TO LAST-CATEGORY.
       PERFORM RECORD-COUNT TIMES
           MOVE CATEGORY(K) TO CURRENT-CATEGORY
           IF CURRENT-CATEGORY = LAST-CATEGORY THEN
              DISPLAY "SAME CATEGORY"
           ELSE
              DISPLAY "NEW CATEGORY"
              MOVE LAST-CATEGORY TO CURRENT-CATEGORY
           END-IF
           SET K UP BY 1
       END-PERFORM
       DISPLAY GRADES.
       STOP RUN.
编辑2:在实现给定的答案以将输入从文件转换为数字形式时,表的第一行可以读取,但从那时起,它都是空白值。 这是READ块的新代码,我不确定是否有更有效的方法来读取和转换组字段中的特定字段,但我认为应该这样做

PERFORM UNTIL GRADES-FILE-EOF = 1
           READ GRADES-FILE
              AT END SET
              GRADES-FILE-EOF TO 1
              NOT AT END
                 ADD 1 TO RECORD-COUNT

                 MOVE INPUT-ASSIGNMENT-NAME(RECORD-COUNT) TO ASSIGNMENT-NAME(RECORD-COUNT)
                 DISPLAY INPUT-ASSIGNMENT-NAME(RECORD-COUNT)
                 DISPLAY ASSIGNMENT-NAME(RECORD-COUNT)

                 MOVE INPUT-CATEGORY(RECORD-COUNT) TO CATEGORY(RECORD-COUNT)
                 DISPLAY INPUT-CATEGORY(RECORD-COUNT)
                 DISPLAY CATEGORY(RECORD-COUNT)

                 MOVE FUNCTION NUMVAL (INPUT-POINTS-POSSIBLE(RECORD-COUNT)) TO POINTS-POSSIBLE(RECORD-COUNT)
                 DISPLAY INPUT-POINTS-POSSIBLE(RECORD-COUNT)
                 DISPLAY POINTS-POSSIBLE(RECORD-COUNT)

                 MOVE FUNCTION NUMVAL (INPUT-POINTS-EARNED(RECORD-COUNT)) TO POINTS-EARNED(RECORD-COUNT)
                 DISPLAY INPUT-POINTS-EARNED(RECORD-COUNT)
                 DISPLAY POINTS-EARNED(RECORD-COUNT)

                 COMPUTE TOTAL-EARNED-POINTS = TOTAL-EARNED-POINTS + POINTS-EARNED(RECORD-COUNT)
                 DISPLAY TOTAL-EARNED-POINTS
           END-READ
       END-PERFORM.
这是数字5的一个滑稽的表现吗

否,这是一个未经检查的致命异常:EC-DATA-COMPACATED

原因是: 您的数据定义和记录定义不匹配:

图914得10分

会是

 "00000000000005"
不是

这似乎是一个更好的定义

10 SOME-POSSIBILY-NUMERIC-DATA PIC X(14).
如果您按照标记的建议使用GnuCOBOL,那么将-debug添加到compile命令中,您将看到致命的异常停止程序。在我看来,COBOL标准定义默认情况下关闭所有异常检查:因为遗留问题和性能,但至少对于开发和测试来说,激活它们是非常合理的[在大多数情况下,更合理的做法是让程序异常终止,而不是在测试结束时做错误的数学运算]


与任何计算机语言一样,您应该非常确保拥有有效的数据—永远不要信任外部数据,无论它是区块链的一部分还是您读入的文本文件

我怎样才能写这篇文章,这样我就可以用它来做适当的数学运算 打印一份合适的成绩报告

如果您想使用错误数据,请忽略此错误数据,这可能适用于此处,只需将其转换为:

MOVE FUNCTION NUMVAL (SOME-POSSIBILY-NUMERIC-DATA)
  TO POINTS-EARNED(RECORD-COUNT)
否则,执行完全数字[own check]或在左/右函数TEST-NUMVAL中可能有空格的数字的显式检查,并在SYSERR或任何适合您的情况下停止程序/通过显示跳过错误行

这是数字5的一个滑稽的表现吗

否,这是一个未经检查的致命异常:EC-DATA-COMPACATED

原因是: 您的数据定义和记录定义不匹配:

图914得10分

会是

 "00000000000005"
不是

这似乎是一个更好的定义

10 SOME-POSSIBILY-NUMERIC-DATA PIC X(14).
如果您按照标记的建议使用GnuCOBOL,那么将-debug添加到compile命令中,您将看到致命的异常停止程序。在我看来,COBOL标准定义默认情况下关闭所有异常检查:因为遗留问题和性能,但至少对于开发和测试来说,激活它们是非常合理的[在大多数情况下,更合理的做法是让程序异常终止,而不是在测试结束时做错误的数学运算]


与任何计算机语言一样,您应该非常确保拥有有效的数据—永远不要信任外部数据,无论它是区块链的一部分还是您读入的文本文件

我怎样才能写这篇文章,这样我就可以用它来做适当的数学运算 打印一份合适的成绩报告

如果您想使用错误数据,请忽略此错误数据,这可能适用于此处,只需将其转换为:

MOVE FUNCTION NUMVAL (SOME-POSSIBILY-NUMERIC-DATA)
  TO POINTS-EARNED(RECORD-COUNT)

否则,执行完全数字[自身检查]的显式检查,或在左/右函数TEST-NUMVAL上可能有空格的数字,并停止程序/跳过显示错误的行…在SYSERR或任何适合您的情况下。

永远不要信任外部数据,无论它是区块链的一部分还是您在这种情况下读取的文本文件,我想我必须解析和转换内部数据换句话说,这是作业所需的文件格式,所以我能做的不多。一旦我实施并测试了解决方案,我会将其标记为接受答案。永远不要相信外部数据,不管它是区块链的一部分还是你在这方面读到的文本文件,我想我必须解析和转换inputs,这是作业所需的文件格式,所以我能做的不多。我会标记这个 一旦我实现并测试了解决方案,这就是公认的答案。