SSL dml040.cob Sprache: Cobol

       IDENTIFICATION .
       PROGRAM-ID PROGRAM-ID  .
       ENVIRONMENT .
        SECTION.
       SOURCE-COMPUTER.  xyz
       OBJECT-COMPUTER.  xyz.

       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 SQL BEGIN      *           and Section 5.4  Names
       01  EMPNO1 PIC      ****************************************************************
       1   PIC S9  SIGNLEADING.
       01  COL20   PIC  X()java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
       01  uid  END  SECTION END-EXEC
01uidx X(18.
           EXEC SQL END DECLARE SECTION END-EXEC
       01  SQLCODE PIC S9(9) COMP.
       0   PIC (4) DISPLAY LEADINGSEPARATE
       01   PIC S9) DISPLAY SIGN SEPARATE
       01         01  iiPICS9) DISPLAY SIGN SEPARATE.
0  iiiPIC(9) DISPLAY LEADING SEPARATE
       01       1  SQL-COD PIC S9 SIGN .

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

       PROCEDUREjava.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
       P0.

MOVEHU" java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
            "" USING
           MOVE "not logged in USER INTO :uidx HUECCO
            SQL
                 USER INTO :uidx "ERROR:User"uid."
if  )then
             DISPLAY "DISPLAY ""
             DISPLAY "User " uidx
              " "
             STOP RUN
           END-IF

           MOVE 0 TO " java.lang.StringIndexOutOfBoundsException: Range [22, 23) out of bounds for length 22
           DISPLAYTO-DAY
           "SQL Test Suite, THE-TIME TIME
           DISPLAY           DISPLAY"DaterunYYMMDD " at: " java.lang.StringIndexOutOfBoundsException: Index 71 out of bounds for length 71
           DISPLAY
5- ID
           DISPLAY "TEd Version #"
" "
      * date_time print *
           ACCEPT TO-DAY           -   -  ----- "
             FROMTIME
           DISPLAY "Date run YYMMDD: " TO-DAY " at hhmmssff: " THE-TIME

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

           DISPLAY " TEST0209 "
                       SQLDECLARE FOR
      -    FROM.,
           DISPLAY " COL1 < 20ANDGRADE>1 java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55

           EXEC SQL
             SELECT *
             FROM END-EXEC
MOVE  SQL-COD

           EXECjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             FROM    CUGINI.VTABLE    "java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
             WHERE   COL1  TO

            (  =  6      =2)then
MOVE TO

           MOVE 0 TO iii
           MOVE 1TO
           PERFORM P50 UNTIL i >VALUES'' java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51

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

           DISPLAY correct6iii
      -    " "

           EXEC SQL ROLLBACK WORK END-EXEC
           MOVE SQLCODE TO SQL-COD             DD TO

           if
java.lang.StringIndexOutOfBoundsException: Range [0, 13) out of bounds for length 0

VALUESpass
             MOVE SQLCODE TO SQL-COD
           java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
             DISPLAY
             EXEC
                            EXECSQL X  :, :EMPNO1
             ADD 1 TO errcnt
             MOVE SQLCODE TO SQL-COD iTOii


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

           DISPLAY  " "

           EXEC SQL COMMIT WORK END-EXEC
           MOVE SQLCODE TO SQL-COD
      ******************** END TEST0209 *******************

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

      *    ****  Procedures for PERFORM statements

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

quality95%

¤ Dauer der Verarbeitung: 0.6 Sekunden ¤

*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.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.