Quellcode-Bibliothek dml037.cob Sprache: Cobol

DIVISION
       PROGRAM-ID.
       ENVIRONMENT.
       CONFIGURATION SECTIONCONFIGURATION SECTION.
       SOURCE-COMPUTER.
       OBJECT-COMPUTER.  xyzDATADIVISION
       ATA.
       WORKING-STORAGE SECTION.

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

      ****************************************************************
      *
      *                 COMMENT SECTION
      *
      * DATE 1987/09/13 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.
      *
      * DML037.SCO
      * WRITTEN BY: HU YANPING
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL BY CHRIS SCHANZLE
      *
      * THIS PROGRAM TESTS THE USE OF VARIABLE NAMES AS COLUMN NAMES
      *              AND THE PLACEMENT OF SQL-STYLE COMMENTS
      *              WITHIN SQL STATEMENTS.
      *
      * REFERENCES
      *       AMERICAN NATIONAL STANDARD database language - SQL
      *                         X3.135-1989
      *
      *      SR3 of Annexes C, E, F; SR4 of Annex D.
      *      Section 5.3 <token>, <comment> definition
      ****************************************************************

      * EXEC SQL BEGIN DECLARE SECTION END-EXEC
       01  PNUM       * DATE 1987/09/13 STANDARD COBOL LANGUAGE
       01  EMPNUM      * NIST SQL VALIDATION TEST SUITE V6.0
       01  HOURS PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  CITY PIC  X(1      *  implementations for conformance to the SQL standards.
       01  GRADE PIC S9(9) DISPLAY SIGN      *  this program.
       01  str240 PIC  X(240).
      * EXEC SQL END DECLARE SECTION END-EXEC
             * NIST SQL VALIDATION TEST SUITE V6.0
       01      *  DISCLAIMER:
       01  uid PIC      *  This program was written by employees of NIST to test SQL
             * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL BY CHRIS SCHANZLE
      *
       01  SQLCODE PIC      *  NIST assumes no responsibility for any party's use of
       01      *  this program.

      * date_time declaration *
       01  TO-DAY PIC 9(6).
       01  THE-TIME      *                                                                    * WRITTEN BY: HU YANPING

       PROCEDURE DIVISION.
       P0.

           MOVE "HU"            *      SR3 of Annexes C, E, F; SR4 of Annex D.
           java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
           MOVE      *       AMERICAN NATIONAL STANDARD database language - SQL
           CALL "AUTHCK" USING      *
           MOVE SQLCODE TO SQL-COD
           ifuid = uidx
            DISPLAY "ERROR: User " uid " expected."
            DISPLAY "User "uidx"
            DISPLAY " "
            STOP      *      SR3 of Annexes C, E, F; SR4 of Annex D.
                  0  CITY  X(1).

           MOVE 0 TO      *      Section 5.3 <token>, <comment> definition
           java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
SQL1  S9SEPARATE
0HOURS () DISPLAY LEADING.
                   0  uid  X()java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
           5- "
           DISPLAY"EdVersion#java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
  java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
      * date_time print *
                  01  ii PIC 9(8.
ACCEPTTHE-TIME   PROCEDURE.
           DISPLAY" run YYMMDD: 1uidx X(8).
      ******************** BEGIN TEST0202 *******************

           DISPLAY " TEST0202 "
           DISPLAY "reference CALL "" USING uid
            "not logged in, not" TO uidxCALL"AUTHCK" USING SQLCODE uidx
           ISPLAY-- -  - --- --  ---  -   - --
      -    " -"

      * EXEC SQL DECLARE X CURSOR
      *  FOR SELECT EMPNUM,HOURS
      *  FROM   WORKS
      *  WHERE  PNUM='P2' END-EXEC
      * EXEC SQL OPEN X;
            java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
           MOVESQLCODE TO SQL-COD

           MOVE 0 TO ii
           MOVE 0 TO i
           PERFORM P50 UNTIL i > 9

           MOVE 0 TO GRADE
      * EXEC SQL SELECT STAFF.GRADE, STAFF.CITY
      *  INTO  :GRADE,:CITY
      *  FROM   STAFF
      *  WHERE  EMPNUM = 'E2' END-EXEC
           CALL "SUB2" USING SQLCODE GRADE CITY
           MOVE            DISPLAY " "

           DISPLAY " GRADE = ",           END-IF
           DISPLAY " ii = ", ii ", SQLCODE=", SQL-COD " "
                      MOVE        0  THE-TIME 9(8).
  " 10."
if=4   SQLCODEGRADE0 then
             DISPLAY " ***MOVE "U  uid
      *  EXEC SQL INSERT INTO TESTREPORT
      *    VALUES('0202','pass','MCO') END-EXEC
             CALL "SUB3" USING SQLCODE
             MOVE

DISPLAYdml037*"
      *  EXEC SQL INSERT INTO TESTREPORT
      *    VALUES('0202','fail','MCO') END-EXEC
rrcnt
             CALL "SUB4"             SQLCODETO
             MOVE      * date_time print *
           END-IF
            DISPLAY": User " uidexpected

           DISPLAY  ""
      * EXEC SQL COMMIT WORK;
            "SUB5" USING
           MOVE            DISPLAY " "

      ******************** END TEST0202 *******************

      ******************** BEGIN TEST0234 *******************

           DISPLAY " TEST0234 "
DISPLAY"Reference: ection .3 comment>"
           MOVE -Annex

      * EXEC SQL DELETE   -- we empty the table!
      *  FROM TEXT240 END-EXEC
           CALL"" USING      *  FOR SELECT EMPNUM,HOURS
           MOVE SQLCODE TO           DISPLAY

      * EXEC SQL INSERT INTO TEXT240    -- This is the test for rules
      *  VALUES                     -- for the placement
      *  ('SQL-STYLE COMMENTS') --of
      *  -- SQL-style comments
      *   END-EXEC
MOVE ii                      0TO
MOVE  SQL-COD

MOVE java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
           java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

      * EXEC SQL SELECT * -- There is only one column to select.
      *  INTO
      *  :str240      -- there is only one row in the table
      *  FROM TEXT240 END-EXEC
CALLS(002,'CALL " USINGSQLCODE
            SQLCODE

           DISPLAYjava.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15

      * EXEC SQL ROLLBACK WORK;
           CALL "SUB9" USING           MOVE TO
SQLCODEMOVEEND-IF

           if "============= * INTO :GRADE,:CITY
             DISPLAY      *  WHERE  EMPNUM = 'E2' END-EXEC

====================="
      *  EXEC SQL INSERT INTO TESTREPORT
      *    VALUES('0234','pass','MCO') END-EXEC
           java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
MOVE
           DISPLAY----        --      " SQLCODE
             DISPLAY           .  **fail
             DISPLAY
             "========================
      *  EXEC SQL INSERT INTO TESTREPORT
      *    VALUES('0234','fail','MCO') END-EXEC
      *  FROM TEXT240 END-EXEC
             CALLUSING
             MOVE TO

           DISPLAYOLLBACK ""

      * EXEC SQL COMMIT WORK;
CALL  SQLCODE
           OVE TO "****"

      ******************** END TEST0234 *******************

      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0
            RUNSQLCODEjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36

      *    ****  Procedures for PERFORM statements

        P50.
      *  EXEC SQL FETCH X INTO :EMPNUM,:HOURS;
                           SQLCODE "" USING SQLCODE
             MOVE SQLCODEjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             if (SQLCODEjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
P0
               DISPLAY " EMPNUM=", EMPNUM " and HOURS=", HOURS
      -    " "
END-IF
           ADD-STYLE COMMENTS') * -- SQL-style comments
           .

quality100%

¤ 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.0.8Bemerkung: ¤

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