| products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: cdr005.cob Sprache: Cobol |
|
||||||
|
IDENTIFICATION DIVISION.
PROGRAM-ID. CDR005. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. xyz. OBJECT-COMPUTER. xyz. DATA DIVISION. WORKING-STORAGE SECTION. * Standard COBOL (file "CDR005.SCO") calling SQL * procedures in file "CDR005.MCO" **************************************************************** * * COMMENT SECTION * * DATE 1989/04/07 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. * * CDR005.SCO * WRITTEN BY: SUN DAJUN * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL BY CHRIS SCHANZLE * * THIS ROUTINE TESTS THE <CHECK> CONSTRAINT. * * REFERENCES * AMERICAN NATIONAL STANDARD database language - SQL * with Integrity Enhancement * * SECTION 6.8 * <check constraint definition>::= * CHECK (<search condition>) **************************************************************** * EXEC SQL BEGIN DECLARE SECTION END-EXEC 01 count1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 count2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 SQLCODE PIC S9(9) COMP. 01 errcnt PIC S9(4) DISPLAY SIGN LEADING SEPARATE. * EXEC SQL END DECLARE SECTION END-EXEC 01 code1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 code2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 uid PIC X(18). 01 uidx PIC X(18). 01 SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE. * date_time declaration * 01 TO-DAY PIC 9(6). 01 THE-TIME PIC 9(8). PROCEDURE DIVISION. P0. MOVE "SUN" TO uid CALL "AUTHID" USING uid MOVE "not logged in, not" TO uidx CALL "AUTHCK" USING SQLCODE uidx MOVE SQLCODE TO SQL-COD if (uid NOT = uidx) then DISPLAY "ERROR: User " uid " expected." DISPLAY "User " uidx " connected." DISPLAY " " STOP RUN END-IF MOVE 0 TO errcnt DISPLAY "SQL Test Suite, V6.0, Module COBOL, cdr005.sco" DISPLAY " " DISPLAY "59-byte ID" DISPLAY "TEd Version #" DISPLAY " " * date_time print * ACCEPT TO-DAY FROM DATE ACCEPT THE-TIME FROM TIME DISPLAY "Date run YYMMDD: " TO-DAY " at hhmmssff: " THE-TIME ******************** BEGIN TEST0313 ******************* *This test case checks the integrity constraint: * GRADE > 0 AND GRADE < 20 on STAFF5 * declared in <table constraint definition> * <Comparison Predicate> *Using UPDATE check violation. DISPLAY " TEST0313 " DISPLAY " CHECK CONSTRAINTS " DISPLAY " SQL with Integrity Enhancement section 6.8" DISPLAY " - - - - - - - - - - - - - - - - - - - - - - - - " DISPLAY " " DISPLAY " INSERT INTO STAFF5" DISPLAY " VALUES('E2','Tom',14,'Newyork');" DISPLAY " " DISPLAY " UPDATE STAFF5" DISPLAY " SET GRADE = 20;" DISPLAY " " DISPLAY " SELECT COUNT(*) INTO :count1" DISPLAY " FROM STAFF5" DISPLAY " WHERE GRADE = 14;" DISPLAY " " * EXEC SQL DELETE FROM STAFF5; CALL "SUB1" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO STAFF5 * VALUES('E2','Tom',14,'Newyork') END-EXEC CALL "SUB2" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL UPDATE STAFF5 * SET GRADE = 20 END-EXEC CALL "SUB3" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO code1 * EXEC SQL SELECT COUNT(*) INTO :count1 * FROM STAFF5 * WHERE GRADE = 14 END-EXEC CALL "SUB4" USING SQLCODE count1 MOVE SQLCODE TO SQL-COD DISPLAY " The correct answer is:" DISPLAY " code1 < 0,count1 = 1." DISPLAY " Your answer is:" DISPLAY " code1 = ", code1 DISPLAY ",count1= ", count1 if (code1 < 0 AND count1 = 1 ) then * EXEC SQL INSERT INTO TESTREPORT * VALUES('0313','pass','MCO') END-EXEC CALL "SUB5" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY " *** pass *** " else * EXEC SQL INSERT INTO TESTREPORT * VALUES('0313','fail','MCO') END-EXEC ADD 1 TO errcnt CALL "SUB6" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY " cdr005.sco *** fail *** " END-IF DISPLAY "================================================" DISPLAY " " * EXEC SQL COMMIT WORK; CALL "SUB7" USING SQLCODE MOVE SQLCODE TO SQL-COD ****************** END TEST0313 ***************************** ******************** BEGIN TEST0314 ******************* *This test case checks the integrity constraint: * GRADE > 0 AND GRADE < 20 on STAFF6 * declared in <column definition> * <Comparison Predicate> * Using UPDATE to check violation DISPLAY " TEST0314 " DISPLAY " CHECK CONSTRAINTS " DISPLAY " SQL with Integrity Enhancement section 6.8" DISPLAY " - - - - - - - - - - - - - - - - - - - - - - - - " DISPLAY " " DISPLAY " INSERT INTO STAFF6" DISPLAY " VALUES('E2','Tom',14,'Newyork');" DISPLAY " " DISPLAY " UPDATE STAFF6" DISPLAY " SET GRADE = 20;" DISPLAY " " DISPLAY " SELECT COUNT(*) INTO :count1" DISPLAY " FROM STAFF6" DISPLAY " WHERE GRADE = 14;" DISPLAY " " * EXEC SQL DELETE FROM STAFF6; CALL "SUB8" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO STAFF6 * VALUES('E2','Tom',14,'Newyork') END-EXEC CALL "SUB9" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL UPDATE STAFF6 * SET GRADE = 20 END-EXEC CALL "SUB10" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO code1 * EXEC SQL SELECT COUNT(*) INTO :count1 * FROM STAFF6 * WHERE GRADE = 14 END-EXEC CALL "SUB11" USING SQLCODE count1 MOVE SQLCODE TO SQL-COD DISPLAY " The correct answer is:" DISPLAY " code1 < 0,count1 = 1." DISPLAY " Your answer is:" DISPLAY " code1 = ", code1 DISPLAY ",count1= ", count1 if (code1 < 0 AND count1 = 1 ) then * EXEC SQL INSERT INTO TESTREPORT * VALUES('0314','pass','MCO') END-EXEC CALL "SUB12" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY " *** pass *** " else * EXEC SQL INSERT INTO TESTREPORT * VALUES('0314','fail','MCO') END-EXEC ADD 1 TO errcnt CALL "SUB13" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY " cdr005.sco *** fail *** " END-IF DISPLAY "================================================" DISPLAY " " * EXEC SQL COMMIT WORK; CALL "SUB14" USING SQLCODE MOVE SQLCODE TO SQL-COD ****************** END TEST0314 ***************************** ******************** BEGIN TEST0315 ******************* *This test case checks the integrity constraint: * GRADE BETWEEN 1 AND 20 * declared in <table constraint definition> * <between Predicate> * Using UPDATE to check violation DISPLAY " TEST0315 " DISPLAY " CHECK CONSTRAINTS " DISPLAY " SQL with Integrity Enhancement section 6.8" DISPLAY " - - - - - - - - - - - - - - - - - - - - - - - - " DISPLAY " " DISPLAY " INSERT INTO STAFF7" DISPLAY " VALUES('E2','Tom',14,'Newyork');" DISPLAY " " DISPLAY " UPDATE STAFF7" DISPLAY " SET GRADE = 21;" DISPLAY " " DISPLAY " SELECT COUNT(*) INTO :count1" DISPLAY " FROM STAFF7" DISPLAY " WHERE GRADE = 14;" DISPLAY " " * EXEC SQL DELETE FROM STAFF7; CALL "SUB15" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO STAFF7 * VALUES('E2','Tom',14,'Newyork') END-EXEC CALL "SUB16" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL UPDATE STAFF7 * SET GRADE = 21 END-EXEC CALL "SUB17" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO code1 * EXEC SQL SELECT COUNT(*) INTO :count1 * FROM STAFF7 * WHERE GRADE = 14 END-EXEC CALL "SUB18" USING SQLCODE count1 MOVE SQLCODE TO SQL-COD DISPLAY " The correct answer is:" DISPLAY " code1 < 0,count1 = 1." DISPLAY " Your answer is:" DISPLAY " code1 = ", code1 DISPLAY ",count1= ", count1 if (code1 < 0 AND count1 = 1 ) then * EXEC SQL INSERT INTO TESTREPORT * VALUES('0315','pass','MCO') END-EXEC CALL "SUB19" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY " *** pass *** " else * EXEC SQL INSERT INTO TESTREPORT * VALUES('0315','fail','MCO') END-EXEC ADD 1 TO errcnt CALL "SUB20" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY " cdr005.sco *** fail *** " END-IF DISPLAY "================================================" DISPLAY " " * EXEC SQL COMMIT WORK; CALL "SUB21" USING SQLCODE MOVE SQLCODE TO SQL-COD ****************** END TEST0315 ***************************** **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0 STOP RUN. * **** Procedures for PERFORM statements ¤ Dauer der Verarbeitung: 0.24 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 |
