logo标签列表

如果用户在COBOL中输入到一个文件中，文件中的十进制值是什么？

cobol
3
又是一个关于COBOL的问题。我一直在尝试使用COBOL，但问题在于我需要在输入文件中输入十进制值。因此，在输入文件中的输出应该长这样：
2019-00042Alexander Bell           1.501.752.25
...

这些数字是测验中的成绩，范围为1.00到5.00。 所以我猜，在我的代码中命名为INF-PRINT-LINE的打印行中，我必须将其声明为：
01  INF-PRINT-LINE.
    02 SNO-IN PIC X(10).
    02 SNAME-IN PIC X(25).
    02 Q1-IN PIC 9.9(2).
    02 Q2-IN PIC 9.9(2).
    02 Q3-IN PIC 9.9(2).

现在在 WORKING-STORAGE SECTION 中，我已经声明了三个单独的变量 (STUD-QX-IN)，以便稍后将其移动到 INF-PRINT-LINE 变量 (QX-IN) 中，如下所示:

01 STUD-Q1-IN PIC 999.
01 STUD-Q2-IN PIC 999.
01 STUD-Q3-IN PIC 999.

现在，当执行此程序时，由于第45列中将显示DISPLAY行，我有机会查看STUD-QX-IN和QX-IN的值。因此，程序现在应该在命令行上像这样：
    ENTER STUDENT NUMBER:         2019-00042
    ENTER STUDENT NAME:           Alexander Bell
    ENTER QUIZ 1:                 150       150       0.00
    ENTER QUIZ 2:                 175       175       5.00
    ENTER QUIZ 3:                 225       225       5.00
                             ENTER ANOTHER STUDENT(Y/N)

现在你可以看到，传递给 QX-IN 变量的只是 STUD-QX-IN 的最后一位数字，现在输入文件应该像这样而不是我之前想的那样：

2019-00042Alexander Bell           0.005.005.00
...

我应该在 STUD-QX-IN 上声明什么，才能将正确的值传递给 QX-IN？ 我尝试在 STUD-QX-IN 上使用 PIC 9V99 ，但它也无法正常工作。 难道 QX-IN 的 PIC 子句值本来就是错误的吗？

以下是完整代码：

      * -----------------------------
       IDENTIFICATION DIVISION.
       PROGRAM-ID. exercise.
      * -----------------------------
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
      *    INPUT
           
      *    OUTPUT
           SELECT INF-STUD-GRADES ASSIGN TO "STUDENTGRADES.DAT".
       DATA DIVISION.
       FILE SECTION.
       FD  INF-STUD-GRADES.
       01  INF-PRINT-REC PIC X(80).
       WORKING-STORAGE SECTION.
       *> INPUT THE ANSWER IN THIS SECTION
       01  INF-PRINT-LINE.
           02 SNO-IN PIC X(10).
           02 SNAME-IN PIC X(25).
           02 Q1-IN PIC 9.9(2).
           02 Q2-IN PIC 9.9(2).
           02 Q3-IN PIC 9.9(2).
       01  ANS PIC X VALUE 'Y'.
       01  L PIC 9.
       01 STUD-NO-IN PIC X(10).
       01 STUD-NAME-IN PIC X(25).
       01 STUD-Q1-IN PIC 999.
       01 STUD-Q2-IN PIC 999.
       01 STUD-Q3-IN PIC 999.
       SCREEN SECTION.
       01  BSCRN.
           02  BLANK SCREEN.
       PROCEDURE DIVISION.
           OPEN OUTPUT INF-STUD-GRADES.
           PERFORM INPUT-GRADES-RTN UNTIL ANS = 'N' OR ANS = 'n'.
           PERFORM CLOSE-INPUT-GRADES-RTN.
           PERFORM FINAL-CLOSE-RTN.

       INPUT-GRADES-RTN.
           DISPLAY BSCRN.
           MOVE 4 TO L.
           DISPLAY "ENTER STUDENT NUMBER: " LINE L COLUMN 5.
           ACCEPT STUD-NO-IN LINE L COLUMN 35.
           MOVE STUD-NO-IN TO SNO-IN.
           ADD 1 TO L.
           DISPLAY "ENTER STUDENT NAME: " LINE L COLUMN 5.
           ACCEPT STUD-NAME-IN LINE L COLUMN 35.
           MOVE STUD-NAME-IN TO SNAME-IN.
           ADD 1 TO L.
           DISPLAY "ENTER QUIZ 1: " LINE L COLUMN 5.
           ACCEPT STUD-Q1-IN LINE L COLUMN 35.
           DISPLAY STUD-Q1-IN LINE L COLUMN 45.
           MOVE STUD-Q1-IN TO Q1-IN.
           DISPLAY Q1-IN LINE L COLUMN 55.
           ADD 1 TO L.
           DISPLAY "ENTER QUIZ 2: " LINE L COLUMN 5.
           ACCEPT STUD-Q2-IN LINE L COLUMN 35.
           DISPLAY STUD-Q2-IN LINE L COLUMN 45.
           MOVE STUD-Q2-IN TO Q2-IN.
           DISPLAY Q2-IN LINE L COLUMN 55.
           ADD 1 TO L.
           DISPLAY "ENTER QUIZ 3: " LINE L COLUMN 5.
           ACCEPT STUD-Q3-IN LINE L COLUMN 35.
           DISPLAY STUD-Q3-IN LINE L COLUMN 45.
           MOVE STUD-Q3-IN TO Q3-IN.
           DISPLAY Q3-IN LINE L COLUMN 55.
           ADD 2 TO L.
           
           WRITE INF-PRINT-REC FROM INF-PRINT-LINE BEFORE 1 LINE.

           DISPLAY "ENTER ANOTHER STUDENT(Y/N)" LINE L COLUMN 30.
           ACCEPT ANS.

       CLOSE-INPUT-GRADES-RTN.
           CLOSE INF-STUD-GRADES.

       FINAL-CLOSE-RTN.
           STOP RUN.
1个回答
5
你需要将定义为9v99的字段移动到输出字段。其中v表示小数点。
你可以这样做：
    01 work fields
       03 STUD-Q1-IN PIC 999.
       03 STUD-Q1-IN-V redefines STUD-Q1-IN PIC 9v99.
       03 STUD-Q2-IN PIC 999.
       03 STUD-Q2-IN-V redefines STUD-Q2-IN PIC 9v99.
       03 STUD-Q3-IN PIC 999.
       03 STUD-Q3-IN-V redefines STUD-Q3-IN PIC 9v99.

然后你需要做...

           MOVE STUD-Q1-IN-V TO Q1-IN.

你也可以这样做

     compute Q1-IN = STUD-Q1-IN / 100
     end-compute

重新定义关键字

Redefines 关键字可以让你为字段提供不同的定义。

因此，如果您执行以下操作：

    Move 123     to STUD-Q1-IN.

那么。
  STUD-Q1-IN = 123
  STUD-Q1-IN-V = 1.23
网页内容由stack overflow 提供, 点击上面的
可以查看英文原文，
原文链接