Quellcode-Bibliothek xts731.cob Sprache: unbekannt

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

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

      *Copyright 1995 National Computing Centre Limited
      *and Computer Logic R&D S.A
      *on behalf of the CTS5 SQL2 Project.
      *All rights reserved.
      *The CTS5 SQL2 Project is sponsored by the European Community.
      *
      *The National Computing Centre Limited and Computer Logic R&D
      *have given permission to NIST to distribute this program
      *over the World Wide Web in order to promote SQL standards.
      *DISCLAIMER:
      *This program was reviewed by employees of NIST for
      *conformance to the SQL standards.
      *NIST assumes no responsibility for any party's use of
      *this program.

      ****************************************************************
      *
      *                 COMMENT SECTION
      *
      * SQL VALIDATION TEST SUITE V6.0
      *
      * XTS731.SCO
      * WRITTEN BY: Manolis Megaloikonomou
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL BY CHRIS SCHANZLE
      *
      * View name with 128 characters - delimited.
      *
      * REFERENCES
      *   11.19 -- <view definition>
      *   5.4   -- <Names and identifiers>
      *   5.4   GR.1
      *   5.2   -- <Token and separator>
      *   5.2   SR.9
      *   5.2   SR.13
      *   5.2   SR.14
      *   F#2   -- Basic information schema.
      *   F#3   -- Basic schema manipulation.
      *   F#39  -- Long identifiers.
      *
      * DATE LAST ALTERED  14/12/95 CTS5 Hand-over Test
      *
      * Cleanups and fixes by V. Kogakis 05/12/95
      *        Include Files
      *        Define NOSUBCLASS/CHCKOK at test beginning
      *        Define cal variable
      *        Fix Syntax errors
      *        Add ROLLBACK after AUTHID
      *        print timestamp
      *        delete multiple SQLCODE and SQLSTATE initialisation
      *        change string initialisation
      *        Clean-up database at the end of the test
      *
      * QA STATUS :   FC
      *
      *Revised by DWF 1996-02-05
      *   Fixed SDL transactions
      *   Removed trailing garbage
      ****************************************************************

      * EXEC SQL BEGIN DECLARE SECTION END-EXEC
       01  SQLCODE PIC S9(9) COMP.
       01  SQLSTATE PIC  X(5).
       01  uid PIC  X(18).
       01  uidx PIC  X(18).
       01  aa PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  bb PIC  X(129).
      *  EXEC SQL END DECLARE SECTION END-EXEC
       01  norm1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  norm2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  ALPNUM-TABLE VALUE IS
               "01234ABCDEFGH56789IJKLMNOPQRSTUVWXYZ".
           05  ALPNUM PIC X OCCURS 36 TIMES.
       01  NORMSQ.
           05  NORMSQX PIC X OCCURS 5 TIMES.
       01  errcnt PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
      *date_time declaration
       01  TO-DAY PIC 9(6).
       01  THE-TIME PIC 9(8).
       01  flag PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

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

       PROCEDURE DIVISION.
       P0.

             MOVE "CTS1 " TO uid
             CALL "AUTHID" USING uid
             MOVE "not logged in, not" TO uidx
      *  EXEC SQL SELECT USER INTO :uidx FROM CTS1.ECCO;
             CALL "SUB1" USING SQLCODE SQLSTATE uidx
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL ROLLBACK WORK;
             CALL "SUB2" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
             if (uid  NOT  =   uidx) then
               DISPLAY "ERROR: User ", uid, " expected. User ", uidx, "
      -    " connected"
            STOP RUN
             END-IF
             MOVE 0 TO errcnt

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

      ******************** BEGIN TEST7031 *******************

             MOVE 1 TO flag
             DISPLAY " TEST7031 "
             DISPLAY " View name with 128 characters - delimited."
             DISPLAY " References:"
             DISPLAY " 11.19 -- "
             DISPLAY " 5.4 -- "
             DISPLAY " 5.4 GR.1"
             DISPLAY " 5.2 -- "
             DISPLAY " 5.2 SR.9"
             DISPLAY " 5.2 SR.13"
             DISPLAY " 5.2 SR.14"
             DISPLAY " F#2 -- Basic information schema."
             DISPLAY " F#3 -- Basic schema manipulation."
             DISPLAY " F#39 -- Long identifiers."
             DISPLAY " - - - - - - - - - - - - - - - - - - -"

             DISPLAY "Note: This test will need some changes if your
      -    " collating"
             DISPLAY "sequence is not ASCII."

      *Initialise error reporting variables
             COMPUTE SQLCODE = -1
             MOVE "xxxxx" TO SQLSTATE

      *Create views
             DISPLAY "CREATE VIEW
      -    " ""LONGIDENTIFIERSAAAAABBBBBBBBBBCCCCCCCCCCDDDD"
             DISPLAY
             "DDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHIIIIIIIIIIJ"
             DISPLAY "JJJJJJJJJKKKKKKKKKKAAAAAAAA"" AS SELECT * FROM
      -    " STAFF;"
      *  EXEC SQL CREATE VIEW
      *     "LONGIDENTIFIERSAAAAABBBBBBBBBBCCCCCCCCCCDDDDDDDDDDEEEEE
      * -         "EEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHIIIIIIIIIIJJJJJJJ
      * -         "KKKKKKKKKKAAAAAAAA" AS SELECT * FROM STAFF;
             CALL "SUB3" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB4" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "CREATE VIEW
      -    " ""longidentifiersaaaaabbbbbbbbbbccccccccccdddd"
             DISPLAY
               "ddddddeeeeeeeeeeffffffffffgggggggggghhhhhhhhhhiiiiiii
      -        "iiij"
             DISPLAY "jjjjjjjjjkkkkkkkkkkaaaaaaab"" AS SELECT * FROM
      -    " WORKS;"
      *  EXEC SQL CREATE VIEW
      *          "longidentifiersaaaaabbbbbbbbbbccccccccccdddddddddd
      * -    "eeeeeeeeeeffffffffffgggggggggghhhhhhhhhhiiiiiiiiiijjjjjjj
      * -    "kkkkkkkkkkaaaaaaab" AS SELECT * FROM WORKS;
             CALL "SUB5" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB6" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "CREATE VIEW
      -    " ""0""""LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBBCCC"
             DISPLAY
               "CCCCCCCDDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGG
      -        " HHHHHHHHHH"
             DISPLAY "IIIIIIIIIIJJJJJJJJJJWWWWWW_1"" AS SELECT * FROM
      -    " VTABLE;"
      *  EXEC SQL CREATE VIEW
      *         "0""LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBBCCCCCCCCCC
      * -    "DDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHIIIIIII
      * -    "JJJJJJJJJJWWWWWW_1" AS SELECT * FROM VTABLE;
             CALL "SUB7" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB8" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "CREATE VIEW
      -    " ""0""""LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBBCCC"
             DISPLAY
              "CCCCCCCDDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGG
      -       "HHHHHHHHHH"
             DISPLAY "IIIIIIIIIIJJJJJJJJJJWWWWWW_1"" AS SELECT * FROM
      -    " STAFF_CTS;"
      *  EXEC SQL CREATE VIEW
      *         "0""LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBBCCCCCCCCCC
      * -         "DDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHII
      * -         "IIIIIJJJJJJJJJJWWWWWW_2" AS SELECT * FROM STAFF_CTS
      *   ;
             CALL "SUB9" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB10" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "CREATE VIEW
      -    " ""longIDENTIFIERSWWWWWAAAAAAAAAABBBBBBBBBBCCC"
             DISPLAY
               "CCCCCCCDDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGG
      -        "GGHHHHHHHHHH"
             DISPLAY "IIIIIIIIIIJJJJJJJJJJWW% .,()"" AS SELECT CITY FROM
      -    " STAFF;"
      *  EXEC SQL CREATE VIEW
      *     "longIDENTIFIERSWWWWWAAAAAAAAAABBBBBBBBBBCCCCCCCCCCDDDDD
      * -         "DDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHIIIIIII
      * -         "JJJJJJJJJJWW% .,()" AS SELECT CITY FROM STAFF;
             CALL "SUB11" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB12" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DECLARE a CURSOR"
             DISPLAY "FOR SELECT TABLE_NAME FROM
      -    " INFORMATION_SCHEMA.VIEWS"
             DISPLAY "WHERE TABLE_SCHEMA = 'CTS1'"
             DISPLAY " AND (TABLE_NAME =
      -    " 'LONGIDENTIFIERSAAAAABBBBBBBBBBCCCCCCCC"
             DISPLAY
               "CCDDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHH
      -        "HHHHHIIIIIIIIIIJJJJ"
             DISPLAY "JJJJJJKKKKKKKKKKAAAAAAAA'"
             DISPLAY " OR TABLE_NAME =
      -    " 'longidentifiersaaaaabbbbbbbbbbccccc"
             DISPLAY
               "cccccddddddddddeeeeeeeeeeffffffffffggggggggg
      -        "ghhhhhhhhhhiiiiiiiiiij"
             DISPLAY "jjjjjjjjjkkkkkkkkkkaaaaaaab'"
             DISPLAY " OR TABLE_NAME =
      -    " '0""LONGIDENTIFIERSWWWAAAAAAAAAABBBB"
             DISPLAY
               "BBBBBBCCCCCCCCCCDDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGG
      -        "GGGGGHHHHHHHHHH"
             DISPLAY "IIIIIIIIIIJJJJJJJJJJWWWWWW_1'"
             DISPLAY " OR TABLE_NAME =
      -    " '0""LONGIDENTIFIERSWWWAAAAAAAAAABBBB"
             DISPLAY
               "BBBBBBCCCCCCCCCCDDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGG
      -        "GGGGGHHHHHHHHHH"
             DISPLAY "IIIIIIIIIIJJJJJJJJJJWWWWWW_2'"
             DISPLAY " OR TABLE_NAME =
      -    " 'longIDENTIFIERSWWWWWAAAAAAAAAABBBBB"
             DISPLAY
               "BBBBBCCCCCCCCCCDDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGG
      -        "GGHHHHHHHHHHI"
             DISPLAY "IIIIIIIIIJJJJJJJJJJWW% .,()' )"
             DISPLAY " ORDER BY TABLE_NAME;"

      *  EXEC SQL DECLARE a CURSOR
      *    FOR SELECT TABLE_NAME FROM INFORMATION_SCHEMA.VIEWS
      *    WHERE TABLE_SCHEMA = 'CTS1'
      *    AND (TABLE_NAME =
      *          'LONGIDENTIFIERSAAAAABBBBBBBBBBCCCCCCCCCCDDDDDDDDDD
      * -             "EEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHIIIIIIII
      * -             "JJJJJJJJJJKKKKKKKKKKAAAAAAAA'
      *    OR TABLE_NAME =
      *          'longidentifiersaaaaabbbbbbbbbbccccccccccdddddddddd
      * -             "eeeeeeeeeeffffffffffgggggggggghhhhhhhhhhiiiiiiii
      * -             "jjjjjjjjjjkkkkkkkkkkaaaaaaab'
      *    OR TABLE_NAME =
      *          '0"LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBBCCCCCCCCCC
      * -             "DDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHH
      * -             "IIIIIIIIIIJJJJJJJJJJWWWWWW_1'
      *    OR TABLE_NAME =
      *          '0"LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBBCCCCCCCCCC
      * -        "DDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHIII
      * -        "IIIIIJJJJJJJJJJWWWWWW_2'
      *    OR TABLE_NAME =
      *          'longIDENTIFIERSWWWWWAAAAAAAAAABBBBBBBBBBCCCCCCCCCC
      * -             "DDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHH
      * -             "IIIIIIIIIIJJJJJJJJJJWW% .,()' )
      *    ORDER BY TABLE_NAME END-EXEC

             DISPLAY "OPEN a;"
      *  EXEC SQL OPEN a;
             CALL "SUB13" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *Initialise host variables
             MOVE    "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
      -              "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
      -            "xxxxxxxxxxxxxxxxxxxxxxxxxxxxx" TO bb

             DISPLAY "FETCH a INTO :bb;"
      *  EXEC SQL FETCH a INTO :bb;
             CALL "SUB14" USING SQLCODE SQLSTATE bb
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "bb should be:"
             DISPLAY
               "0""LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBBCCCCCCCC
      -        "CCDDDDDDDDDDEEEE"
             DISPLAY
               "EEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHIIIIIIIIIIJJJ
      -        "JJJJJJJWWWWWW_1"
             DISPLAY "Its value is: "
           DISPLAY bb
             DISPLAY  " "
             if (bb  NOT  =
               "0""LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBBCCCCCCCCCCDDDDD
      -         "DDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHIIIIIIIIII
      -        "JJJJJJJJJJWWWWWW_1") then
               MOVE 0 TO flag
             END-IF
             DISPLAY  " "

             MOVE    "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
      -              "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
      -              "xxxxxxxxxxxxxxxxxxxxxxxxxxxxx" TO bb

             DISPLAY "FETCH a INTO :bb;"
      *  EXEC SQL FETCH a INTO :bb;
             CALL "SUB15" USING SQLCODE SQLSTATE bb
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "bb should be:"
             DISPLAY
                  "0""LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBBCCCCCCCCCCDD
      -           "DDDDDDDDEEEE"
             DISPLAY
                   "EEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHIIIIIIIIIIJJJJJJ
      -            "JJJJWWWWWW_2"
             DISPLAY "Its value is: "
           DISPLAY bb
             DISPLAY  " "
             if (bb  NOT  =
                    "0""LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBBCCCCCCCCCC
      -         "DDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHIIIII
      -          "IIIIIJJJJJJJJJJWWWWWW_2") then
               MOVE 0 TO flag
             END-IF
             DISPLAY  " "

             MOVE    "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
      -              "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
      -            "xxxxxxxxxxxxxxxxxxxxxxxxxxxxx" TO bb

             DISPLAY "FETCH a INTO :bb;"
      *  EXEC SQL FETCH a INTO :bb;
             CALL "SUB16" USING SQLCODE SQLSTATE bb
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "bb should be:"
             DISPLAY    "LONGIDENTIFIERSAAAAABBBBBBBBBBCCCCCCCCCCDDDDDDD
      -       "DDDEEEEEEEEEEFFFF"
             DISPLAY
                         "FFFFFFGGGGGGGGGGHHHHHHHHHHIIIIIIIIIIJJJJJJJJJJ
      -        "KKKKKKKKKKAAAAAAAA"
             DISPLAY "Its value is: "
           DISPLAY bb
             DISPLAY  " "
             if (bb  NOT  =
                     "LONGIDENTIFIERSAAAAABBBBBBBBBBCCCCCCCCCCDDDDDDDDDD
      -              "EEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHIIIIIIIIII
      -              "JJJJJJJJJJKKKKKKKKKKAAAAAAAA") then
               MOVE 0 TO flag
             END-IF
             DISPLAY  " "

             MOVE    "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
      -              "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
      -            "xxxxxxxxxxxxxxxxxxxxxxxxxxxxx" TO bb

             DISPLAY "FETCH a INTO :bb;"
      *  EXEC SQL FETCH a INTO :bb;
             CALL "SUB17" USING SQLCODE SQLSTATE bb
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "bb should be:"
             DISPLAY   "longIDENTIFIERSWWWWWAAAAAAAAAABBBBBBBBBBCCCCCCCC
      -        "CCDDDDDDDDDDEEEE"
             DISPLAY   "EEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHIIIIIIIIIIJJ
      -        "JJJJJJJJWW% .,()"
             DISPLAY "Its value is: "
           DISPLAY bb
             DISPLAY  " "
             if (bb  NOT  =
                          "longIDENTIFIERSWWWWWAAAAAAAAAABBBBBBBBBBCCCCC
      -              "CCCCCDDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHH
      -              "HHHHHIIIIIIIIIIJJJJJJJJJJWW% .,()") then

               MOVE 0 TO flag
             END-IF
             DISPLAY  " "

             MOVE    "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
      -              "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
      -            "xxxxxxxxxxxxxxxxxxxxxxxxxxxxx" TO bb

             DISPLAY "FETCH a INTO :bb;"
      *  EXEC SQL FETCH a INTO :bb;
             CALL "SUB18" USING SQLCODE SQLSTATE bb
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "bb should be:"
             DISPLAY      "longidentifiersaaaaabbbbbbbbbbccccccccccddddd
      -        "dddddeeeeeeeeeeffff"
             DISPLAY      "ffffffgggggggggghhhhhhhhhhiiiiiiiiiijjjjjjjjj
      -        "jkkkkkkkkkkaaaaaaab"
             DISPLAY "Its value is: "
           DISPLAY bb
             DISPLAY  " "
             if (bb  NOT  =
                     "longidentifiersaaaaabbbbbbbbbbccccccccccdddddddddd
      -              "eeeeeeeeeeffffffffffgggggggggghhhhhhhhhhiiiiiiiiii
      -              "jjjjjjjjjjkkkkkkkkkkaaaaaaab") then
               MOVE 0 TO flag
             END-IF
             DISPLAY  " "

             DISPLAY "CLOSE a;"
      *  EXEC SQL CLOSE a;
             CALL "SUB19" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE 99 TO aa
             DISPLAY "SELECT COUNT(*) INTO :aa FROM
      -    " INFORMATION_SCHEMA.VIEWS"
             DISPLAY "WHERE TABLE_SCHEMA = 'CTS1'"
             DISPLAY "AND TABLE_NAME =
      -    " 'LONGIDENTIFIERSAAAAABBBBBBBBBBCCCCCCCCCC"
             DISPLAY
               "DDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGH
      -        "HHHHHHHHHIIIIIIII"
             DISPLAY "IIJJJJJJJJJJKKKKKKKKKKAAAAAAAa';"
      *  EXEC SQL SELECT  COUNT(*) INTO :aa FROM
      *  INFORMATION_SCHEMA.VIEWS
      *    WHERE TABLE_SCHEMA = 'CTS1'
      *    AND TABLE_NAME =
      *               'LONGIDENTIFIERSAAAAABBBBBBBBBBCCCCCCCCCCDDDDD
      * -                   "DDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHH
      * -                   "IIIIIIIIIIJJJJJJJJJJKKKKKKKKKKAAAAAAAa'
      *     ;
             CALL "SUB20" USING SQLCODE SQLSTATE aa
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "aa should be 0 ; its value is ", aa
             if ( aa  NOT =  0 ) then
               MOVE 0 TO flag
             END-IF
             DISPLAY  " "

             MOVE 99 TO aa
             DISPLAY "SELECT COUNT(*) INTO :aa FROM
      -    " INFORMATION_SCHEMA.VIEWS"
             DISPLAY "WHERE TABLE_SCHEMA = 'CTS1'"
             DISPLAY "AND TABLE_NAME =
      -    " 'longidentifiersaaaaabbbbbbbbbbcccccccccc"
             DISPLAY
               "ddddddddddeeeeeeeeeeffffffffffggggggggg
      -        "ghhhhhhhhhhiiiiiiii"
             DISPLAY "iijjjjjjjjjjkkkkkkkkkkaaaaaaaX';"
      *  EXEC SQL SELECT  COUNT(*) INTO :aa FROM
      *  INFORMATION_SCHEMA.VIEWS
      *    WHERE TABLE_SCHEMA = 'CTS1'
      *    AND TABLE_NAME =
      *                    'longidentifiersaaaaabbbbbbbbbbcccccccccc
      * -                   "ddddddddddeeeeeeeeeeffffffffffgggggggggghh
      * -                   "hhhhhiiiiiiiiiijjjjjjjjjjkkkkkkkkkkaaaaaaa
      *   ;
             CALL "SUB21" USING SQLCODE SQLSTATE aa
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "aa should be 0 ; its value is ", aa
             if ( aa  NOT =  0 ) then
               MOVE 0 TO flag
             END-IF
             DISPLAY  " "

             MOVE 99 TO aa
             DISPLAY "SELECT COUNT(*) INTO :aa FROM
      -    " INFORMATION_SCHEMA.VIEWS"
             DISPLAY "WHERE TABLE_SCHEMA = 'CTS1'"
             DISPLAY "AND TABLE_NAME =
      -    " '0""LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBB"
             DISPLAY
              "CCCCCCCCCCDDDDDDDDDDEEEEEEEEEEFFFFFFFFFF
      -       "GGGGGGGGGGHHHHHHHH"
             DISPLAY "HHIIIIIIIIIIJJJJJJJJJJWWWWWW_3';"
      *  EXEC SQL SELECT  COUNT(*) INTO :aa FROM
      *  INFORMATION_SCHEMA.VIEWS
      *    WHERE TABLE_SCHEMA = 'CTS1'
      *    AND TABLE_NAME =
      *                    '0"LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBB
      * -                   "CCCCCCCCCCDDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGG
      * -                   "GGGGGHHHHHHHHHHIIIIIIIIIIJJJJJJJJJJWWWWWW_
      *  ;
             CALL "SUB22" USING SQLCODE SQLSTATE aa
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "aa should be 0 ; its value is ", aa
             if ( aa  NOT =  0) then
               MOVE 0 TO flag
             END-IF
             DISPLAY  " "

             MOVE 99 TO aa
             DISPLAY "SELECT COUNT(*) INTO :aa FROM
      -    " INFORMATION_SCHEMA.VIEWS"
             DISPLAY "WHERE TABLE_SCHEMA = 'CTS1'"
             DISPLAY "AND TABLE_NAME =
      -    " 'longIDENTIFIERSWWWWWAAAAAAAAAABBBBBBBBBB"
             DISPLAY
               "CCCCCCCCCCDDDDDDDDDDEEEEEEEEEEFFFFFFFF
      -        "FFGGGGGGGGGGHHHHHHHH"
             DISPLAY "HHIIIIIIIIIIJJJJJJJJJJWW% .,((';"
      *  EXEC SQL SELECT  COUNT(*) INTO :aa FROM
      *  INFORMATION_SCHEMA.VIEWS
      *    WHERE TABLE_SCHEMA = 'CTS1'
      *    AND TABLE_NAME =
      *                    'longIDENTIFIERSWWWWWAAAAAAAAAABBBBBBBBBB
      * -                        "CCCCCCCCCCDDDDDDDDDDEEEEEEEEEEFFFFFFF
      * -                        "GGGGGGGGGGHHHHHHHHHHIIIIIIIIIIJJJJJJJ
      * -                        "WW% .,((';
             CALL "SUB23" USING SQLCODE SQLSTATE aa
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "aa should be 0 ; its value is ", aa
             if ( aa  NOT =  0) then
               MOVE 0 TO flag
             END-IF
             DISPLAY  " "

             DISPLAY "ROLLBACK WORK;"
      *  EXEC SQL ROLLBACK WORK;
             CALL "SUB24" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *Clean-up database
             DISPLAY "DROP VIEW
      -    " ""LONGIDENTIFIERSAAAAABBBBBBBBBBCCCCCCCCCC"
             DISPLAY
             "DDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHI"
             DISPLAY "IIIIIIIIIJJJJJJJJJJKKKKKKKKKKAAAAAAAA"" CASCADE;"
      *  EXEC SQL DROP VIEW
      *     "LONGIDENTIFIERSAAAAABBBBBBBBBBCCCCCCCCCCDDDDDDDDDDEEEEE
      * -         "EEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHIIIIIIIIIIJJJJJJJ
      * -         "KKKKKKKKKKAAAAAAAA" CASCADE;
             CALL "SUB25" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB26" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DROP VIEW
      -    " ""longidentifiersaaaaabbbbbbbbbbcccccccccc"
             DISPLAY
             "ddddddddddeeeeeeeeeeffffffffffgggggggggghhhhhhhhhhi"
             DISPLAY "iiiiiiiiijjjjjjjjjjkkkkkkkkkkaaaaaaab"" CASCADE;"
      *  EXEC SQL DROP VIEW
      *          "longidentifiersaaaaabbbbbbbbbbccccccccccdddddddddd
      * -              "eeeeeeeeeeffffffffffgggggggggghhhhhhhhhhiiiiiii
      * -              "jjjjjjjjjjkkkkkkkkkkaaaaaaab" CASCADE;
             CALL "SUB27" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB28" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DROP VIEW
      -    " ""0""""LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBB"
             DISPLAY
             "CCCCCCCCCCDDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGH"
             DISPLAY "HHHHHHHHHIIIIIIIIIIJJJJJJJJJJWWWWWW_1"" CASCADE;"
      *  EXEC SQL DROP VIEW
      *         "0""LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBBCCCCCCCCCC
      * -         "DDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHII
      * -         "IIIIIJJJJJJJJJJWWWWWW_1" CASCADE;
             CALL "SUB29" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB30" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DROP VIEW
      -    " ""0""""LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBB"
             DISPLAY
             "CCCCCCCCCCDDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGH"
             DISPLAY "HHHHHHHHHIIIIIIIIIIJJJJJJJJJJWWWWWW_2"" CASCADE;"
      *  EXEC SQL DROP VIEW
      *         "0""LONGIDENTIFIERSWWWAAAAAAAAAABBBBBBBBBBCCCCCCCCCC
      * -         "DDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHHHHHII
      * -         "IIIIIJJJJJJJJJJWWWWWW_2" CASCADE;
             CALL "SUB31" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB32" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DROP VIEW
      -    " ""longIDENTIFIERSWWWWWAAAAAAAAAABBBBBBBBBB"
             DISPLAY
             "CCCCCCCCCCDDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGH"
             DISPLAY "HHHHHHHHHIIIIIIIIIIJJJJJJJJJJWW% .,()"" CASCADE;"
      *  EXEC SQL DROP VIEW
      *          "longIDENTIFIERSWWWWWAAAAAAAAAABBBBBBBBBBCCCCCCCCCC
      * -              "DDDDDDDDDDEEEEEEEEEEFFFFFFFFFFGGGGGGGGGGHHHHHHH
      * -              "IIIIIIIIIIJJJJJJJJJJWW% .,()" CASCADE;
             CALL "SUB33" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB34" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *now record results

             if ( flag  =  1 ) then
               DISPLAY " xts731.mco *** pass *** "
      *    EXEC SQL INSERT INTO CTS1.TESTREPORT
      *      VALUES('7031','pass','MCO');
               CALL "SUB35" USING SQLCODE SQLSTATE
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY " xts731.mco *** fail *** "
      *    EXEC SQL INSERT INTO CTS1.TESTREPORT
      *      VALUES('7031','fail','MCO');
               CALL "SUB36" USING SQLCODE SQLSTATE
               MOVE SQLCODE TO SQL-COD
               COMPUTE errcnt = errcnt + 1
             END-IF

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

      *  EXEC SQL COMMIT WORK;
             CALL "SUB37" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST7031 ********************

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

      *    ****  Procedures for PERFORM statements

      *Test SQLCODE and SQLSTATE for normal completion.
       CHCKOK.
             DISPLAY "SQLCODE should be 0; its value is ", SQL-COD
             DISPLAY "SQLSTATE should be 00000; its value is ", SQLSTATE
             PERFORM NOSUBCLASS THRU EXIT-NOSUBCLASS
             if (SQLCODE NOT =  0  OR   NORMSQ NOT = "00000") then
               MOVE 0 TO flag
             END-IF
             if (NORMSQ = "00000"  AND  NORMSQ NOT = SQLSTATE)
             then
               DISPLAY "Valid implementation-defined SQLSTATE accepted."
             END-IF
             .

       NOSUBCLASS.

      *This routine replaces valid implementation-defined
      *subclasses with 000.  This replacement equates valid
      *implementation-defined subclasses with the 000 value
      *expected by the test case; otherwise the test will fail.
      *After calling NOSUBCLASS, NORMSQ will be tested
      *                          SQLSTATE will be printed.

           MOVE SQLSTATE TO NORMSQ

           MOVE 3 TO norm1
      *subclass begins in position 3 of char array NORMSQ
      *valid subclass begins with 5-9, I-Z, end of ALPNUM table
           PERFORM VARYING norm2 FROM 14 BY 1 UNTIL norm2 > 36
           if (NORMSQX(norm1)  =  ALPNUM(norm2)) then
             MOVE "0" TO NORMSQX(norm1)
           END-IF
           END-PERFORM

      *Quit if NORMSQ is unchanged.  Subclass is not impl.-def.
      *Changed NORMSQ means implementation-defined subclass,
      *so proceed to zero it out, if valid (0-9,A-Z)
           if (NORMSQ   =   SQLSTATE) then
             GO TO EXIT-NOSUBCLASS
           END-IF

           MOVE 4 TO norm1
      *examining position 4 of char array NORMSQ
      *valid characters are 0-9, A-Z
           PERFORM VARYING norm2 FROM 1 BY 1 UNTIL norm2 > 36
           if (NORMSQX(norm1)  =  ALPNUM(norm2)) then
             MOVE "0" TO NORMSQX(norm1)
           END-IF
           END-PERFORM

           MOVE 5 TO norm1
      *valid characters are 0-9, A-Z
      *examining position 5 of char array NORMSQ
           PERFORM VARYING norm2 FROM 1 BY 1 UNTIL norm2 > 36
           if (NORMSQX(norm1)  =  ALPNUM(norm2)) then
             MOVE "0" TO NORMSQX(norm1)
           END-IF
           END-PERFORM

      *implementation-defined subclasses are allowed for warnings
      *(class = 01).  These equate to successful completion
      *SQLSTATE values of 00000.
      *Reference SQL-92 4.28 SQL-transactions, paragraph 2

           if (NORMSQX(1)  =  "0"  AND  NORMSQX(2)  =  "1") then
             MOVE "0" TO NORMSQX(2)
           END-IF
           .

       EXIT-NOSUBCLASS.
           EXIT.

quality99%

Quellcode-Bibliothek xts731.cob Sprache: unbekannt

[ Normaldarstellung0.21Diashow Übersetzung europäischer Sprachen durch Browser ]