| products/Sources/formale Sprachen/Cobol/Test-Suite/SQL P/dml1-99/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: dml069.cob Sprache: Cobol |
|
||||||
|
IDENTIFICATION DIVISION.
PROGRAM-ID. DML026. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. xyz. OBJECT-COMPUTER. xyz. DATA DIVISION. WORKING-STORAGE SECTION. * EMBEDDED COBOL (file "DML026.PCO") **************************************************************** * * COMMENT SECTION * * DATE 1988/04/27 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. * * DML026.PCO * WRITTEN BY: HU YANPING * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE * * THIS ROUTINE TESTS THE VALUE EXPRESSION IN COMMON ELEMENT * OF THE SQL LANGUAGE. * * REFERENCES * AMERICAN NATIONAL STANDARD database language - SQL * X3.135-1989 * * SECTION 5.9 <value expression> **************************************************************** EXEC SQL BEGIN DECLARE SECTION END-EXEC 01 PNO1 PIC X(3). 01 EMPNO1 PIC X(3). 01 MAX10 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 i PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 ii 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(4) DISPLAY SIGN LEADING SEPARATE. 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 "HU" TO uid CALL "AUTHID" USING uid MOVE "not logged in, not" TO uidx EXEC SQL SELECT USER INTO :uidx FROM HU.ECCO END-EXEC 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, Embedded COBOL, dml026.pco" 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 TEST0118 ******************* DISPLAY " TEST0118" DISPLAY " Reference ANSI X3.135-1989 5.9 - " GR4" DISPLAY " - - - - - - - - - - - - - - - - - - -" COMPUTE MAX10 = -1 EXEC SQL SELECT +MAX(DISTINCT HOURS) INTO :MAX10 FROM WORKS END-EXEC MOVE SQLCODE TO SQL-COD DISPLAY " +MAX(DISTINCT HOURS) = ", MAX10 " " if (MAX10 = 80 AND SQLCODE NOT < 0) then DISPLAY " *** pass *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0118','pass','PCO') END-EXEC MOVE SQLCODE TO SQL-COD else DISPLAY " dml026.pco *** fail *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0118','fail','PCO') END-EXEC ADD 1 TO errcnt MOVE SQLCODE TO SQL-COD END-IF DISPLAY "====================================================" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-COD ******************** END TEST0118 ******************* ******************** BEGIN TEST0119 ******************* DISPLAY " TEST0119" DISPLAY " Reference ANSI X3.135-1989 5.9 - " GR4" DISPLAY " - - - - - - - - - - - - - - - - - - -" COMPUTE MAX10 = -1 EXEC SQL SELECT -MAX( DISTINCT HOURS ) INTO :MAX10 FROM WORKS END-EXEC MOVE SQLCODE TO SQL-COD DISPLAY " -MAX(HOURS) = ", MAX10 " " if (MAX10 = -80 AND SQLCODE NOT < 0) then DISPLAY " *** pass *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0119','pass','PCO') END-EXEC MOVE SQLCODE TO SQL-COD else DISPLAY " dml026.pco *** fail *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0119','fail','PCO') END-EXEC ADD 1 TO errcnt MOVE SQLCODE TO SQL-COD END-IF DISPLAY "====================================================" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-COD ******************** END TEST0119 ******************* ******************** BEGIN TEST0120 ******************* DISPLAY " TEST0120" DISPLAY " Reference ANSI X3.135-1989 5.9 - " GR1" DISPLAY " - - - - - - - - - - - - - - - - - - -" MOVE 0 TO i MOVE 0 TO ii EXEC SQL INSERT INTO WORKS1 SELECT * FROM WORKS END-EXEC MOVE SQLCODE TO SQL-COD EXEC SQL INSERT INTO WORKS1 VALUES('E9','P1',NULL) END-EXEC MOVE SQLCODE TO SQL-COD EXEC SQL SELECT EMPNUM INTO :EMPNO1 FROM WORKS1 WHERE HOURS IS NULL END-EXEC MOVE SQLCODE TO SQL-COD EXEC SQL INSERT INTO WORKS SELECT EMPNUM,'P9',20+HOURS FROM WORKS1 WHERE EMPNUM='E9' END-EXEC MOVE SQLCODE TO SQL-COD EXEC SQL SELECT COUNT(*) INTO :ii FROM WORKS WHERE EMPNUM='E9' END-EXEC MOVE SQLCODE TO SQL-COD EXEC SQL SELECT COUNT(*) INTO :i FROM WORKS WHERE HOURS IS NULL END-EXEC MOVE SQLCODE TO SQL-COD DISPLAY " The correct answer should be i=1,ii=1, and - " EMPNO1=E9" DISPLAY " i=", i ", ii=", ii ", EMPNO1=", EMPNO1 " " EXEC SQL ROLLBACK WORK END-EXEC MOVE SQLCODE TO SQL-COD if (i = 1 AND EMPNO1 = "E9" AND ii = 1) then DISPLAY " *** pass *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0120','pass','PCO') END-EXEC MOVE SQLCODE TO SQL-COD else DISPLAY " dml026.pco *** fail *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0120','fail','PCO') END-EXEC ADD 1 TO errcnt MOVE SQLCODE TO SQL-COD END-IF DISPLAY "====================================================" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-COD ******************** END TEST0120 ******************* ******************** BEGIN TEST0121 ******************* DISPLAY " TEST0121" DISPLAY " Reference ANSI X3.135-1989 5.9 - " GR5" DISPLAY " Cross ref. section 8.7 DISPLAY " - - - - - - - - - - - - - - - - - - -" MOVE 0 TO i MOVE 0 TO ii * *** CREATE TABLE VTABLE * (COL1 INTEGER, * COL2 INTEGER, * COL3 INTEGER, * COL4 INTEGER, * COL5 DECIMAL(7,2)) * See INSERTs in program BASETAB.PCO * INSERT INTO VTABLE VALUES(10,+20,30,40,10.50) * INSERT INTO VTABLE VALUES(0,1,2,3,4.25) * INSERT INTO VTABLE VALUES(100,200,300,400,500.01) * INSERT INTO VTABLE VALUES(1000,-2000,3000,NULL,4000.00) EXEC SQL SELECT COUNT(*) INTO :ii FROM VTABLE END-EXEC MOVE SQLCODE TO SQL-COD EXEC SQL SELECT +COL1+COL2 - COL3*COL4/COL1 INTO :i FROM VTABLE WHERE COL1=10 END-EXEC MOVE SQLCODE TO SQL-COD DISPLAY " i = ", i ", ii = ", ii " " if (i = -90 AND ii = 4) then DISPLAY " *** pass *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0121','pass','PCO') END-EXEC MOVE SQLCODE TO SQL-COD else DISPLAY " dml026.pco *** fail *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0121','fail','PCO') END-EXEC ADD 1 TO errcnt MOVE SQLCODE TO SQL-COD END-IF DISPLAY "====================================================" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-COD ******************** END TEST0121 ******************* ******************** BEGIN TEST0122 ******************* DISPLAY " TEST0122" DISPLAY " A divisor shall not be 0. " DISPLAY " Reference ANSI X3.135-1989 5.9 - " GR5" DISPLAY " - - - - - - - - - - - - - - - - - - -" COMPUTE i = -1 EXEC SQL SELECT COL2/COL1+COL3 INTO :i FROM VTABLE WHERE COL4=3 END-EXEC MOVE SQLCODE TO SQL-COD DISPLAY " SQLCODE = ", SQL-COD ", i = ", i " " if (SQLCODE < 0) then DISPLAY " *** pass *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0122','pass','PCO') END-EXEC MOVE SQLCODE TO SQL-COD else DISPLAY " dml026.pco *** fail *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0122','fail','PCO') END-EXEC ADD 1 TO errcnt MOVE SQLCODE TO SQL-COD END-IF DISPLAY "====================================================" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-COD ******************** END TEST0122 ******************* ******************** BEGIN TEST0123 ******************* DISPLAY " TEST0123" DISPLAY " Reference ANSI X3.135-1989 5.9 - " GR7" DISPLAY " - - - - - - - - - - - - - - - - - - -" COMPUTE i = -1 EXEC SQL SELECT (-COL2+COL1)*COL3 - COL3/COL1 INTO :i FROM VTABLE WHERE COL4 IS NULL END-EXEC MOVE SQLCODE TO SQL-COD DISPLAY " SQLCODE = ", SQL-COD ", i = ", i " " if (i = 8999997) then DISPLAY " *** pass *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0123','pass','PCO') END-EXEC MOVE SQLCODE TO SQL-COD else DISPLAY " dml026.pco *** fail *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0123','fail','PCO') END-EXEC ADD 1 TO errcnt MOVE SQLCODE TO SQL-COD END-IF DISPLAY "====================================================" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-COD ******************** END TEST0123 ******************* **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0 STOP RUN. * **** Procedures for PERFORM statements ¤ Dauer der Verarbeitung: 0.19 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 |
