0

我正在从我的数据库中获取数据，其中一个条件将始终相同，而另一个条件将具有从 1 到 13 的值。查询必须执行 13 次，每个值执行一次。

一切都会编译，但是当我查看输出时，我注意到用于从SELECT语句中检索数据的值永远不会包含任何值。当我在 SQL Server Management Studio 中使用硬编码语句执行完全相同的查询时WHERE，会按预期检索数据。SQLCODE我收到的是100.

当我省略PERFORM VARYING循环并提供我的查询硬编码数据时，我的QUESTION-CODE和ANSWER-CODE字段包含正确的数据，但第AMOUNT一个是空的，然后是零。

我在 SQL Server 2012 中使用 OpenCobol 编译器。

我在看什么？

01 WS-FIELDS.
    05 I PIC 9(2).

01 WS-EVALUATION.
    05 QUESTION-CODE PIC 9(3).
    05 ANSWER-CODE PIC 9(3).

01 WS-RESULT.
    05 OV PIC 9(3).
    05 V PIC 9(3).
    05 G PIC 9(3).
    05 ZG PIC 9(3).
    05 NVT PIC 9(3).
    05 AMOUNT PIC 9(3).

LINKAGE SECTION.
    01 ROUTE-CODE PIC X(10) VALUE SPACES.

   EXEC SQL
    DECLARE crs 
     CURSOR FOR
      SELECT QuestionCode, AnswerCode, COUNT(AnswerCode)
      FROM Answers
      WHERE Route = :ROUTE-CODE AND QuestionCode= :I
      GROUP BY QuestionCode, AnswerCode
    END-EXEC

    EXEC SQL
     OPEN crs
    END-EXEC

    PERFORM UNTIL SQLCODE <> 0
     PERFORM VARYING I FROM 1 BY 1 UNTIL I = 13

      EXEC SQL
       FETCH crs INTO :QUESTION-CODE, :ANSWER-CODE, AMOUNT
      END-EXEC

      IF SQLCODE = 0
       EVALUATE TRUE 
        WHEN ANSWER-CODE = 1
         MOVE AMOUNT TO OV
        WHEN ANSWER-CODE = 2
         MOVE AMOUNT TO V
        WHEN ANSWER-CODE = 3
         MOVE AMOUNT TO G
        WHEN ANSWER-CODE = 4
         MOVE AMOUNT TO ZG
        WHEN ANSWER-CODE = 5
         MOVE AMOUNT TO NVT
        WHEN OTHER
         DISPLAY "Error" UPON SYSOUT
       END-EVALUATE
      END-IF

     END-PERFORM
    END-PERFORM
   .
4

1 回答 1

2

更改如下：

    EXEC SQL
     DECLARE crs 
      CURSOR FOR
        SELECT QuestionCode, AnswerCode, COUNT(AnswerCode)
        FROM Answers
        WHERE Route = :ROUTE-CODE AND QuestionCode between 1 and 13
        GROUP BY QuestionCode, AnswerCode
        Order By QuestionCode
    END-EXEC

    EXEC SQL
     OPEN crs
    END-EXEC

    EXEC SQL
     FETCH crs
       ......
    END-EXEC

    PERFORM UNTIL SQLCODE <> 0

      EXEC SQL
        FETCH crs
          ......
      END-EXEC
    End-Perform

注意：您可能需要根据数据/逻辑检查是否缺少 QuestionCode

同样在 Cobol PERFORM UNTIL SQLCODE <> 0 在大多数语言中实际上是一个 while 循环。如果您希望在循环结束时完成测试，请使用With Test After选项。

或者，您可以在每一行的循环中删除光标和选择。

于 2013-05-11T22:26:15.007 回答