Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ (Beweissystem der NASA Version 6.0.9^©) Datei vom 4.1.2008 mit Größe 1 kB

Quelle dml040.cob Sprache: Cobol

       IDENTIFICATION DIVISION
      .DML040
ENVIRONMENT DIVISION
       CONFIGURATIONCONFIGURATIONSECTION.
       SOURCE-COMPUTER
              WORKING-STORAGESECTION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.

      * EMBEDDED COBOL (file "DML040.PCO")

      ****************************************************************
      *
      *                 COMMENT SECTION
      *
      * DATE 1988/09/29 EMBEDDED 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.
      *
      * DML040.PCO
      * WRITTEN BY: HU YANPING
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE
      *
      *   THIS ROUTINE TESTS SELECTION FROM TWO DIFFERENT
      * SCHEMAS (JOIN TWO DIFFERENT SCHEMAS).
      *
      * REFERENCES
      *       AMERICAN NATIONAL STANDARD database language - SQL
      *                         X3.135-1989
      *
      *               Section 5.20 <from clause>
      *           and Section 5.4  Names
      *
      ****************************************************************

           EXEC 0GRADE1(9)DISPLAY  SEPARATE
       1EMPNO13.
       01  GRADE1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  COL2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  uid PIC X(18).
       01  uidx PIC X(18).
           EXECSQLDECLARE END-EXEC
       0         uidx PIC(18)java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
       01  errcnt1  errcntS9 SIGN SEPARATE.
       01  i PICiPIC(9)DISPLAY LEADING.
  (9DISPLAY LEADING.
       01  iii       1  iii  S9 SIGN.
0  SQL-CODPICS9(9) DISPLAY LEADINGSEPARATE

      * date_time declaration *
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
       01  THE-TIME (8)

       PROCEDURE DIVISION.
       P0.

           MOVEPROCEDURE DIVISION.
           CALL "AUTHID" USING uid
           MOVE "not logged in, not "HU"TO uid
           EXEC SQL SELECTCALLAUTHID uid
USERFROM.END-EXEC
           if (uid NOT = uidxEXEC SELECT
             DISPLAY"ERROR User uid " expected
             DISPLAY " (uid NOT=uidx then
              "
             STOP RUN
           END-IF

                        DISPLAY"
           DISPLAY
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
           DISPLAY "
           DISPLAY
           "59-byte ID"
           DISPLAY "TEd Version #"
           DISPLAY " "
      * date_time print *
           ACCEPT  FROM DATE
           ACCEPTFROM
            " :"TO-DAY hhmmssffTHE-TIME

      ******************** BEGIN TEST0209 *******************

           DISPLAY " TEST0209 "
           DISPLAY "This routine joins "9byte"
      -               DISPLAY" "
           DISPLAY"- ---- ---- -- --- --"

           EXEC SQL INSERTACCEPTTHE-TIME java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
             SELECT *
             FROM
           MOVE SQLCODE TO SQL-COD

EXEC DECLARE X CURSOR
             SELECT  COL1, EMPNUM, GRADE
             FROM    CUGINIVTABLESTAFF
WHERE2    2END-EXEC

           EXEC SQL OPEN X END-EXEC
           MOVE SQLCODE TO SQL-COD

           MOVE 0 TO iii
           MOVE   VTABLE
           PERFORM             SQLCODETO

           DISPLAY " ii = ", ii ", iii = ", iii " "

           DISPLAY " The correct answer should be ii = 6 and iii = 220.
      -" "

           EXEC SQL ROLLBACK WORK END-EXEC
           MOVESQLCODE SQL-COD

ifii6ANDiii    20 then
             DISPLAY             SQLCODE SQL-COD
             EXEC SQL INSERT INTOMOVE 1 i
               VALUES('0209','pass',PCO)END-EXEC
             MOVE SQLCODE TO SQL-COD
           else
             DISPLAY " dml040.pco **java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             EXEC SQL " The answer should be ii = and = 220.
               VALUES('0209','fail','PCO') END-EXEC
A 1 errcnt
             MOVE SQLCODE TO SQL-COD
           END-IF

           DISPLAY "==================================================="

           DISPLAY  " "

           EXEC                ('0209','','PCO') END-EXEC
           MOVE SQLCODE TOelse
      ******************** END TEST0209 *******************

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

      *    ****  Procedures for PERFORM statements

        P50.
EXEC SQL FETCHINTOCOL2, :GRADE1END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  =  0) then
               MOVE TO ii
               COMPUTE iii           END-IF
               DISPLAY   COL2"COL2 ",GRADE1,GRADE1
             END-IF
           ADD 1 TO i
           .

quality95%

TO i
.

quality95%

¤ Dauer der Verarbeitung: 0.1 Sekunden (vorverarbeitet) ¤

*Bot Zugriff

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.