| products/Sources/formale Sprachen/JAVA/openjdk-20-36_src/test/hotspot/jtreg/gtest/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: sdl031.cob Sprache: Cobol |
|
||||||
|
IDENTIFICATION DIVISION.
PROGRAM-ID. SDL031. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. xyz. OBJECT-COMPUTER. xyz. DATA DIVISION. WORKING-STORAGE SECTION. * Standard COBOL (file "SDL031.SCO") calling SQL * procedures in file "SDL031.MCO". * STANDARD COBOL (file "SDL031.SCO") **************************************************************** * * COMMENT SECTION * * DATE 1992/06/11 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. * * SDL031.SCO * WRITTEN BY: DAVID W. FLATER * * THIS ROUTINE TESTS THE SCHEMA DEFINITION LANGUAGE FOR SQL. * * REFERENCES * ANSI SQL-1992 * 11.36 <grant statement> * **************************************************************** * EXEC SQL BEGIN DECLARE SECTION END-EXEC 01 tmpint PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 uid PIC X(18). 01 uidx PIC X(18). * EXEC SQL END DECLARE SECTION END-EXEC 01 SQLCODE PIC S9(9) COMP. 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 ii PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 flag PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE. PROCEDURE DIVISION. P0. MOVE "SCHANZLE" TO uid CALL "AUTHID" USING uid MOVE "not logged in, not" TO uidx * EXEC SQL SELECT USER INTO :uidx FROM HU.ECCO; CALL "SUB1" USING SQLCODE uidx 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, Standard COBOL, sdl031. - "pco" 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 TEST0468 ******************* MOVE 1 TO flag *HU has been granted all privileges on CUGINI.VTABLE. *SCHANZLE has been granted none. *This tests the granularity of grants as well as *the overall correctness. DISPLAY " TEST0468 " DISPLAY " Priv.violation: indiv. no privileges." DISPLAY "Reference ANSI SQL-1992 11.36 DISPLAY " - - - - - - - - - - - - - - - - - - -" DISPLAY "DELETE FROM CUGINI.VTABLE;" * EXEC SQL DELETE FROM CUGINI.VTABLE; CALL "SUB2" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO ii DISPLAY "SQLCODE should be < 0; its value is ", ii if (ii NOT < 0) then MOVE 0 TO flag END-IF DISPLAY "INSERT INTO CUGINI.VTABLE VALUES (0,1,2,3,4.25);" * EXEC SQL INSERT INTO CUGINI.VTABLE * VALUES (0,1,2,3,4.25); CALL "SUB3" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO ii DISPLAY "SQLCODE should be < 0; its value is ", ii if (ii NOT < 0) then MOVE 0 TO flag END-IF MOVE 0 TO tmpint DISPLAY "SELECT COL2 INTO :tmpint FROM CUGINI.VTABLE" DISPLAY "WHERE COL1 = 0;" * EXEC SQL SELECT COL2 INTO :tmpint FROM CUGINI.VTABLE * WHERE COL1 = 0; CALL "SUB4" USING SQLCODE tmpint MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO ii DISPLAY "SQLCODE should be < 0; its value is ", ii DISPLAY "tmpint should NOT be 1; its value is ", tmpint if (ii NOT < 0 OR tmpint = 1) then MOVE 0 TO flag END-IF DISPLAY "UPDATE CUGINI.VTABLE" DISPLAY " SET COL2 = 2;" * EXEC SQL UPDATE CUGINI.VTABLE * SET COL2 = 2; CALL "SUB5" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO ii DISPLAY "SQLCODE should be < 0; its value is ", ii if (ii NOT < 0) then MOVE 0 TO flag END-IF * EXEC SQL ROLLBACK WORK; CALL "SUB6" USING SQLCODE MOVE SQLCODE TO SQL-COD if ( flag = 1 ) then DISPLAY " *** pass *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0468','pass','MCO'); CALL "SUB7" USING SQLCODE MOVE SQLCODE TO SQL-COD else DISPLAY " sdl031.sco *** fail *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0468','fail','MCO'); CALL "SUB8" USING SQLCODE MOVE SQLCODE TO SQL-COD COMPUTE errcnt = errcnt + 1 END-IF DISPLAY "===============================================" * EXEC SQL COMMIT WORK; CALL "SUB9" USING SQLCODE MOVE SQLCODE TO SQL-COD ******************** END TEST0468 ******************** ******************** BEGIN TEST0469 ******************* MOVE 1 TO flag DISPLAY " TEST0469 " DISPLAY " GRANT ALL PRIVILEGES to indiv." DISPLAY "Reference ANSI SQL-1992 11.36 DISPLAY " - - - - - - - - - - - - - - - - - - -" *Safety * EXEC SQL DELETE FROM CUGINI.II; CALL "SUB10" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY "INSERT INTO CUGINI.II VALUES (2);" * EXEC SQL INSERT INTO CUGINI.II VALUES (2); CALL "SUB11" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO ii DISPLAY "SQLCODE should be 0; its value is ", ii if (ii NOT = 0) then MOVE 0 TO flag END-IF DISPLAY "UPDATE CUGINI.II SET C1 = 3" DISPLAY "WHERE C1 = 2;" * EXEC SQL UPDATE CUGINI.II * SET C1 = 3 * WHERE C1 = 2; CALL "SUB12" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO ii DISPLAY "SQLCODE should be 0; its value is ", ii if (ii NOT = 0) then MOVE 0 TO flag END-IF MOVE 0 TO tmpint DISPLAY "SELECT C1 INTO :tmpint FROM CUGINI.II;" * EXEC SQL SELECT C1 INTO :tmpint * FROM CUGINI.II; CALL "SUB13" USING SQLCODE tmpint MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO ii DISPLAY "SQLCODE should be 0; its value is ", ii DISPLAY "tmpint should be 3; its value is ", tmpint if (ii NOT = 0 OR tmpint NOT = 3) then MOVE 0 TO flag END-IF DISPLAY "DELETE FROM CUGINI.II;" * EXEC SQL DELETE FROM CUGINI.II; CALL "SUB14" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO ii DISPLAY "SQLCODE should be 0; its value is ", ii if (ii NOT = 0) then MOVE 0 TO flag END-IF * EXEC SQL ROLLBACK WORK; CALL "SUB15" USING SQLCODE MOVE SQLCODE TO SQL-COD if ( flag = 1 ) then DISPLAY " *** pass *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0469','pass','MCO'); CALL "SUB16" USING SQLCODE MOVE SQLCODE TO SQL-COD else DISPLAY " sdl031.sco *** fail *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0469','fail','MCO'); CALL "SUB17" USING SQLCODE MOVE SQLCODE TO SQL-COD COMPUTE errcnt = errcnt + 1 END-IF DISPLAY "===============================================" * EXEC SQL COMMIT WORK; CALL "SUB18" USING SQLCODE MOVE SQLCODE TO SQL-COD ******************** END TEST0469 ******************** ******************** BEGIN TEST0470 ******************* MOVE 1 TO flag DISPLAY " TEST0470 " DISPLAY " GRANT ALL PRIVILEGES to public" DISPLAY "Reference ANSI SQL-1992 11.36 DISPLAY " - - - - - - - - - - - - - - - - - - -" *Safety * EXEC SQL DELETE FROM CUGINI.JJ; CALL "SUB19" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY "INSERT INTO CUGINI.JJ VALUES (2);" * EXEC SQL INSERT INTO CUGINI.JJ VALUES (2); CALL "SUB20" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO ii DISPLAY "SQLCODE should be 0; its value is ", ii if (ii NOT = 0) then MOVE 0 TO flag END-IF DISPLAY "UPDATE CUGINI.JJ SET C1 = 3" DISPLAY "WHERE C1 = 2;" * EXEC SQL UPDATE CUGINI.JJ * SET C1 = 3 * WHERE C1 = 2; CALL "SUB21" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO ii DISPLAY "SQLCODE should be 0; its value is ", ii if (ii NOT = 0) then MOVE 0 TO flag END-IF MOVE 0 TO tmpint DISPLAY "SELECT C1 INTO :tmpint FROM CUGINI.JJ;" * EXEC SQL SELECT C1 INTO :tmpint * FROM CUGINI.JJ; CALL "SUB22" USING SQLCODE tmpint MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO ii DISPLAY "SQLCODE should be 0; its value is ", ii DISPLAY "tmpint should be 3; its value is ", tmpint if (ii NOT = 0 OR tmpint NOT = 3) then MOVE 0 TO flag END-IF DISPLAY "DELETE FROM CUGINI.JJ;" * EXEC SQL DELETE FROM CUGINI.JJ; CALL "SUB23" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO ii DISPLAY "SQLCODE should be 0; its value is ", ii if (ii NOT = 0) then MOVE 0 TO flag END-IF * EXEC SQL ROLLBACK WORK; CALL "SUB24" USING SQLCODE MOVE SQLCODE TO SQL-COD if ( flag = 1 ) then DISPLAY " *** pass *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0470','pass','MCO'); CALL "SUB25" USING SQLCODE MOVE SQLCODE TO SQL-COD else DISPLAY " sdl031.sco *** fail *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0470','fail','MCO'); CALL "SUB26" USING SQLCODE MOVE SQLCODE TO SQL-COD COMPUTE errcnt = errcnt + 1 END-IF DISPLAY "===============================================" * EXEC SQL COMMIT WORK; CALL "SUB27" USING SQLCODE MOVE SQLCODE TO SQL-COD ******************** END TEST0470 ******************** ******************** BEGIN TEST0471 ******************* MOVE 1 TO flag *Schema 5 contains an attempt by Flater, who has select and *update(empnum,empname) on hu.staff3, to grant select and *unrestricted update to Schanzle. This attempt should fail. *This test insures that it did. DISPLAY " TEST0471 " DISPLAY " Priv.violation: GRANT priv. not grantable" DISPLAY "Reference ANSI SQL-1992 11.36 DISPLAY " - - - - - - - - - - - - - - - - - - -" DISPLAY "UPDATE HU.STAFF3 SET GRADE=15 WHERE EMPNUM='E2';" *Betty gets an unauthorized promotion * EXEC SQL UPDATE HU.STAFF3 * SET GRADE = 15 * WHERE EMPNUM = 'E2'; CALL "SUB28" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO ii DISPLAY "SQLCODE should be < 0; its value is ", ii if (ii NOT < 0) then MOVE 0 TO flag END-IF * EXEC SQL ROLLBACK WORK; CALL "SUB29" USING SQLCODE MOVE SQLCODE TO SQL-COD if ( flag = 1 ) then DISPLAY " *** pass *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0471','pass','MCO'); CALL "SUB30" USING SQLCODE MOVE SQLCODE TO SQL-COD else DISPLAY " sdl031.sco *** fail *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0471','fail','MCO'); CALL "SUB31" USING SQLCODE MOVE SQLCODE TO SQL-COD COMPUTE errcnt = errcnt + 1 END-IF DISPLAY "===============================================" * EXEC SQL COMMIT WORK; CALL "SUB32" USING SQLCODE MOVE SQLCODE TO SQL-COD ******************** END TEST0471 ******************** **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0 STOP RUN. * **** Procedures for PERFORM statements ¤ Dauer der Verarbeitung: 0.20 Sekunden (vorverarbeitet) ¤ |
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.Bot Zugriff |
