Quelle dml073.cob Sprache: Cobol

       IDENTIFICATION DIVISION.
       PROGRAM-ID.  DML073.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.  xyz.
       OBJECT-COMPUTER.  xyz.
       DATA DIVISION.
       WORKING-STORAGE SECTION.

      * Standard COBOL (file "DML073.SCO") calling SQL
      * procedures in file "DML073.MCO".

      ****************************************************************
      *
      *                 COMMENT SECTION
      *
      * DATE 1989/08/21 STANDARD COBOL LANGUAGE
      * NIST SQL VALIDATION TEST SUITE V6.0
      *  DISCLAIMER:
      *  This program was written by employees of NIST to test SQL
      *  implementations for conformance to the SQL standards.
      *  NIST assumes no responsibility for any party's use of
      *  this program.
      *
      * DML073.SCO
      * WRITTEN BY: SUN DAJUN
      *
      *   THIS ROUTINE TESTS SUM, AVG, MAX ON JOINED TABLE
      *
      * REFERENCES
      *       AMERICAN NATIONAL STANDARD database language -
      *       X3.135-1989, 8.10, GR 9 c)
      *
      ****************************************************************

      * EXEC SQL BEGIN DECLARE SECTION END-EXEC
       01  EMPNO1 PIC  X(3).
       01  HOUR1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  HOUR2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  uid PIC  X(18).
       01  uidx PIC X(18).
       01  GRD1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  GRD2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  AVG1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  AVG2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  SUM1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  CNT1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  MAX1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  MIN1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
      *  EXEC SQL END DECLARE SECTION END-EXEC

       01  SQLCODE PIC S9(9) COMP.
       01  errcnt PIC S9(4) DISPLAY SIGN LEADING SEPARATE.

       01  ifpass PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  lpcnt PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

       01  SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

      * date_time declaration *
       01  TO-DAY PIC 9(6).
       01  THE-TIME PIC 9(8).

       PROCEDURE DIVISION.
       P0.

             MOVE "HU" TO uid
             CALL "AUTHID" USING uid
           MOVE "not logged in, not" TO uidx
           CALL "AUTHCK" USING SQLCODE uidx
           MOVE SQLCODE TO SQL-COD
           if (uid NOT = uidx) then
            DISPLAY "ERROR: User " uid " expected."
            DISPLAY "User " uidx " connected."
            DISPLAY " "
            STOP RUN
           END-IF

           MOVE 0 TO errcnt
           DISPLAY
           "SQL Test Suite, V6.0, Module COBOL, dml073.sco"
           DISPLAY " "
           DISPLAY
           "59-byte ID"
           DISPLAY "TEd Version #"
           DISPLAY " "
      * date_time print *
           ACCEPT TO-DAY FROM DATE
           ACCEPT THE-TIME FROM TIME
           DISPLAY "Date run YYMMDD: " TO-DAY " at hhmmssff: " THE-TIME
      ******************** BEGIN TEST0393 *******************

             DISPLAY " TEST0393 "
             DISPLAY " SUM, MAX on Cartesian product"
             DISPLAY " Reference: ANSI X3.135-1989 5.8"
             DISPLAY " 5.20 GR 2b"
             DISPLAY " - - - - - - - - - - - - - - - - - - - - - - -"
             DISPLAY  " "
             DISPLAY " SELECT SUM(HOURS), MAX(HOURS)"
             DISPLAY " INTO :HOUR1, :HOUR2"
             DISPLAY " FROM STAFF, WORKS;"

      *  EXEC SQL SELECT SUM(HOURS), MAX(HOURS)
      *    INTO :HOUR1, :HOUR2
      *    FROM  STAFF, WORKS END-EXEC
             CALL "SUB1" USING SQLCODE HOUR1 HOUR2
             MOVE SQLCODE TO SQL-COD

             DISPLAY "The correct answer is:"
             DISPLAY " 2320, 80"
             DISPLAY "Your answer is:"
             DISPLAY " ", HOUR1 ", ", HOUR2
             if (HOUR1  =  2320  AND  HOUR2  =  80) then
               DISPLAY " *** pass *** "
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0393','pass','MCO') END-EXEC
               CALL "SUB2" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY " dml073.sco *** fail *** "
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0393','fail','MCO') END-EXEC
             ADD 1 TO errcnt
               CALL "SUB3" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
             END-IF
             DISPLAY
             "===================================================="
      *  EXEC SQL COMMIT WORK END-EXEC
             CALL "SUB4" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST0393 *******************

      ******************** BEGIN TEST0394 *******************

             DISPLAY " TEST0394 "
             DISPLAY " AVG, MIN on joined table with WHERE without
      -    " GROUP"
             DISPLAY " Reference: ANSI X3.135-1989 5.8 5.21"
             DISPLAY " - - - - - - - - - - - - - - - - - - - - - - -"
             DISPLAY  " "
             DISPLAY " SELECT AVG(HOURS), MIN(HOURS)"
             DISPLAY " INTO :HOUR1, :HOUR2"
             DISPLAY " FROM STAFF, WORKS"
             DISPLAY " WHERE STAFF.EMPNUM = 'E2'"
             DISPLAY " AND STAFF.EMPNUM =
      -    " WORKS.EMPNUM;"

      *  EXEC SQL SELECT AVG(HOURS), MIN(HOURS)
      *    INTO :HOUR1, :HOUR2
      *    FROM  STAFF, WORKS
      *    WHERE STAFF.EMPNUM = 'E2'
      *    AND STAFF.EMPNUM = WORKS.EMPNUM END-EXEC
             CALL "SUB5" USING SQLCODE HOUR1 HOUR2
             MOVE SQLCODE TO SQL-COD

             DISPLAY "The correct answer is:"
             DISPLAY " 60, 40"
             DISPLAY "Your answer is:"
             DISPLAY " ", HOUR1 ", ", HOUR2
             if (HOUR1  =  60  AND  HOUR2  =  40) then
               DISPLAY " *** pass *** "
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0394','pass','MCO') END-EXEC
               CALL "SUB6" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY " dml073.sco *** fail *** "
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0394','fail','MCO') END-EXEC
             ADD 1 TO errcnt
               CALL "SUB7" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
             END-IF
             DISPLAY
             "===================================================="
      *  EXEC SQL COMMIT WORK END-EXEC
             CALL "SUB8" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST0394 *******************

      ******************** BEGIN TEST0395 *******************

             DISPLAY " TEST0395 "
             DISPLAY "SUM, MIN on joined table with GROUP without WHERE"
             DISPLAY " Reference: ANSI X3.135-1989 5.8 5.22"
             DISPLAY " - - - - - - - - - - - - - - - - - - - - - - -"
             DISPLAY  " "
             DISPLAY " DECLARE JUPITER CURSOR FOR "
             DISPLAY " SELECT STAFF.EMPNUM, SUM(HOURS),
      -    " MIN(HOURS)"
             DISPLAY " FROM STAFF, WORKS"
             DISPLAY " GROUP BY STAFF.EMPNUM"
             DISPLAY " ORDER BY 1;"
             DISPLAY  " "

      *  EXEC SQL DECLARE JUPITER CURSOR FOR
      *    SELECT STAFF.EMPNUM, SUM(HOURS), MIN(HOURS)
      *    FROM  STAFF, WORKS
      *    GROUP BY STAFF.EMPNUM
      *    ORDER BY 1 END-EXEC

             DISPLAY "The correct answer is:"
             DISPLAY " E1, 464, 12"
             DISPLAY " E2, 464, 12"
             DISPLAY " E3, 464, 12"
             DISPLAY " E4, 464, 12"
             DISPLAY " E5, 464, 12"
             DISPLAY "Your answer is:"
             MOVE 1 TO ifpass
      *  EXEC SQL OPEN JUPITER END-EXEC
             CALL "SUB9" USING SQLCODE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL FETCH JUPITER INTO :EMPNO1, :HOUR1, :HOUR2
      *  END-EXEC
             CALL "SUB10" USING SQLCODE EMPNO1 HOUR1 HOUR2
             MOVE SQLCODE TO SQL-COD
             DISPLAY " ", EMPNO1 ", ", HOUR1 ", ", HOUR2
             if (HOUR1  NOT =  464  OR  HOUR2  NOT =  12  OR  EMPNO1
             NOT  =   "E1") then
               MOVE 0 TO ifpass
             END-IF
      *  EXEC SQL FETCH JUPITER INTO :EMPNO1, :HOUR1, :HOUR2
      *  END-EXEC
             CALL "SUB11" USING SQLCODE EMPNO1 HOUR1 HOUR2
             MOVE SQLCODE TO SQL-COD
             DISPLAY " ", EMPNO1 ", ", HOUR1 ", ", HOUR2
             if (HOUR1  NOT =  464  OR  HOUR2  NOT =  12  OR  EMPNO1
             NOT  =   "E2") then
               MOVE 0 TO ifpass
             END-IF
      *  EXEC SQL FETCH JUPITER INTO :EMPNO1, :HOUR1, :HOUR2
      *  END-EXEC
             CALL "SUB12" USING SQLCODE EMPNO1 HOUR1 HOUR2
             MOVE SQLCODE TO SQL-COD
             DISPLAY " ", EMPNO1 ", ", HOUR1 ", ", HOUR2
             if (HOUR1  NOT =  464  OR  HOUR2  NOT =  12  OR  EMPNO1
             NOT  =   "E3") then
               MOVE 0 TO ifpass
             END-IF
      *  EXEC SQL FETCH JUPITER INTO :EMPNO1, :HOUR1, :HOUR2
      *  END-EXEC
             CALL "SUB13" USING SQLCODE EMPNO1 HOUR1 HOUR2
             MOVE SQLCODE TO SQL-COD
             DISPLAY " ", EMPNO1 ", ", HOUR1 ", ", HOUR2
             if (HOUR1  NOT =  464  OR  HOUR2  NOT =  12  OR  EMPNO1
             NOT  =   "E4") then
               MOVE 0 TO ifpass
             END-IF
      *  EXEC SQL FETCH JUPITER INTO :EMPNO1, :HOUR1, :HOUR2
      *  END-EXEC
             CALL "SUB14" USING SQLCODE EMPNO1 HOUR1 HOUR2
             MOVE SQLCODE TO SQL-COD
             DISPLAY " ", EMPNO1 ", ", HOUR1 ", ", HOUR2
             if (HOUR1  NOT =  464  OR  HOUR2  NOT =  12  OR  EMPNO1
             NOT  =   "E5") then
               MOVE 0 TO ifpass
             END-IF
      *  EXEC SQL FETCH JUPITER INTO :EMPNO1, :HOUR1, :HOUR2
      *  END-EXEC
             CALL "SUB15" USING SQLCODE EMPNO1 HOUR1 HOUR2
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0) then
      *    EXEC SQL CLOSE JUPITER END-EXEC
               CALL "SUB16" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
             END-IF
             if (ifpass  =  1) then
               DISPLAY " *** pass *** "
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0395','pass','MCO') END-EXEC
               CALL "SUB17" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY " dml073.sco *** fail *** "
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0395','fail','MCO') END-EXEC
             ADD 1 TO errcnt
               CALL "SUB18" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
             END-IF
             DISPLAY
             "===================================================="
      *  EXEC SQL COMMIT WORK END-EXEC
             CALL "SUB19" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST0395 *******************

      ******************** BEGIN TEST0396 *******************

             DISPLAY " TEST0396 "
             DISPLAY "SUM, MIN on joined table with WHERE,GROUP
      -    " BY,HAVING"
             DISPLAY " Reference: ANSI X3.135-1989 5.8 5.21 5.22 5.23"
             DISPLAY " - - - - - - - - - - - - - - - - - - - - - - -"
             DISPLAY  " "
             DISPLAY " DECLARE VENUS CURSOR FOR"
             DISPLAY " SELECT STAFF.EMPNUM, AVG(HOURS),
      -    " MIN(HOURS)"
             DISPLAY " FROM STAFF, WORKS"
             DISPLAY " WHERE STAFF.EMPNUM IN ('E1','E4','E3')
      -    " AND"
             DISPLAY " STAFF.EMPNUM = WORKS.EMPNUM"
             DISPLAY " GROUP BY STAFF.EMPNUM"
             DISPLAY " HAVING COUNT(*) > 1"
             DISPLAY " ORDER BY 1;"
             DISPLAY  " "

      *  EXEC SQL DECLARE VENUS CURSOR FOR
      *    SELECT STAFF.EMPNUM, AVG(HOURS), MIN(HOURS)
      *    FROM  STAFF, WORKS
      *    WHERE STAFF.EMPNUM IN ('E1','E4','E3') AND
      *    STAFF.EMPNUM = WORKS.EMPNUM
      *    GROUP BY STAFF.EMPNUM
      *    HAVING COUNT(*) > 1
      *    ORDER BY 1 END-EXEC

             DISPLAY "The correct answer is:"
             DISPLAY " E1, 30 or 31, 12"
             DISPLAY " E4, 46 or 47, 20"
             DISPLAY "Your answer is:"
             MOVE 1 TO ifpass
      *  EXEC SQL OPEN VENUS END-EXEC
             CALL "SUB20" USING SQLCODE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL FETCH VENUS INTO :EMPNO1, :HOUR1, :HOUR2 END-EXEC
             CALL "SUB21" USING SQLCODE EMPNO1 HOUR1 HOUR2
             MOVE SQLCODE TO SQL-COD
             DISPLAY " ", EMPNO1 ", ", HOUR1 ", ", HOUR2
             if (HOUR1  <  30  OR  HOUR1  >  31  OR  HOUR2  NOT =  12
             OR  EMPNO1  NOT  =   "E1") then
               MOVE 0 TO ifpass
             END-IF
      *  EXEC SQL FETCH VENUS INTO :EMPNO1, :HOUR1, :HOUR2 END-EXEC
             CALL "SUB22" USING SQLCODE EMPNO1 HOUR1 HOUR2
             MOVE SQLCODE TO SQL-COD
             DISPLAY " ", EMPNO1 ", ", HOUR1 ", ", HOUR2
             if (HOUR1  <  46  OR  HOUR1  >  47  OR  HOUR2  NOT =  20
             OR  EMPNO1  NOT  =   "E4") then
               MOVE 0 TO ifpass
             END-IF
      *  EXEC SQL FETCH VENUS INTO :EMPNO1, :HOUR1, :HOUR2 END-EXEC
             CALL "SUB23" USING SQLCODE EMPNO1 HOUR1 HOUR2
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  =  0) then
               MOVE 0 TO ifpass
             END-IF
      *  EXEC SQL CLOSE VENUS END-EXEC
             CALL "SUB24" USING SQLCODE
             MOVE SQLCODE TO SQL-COD
             if (ifpass  =  1) then
               DISPLAY " *** pass *** "
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0396','pass','MCO') END-EXEC
               CALL "SUB25" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY " dml073.sco *** fail *** "
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0396','fail','MCO') END-EXEC
             ADD 1 TO errcnt
               CALL "SUB26" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
             END-IF
             DISPLAY
             "===================================================="
      *  EXEC SQL COMMIT WORK END-EXEC
             CALL "SUB27" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST0396 *******************

      ******************** BEGIN TEST0417 *******************

             DISPLAY " TEST0417 "
             DISPLAY " Cartesian product GROUP BY 2 columns with NULLs"
             DISPLAY " Reference: ANSI X3.135-1989 5.22 GR 2) 3)"
             DISPLAY " 5.11 GR 7)"
             DISPLAY " - - - - - - - - - - - - - - - - - - - - - - -"
             DISPLAY  " "
             DISPLAY " DECLARE PLUTO CURSOR FOR"
             DISPLAY " SELECT MAX(STAFF1.GRADE),
      -    " SUM(STAFF1.GRADE)"
             DISPLAY " FROM STAFF1, STAFF"
             DISPLAY " GROUP BY STAFF1.CITY, STAFF.CITY;"
             DISPLAY  " "

             MOVE 0 TO ifpass

      *  EXEC SQL DELETE FROM STAFF1 END-EXEC
             CALL "SUB28" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL INSERT INTO STAFF
      *    VALUES ('E6', 'David', 17, NULL) END-EXEC
             CALL "SUB29" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL INSERT INTO STAFF
      *    VALUES ('E7', 'Tony', 18, NULL) END-EXEC
             CALL "SUB30" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL INSERT INTO STAFF1
      *    SELECT * FROM STAFF END-EXEC
             CALL "SUB31" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL DECLARE PLUTO CURSOR FOR
      *    SELECT MAX(STAFF1.GRADE), SUM(STAFF1.GRADE)
      *    FROM STAFF1, STAFF
      *    GROUP BY STAFF1.CITY, STAFF.CITY END-EXEC

             DISPLAY "For groups containing MAX(GRADE) = 18,"
             DISPLAY "the correct answer is:"
             DISPLAY " 18, 35"
             DISPLAY " 18, 70"
             DISPLAY " 18, 70"
             DISPLAY " 18, 70"
             DISPLAY "Your answer is:"
      *  EXEC SQL OPEN PLUTO END-EXEC
             CALL "SUB32" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

             MOVE 1 TO lpcnt
             PERFORM P50 UNTIL lpcnt > 19
      *  EXEC SQL CLOSE PLUTO END-EXEC
             CALL "SUB33" USING SQLCODE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL ROLLBACK WORK END-EXEC
             CALL "SUB34" USING SQLCODE
             MOVE SQLCODE TO SQL-COD
             if (ifpass  =  301) then
               DISPLAY " *** pass *** "
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0417','pass','MCO') END-EXEC
               CALL "SUB35" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY " dml073.sco *** fail *** "
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0417','fail','MCO') END-EXEC
             ADD 1 TO errcnt
               CALL "SUB36" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
             END-IF
             DISPLAY
             "===================================================="
      *  EXEC SQL COMMIT WORK END-EXEC
             CALL "SUB37" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST0417 *******************

      ******************** BEGIN TEST0418 *******************

             DISPLAY " TEST0418 "
             DISPLAY " AVG, SUM, COUNT on Cartesian product with NULL"
             DISPLAY " Reference: ANSI X3.135-1989 5.8 GR 2)"
             DISPLAY " 5.9 GR 1)"
             DISPLAY " 5.11 GR 7)"
             DISPLAY " - - - - - - - - - - - - - - - - - - - - - - -"
             DISPLAY  " "
             DISPLAY " SELECT AVG(T1.COL4), AVG(T1.COL4 +
      -    " T2.COL4),"
             DISPLAY " SUM(T2.COL4), COUNT(DISTINCT
      -    " T1.COL4)"
             DISPLAY " INTO :AVG1, :AVG2, :SUM1, :CNT1"
             DISPLAY " FROM VTABLE T1, VTABLE T2;"
             DISPLAY  " "

      *  EXEC SQL SELECT AVG(T1.COL4), AVG(T1.COL4 + T2.COL4),
      *    SUM(T2.COL4), COUNT(DISTINCT T1.COL4)
      *    INTO :AVG1, :AVG2, :SUM1, :CNT1
      *    FROM VTABLE T1, VTABLE T2 END-EXEC
             CALL "SUB38" USING SQLCODE AVG1 AVG2 SUM1 CNT1
             MOVE SQLCODE TO SQL-COD

             DISPLAY "The correct answer is:"
             DISPLAY " 147 or 148, 295 or 296, 1772, 3"
             DISPLAY "Your answer is:"
             DISPLAY " ", AVG1 ", ", AVG2 ", ", SUM1 ", ", CNT1
             MOVE 1 TO ifpass
             if (CNT1  NOT =  3  OR  SUM1  NOT =  1772) then
               MOVE 0 TO ifpass
             END-IF
             if (AVG1  <  147  OR  AVG1  >  148) then
               MOVE 0 TO ifpass
             END-IF
             if (AVG2  <  295  OR  AVG2  >  296) then
               MOVE 0 TO ifpass
             END-IF
             if (ifpass  =  1) then
               DISPLAY " *** pass *** "
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0418','pass','MCO') END-EXEC
               CALL "SUB39" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY " dml073.sco *** fail *** "
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0418','fail','MCO') END-EXEC
             ADD 1 TO errcnt
               CALL "SUB40" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
             END-IF
             DISPLAY
             "===================================================="
      *  EXEC SQL COMMIT WORK END-EXEC
             CALL "SUB41" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST0418 *******************

      ******************** BEGIN TEST0419 *******************

             DISPLAY " TEST0419 "
             DISPLAY " SUM,MAX,MIN on joined table view "
             DISPLAY " Reference: ANSI X3.135-1989 5.8 GR 2)"
             DISPLAY " 6.9 GR 1)"
             DISPLAY " - - - - - - - - - - - - - - - - - - - - - - -"
             DISPLAY  " "
             DISPLAY " SELECT SUM(COST), MAX(COST), MIN(COST)"
             DISPLAY " INTO :SUM1, :MAX1, :MIN1"
             DISPLAY " FROM STAFF_WORKS_DESIGN;"
             DISPLAY  " "

      *  EXEC SQL SELECT SUM(COST), MAX(COST), MIN(COST)
      *    INTO :SUM1, :MAX1, :MIN1
      *    FROM STAFF_WORKS_DESIGN END-EXEC
             CALL "SUB42" USING SQLCODE SUM1 MAX1 MIN1
             MOVE SQLCODE TO SQL-COD

             DISPLAY "The correct answer is:"
             DISPLAY " 3488, 960, 288"
             DISPLAY "Your answer is:"
             DISPLAY " ", SUM1 ", ", MAX1 ", ", MIN1
             MOVE 1 TO ifpass
             if (SUM1  NOT =  3488) then
               MOVE 0 TO ifpass
             END-IF
             if (MAX1  NOT =  960) then
               MOVE 0 TO ifpass
             END-IF
             if (MIN1  NOT =  288) then
               MOVE 0 TO ifpass
             END-IF
             if (ifpass  =  1) then
               DISPLAY " *** pass *** "
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0419','pass','MCO') END-EXEC
               CALL "SUB43" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY " dml073.sco *** fail *** "
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0419','fail','MCO') END-EXEC
             ADD 1 TO errcnt
               CALL "SUB44" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
             END-IF
             DISPLAY
             "===================================================="
      *  EXEC SQL COMMIT WORK END-EXEC
             CALL "SUB45" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST0419 *******************

      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0
           STOP RUN.

      *    ****  Procedures for PERFORM statements

        P50.
               MOVE 0 TO GRD1
      *    EXEC SQL FETCH PLUTO INTO :GRD1, :GRD2 END-EXEC
               CALL "SUB46" USING SQLCODE GRD1 GRD2
               MOVE SQLCODE TO SQL-COD
               if (GRD1  =  18  AND  GRD2  =  35) then
                 COMPUTE ifpass = ifpass + 1
                 DISPLAY " ", GRD1 ", ", GRD2
               END-IF
               if (GRD1  =  18  AND  GRD2  =  70) then
                 COMPUTE ifpass = ifpass + 100
                 DISPLAY " ", GRD1 ", ", GRD2
               END-IF

             ADD 1 TO lpcnt
           .

quality100%

¤ Dauer der Verarbeitung: 0.6 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.