| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 18 kB |
|
Quelle dml024.cob Sprache: Cobol |
|||||||||
|
IDENTIFICATION DIVISION.
PROGRAM-ID. DML024. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. xyz. OBJECT-COMPUTER. xyz. DATA DIVISION. WORKING-STORAGE SECTION. * Standard COBOL (file "DML024.SCO") calling SQL * procedures in file "DML024.MCO" **************************************************************** * * COMMENT SECTION * * DATE 1987/08/21 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. * * DML024.SCO * WRITTEN BY: HU YANPING * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL BY CHRIS SCHANZLE * * THIS ROUTINE TESTS THE SEARCH CONDITIONS FOR SQL. * * REFERENCES * AMERICAN NATIONAL STANDARD database language - SQL * X3.135-1989 * * SECTION 5.18 <search condition> * **************************************************************** * EXEC SQL BEGIN DECLARE SECTION END-EXEC 01 EMPNO1 PIC X(3). 01 SCITY PIC X(15). 01 WEMP PIC X(3). 01 WPNUM PIC X(3). 01 ii PIC S9(9) DISPLAY SIGN LEADING SEPARATE. * EXEC SQL END DECLARE SECTION END-EXEC 01 uid PIC X(18). 01 uidx PIC X(18). 01 i PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 SQLCODE PIC S9(9) COMP. 01 errcnt PIC S9(4) 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 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, dml024.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 TEST0108 ******************* DISPLAY " TEST0108" DISPLAY " Reference ANSI X3.135-1989 5.18 - " GR" DISPLAY " - - - - - - - - - - - - - - - - - - -" DISPLAY "*** Select all from a table " DISPLAY "*** SELECT EMPNUM, CITY " DISPLAY "*** FROM STAFF " DISPLAY "*** WHERE EMPNUM='E1' OR NOT(EMPNUM='E1') " * EXEC SQL DECLARE S1 CURSOR FOR * SELECT EMPNUM,CITY * FROM STAFF * WHERE EMPNUM='E1' OR NOT(EMPNUM='E1') END-EXEC * EXEC SQL OPEN S1; CALL "SUB1" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE 0 TO i if (SQLCODE = 0) then DISPLAY "EMPNUM CITY " END-IF MOVE 1 TO ii PERFORM P50 UNTIL ii > 19 * EXEC SQL CLOSE S1; CALL "SUB2" USING SQLCODE MOVE SQLCODE TO SQL-COD if ( i = 5) then DISPLAY " *** pass *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0108','pass','MCO') END-EXEC CALL "SUB3" USING SQLCODE MOVE SQLCODE TO SQL-COD else DISPLAY " dml024.sco *** fail *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0108','fail','MCO') END-EXEC ADD 1 TO errcnt CALL "SUB4" USING SQLCODE MOVE SQLCODE TO SQL-COD END-IF DISPLAY "====================================================" * EXEC SQL COMMIT WORK; CALL "SUB5" USING SQLCODE MOVE SQLCODE TO SQL-COD ******************** END TEST0108 ******************* ******************** BEGIN TEST0109 ******************* DISPLAY " TEST0109" DISPLAY " Reference ANSI X3.135-1989 5.18 - " GR" DISPLAY " - - - - - - - - - - - - - - - - - - -" DISPLAY "*** Select nothing from a table " DISPLAY "*** SELECT EMPNUM, CITY " DISPLAY "*** FROM STAFF " DISPLAY "*** WHERE EMPNUM='E1' AND NOT(EMPNUM='E1') " * EXEC SQL DECLARE S2 CURSOR FOR * SELECT EMPNUM,CITY * FROM STAFF * WHERE EMPNUM='E1' AND NOT(EMPNUM='E1') END-EXEC * EXEC SQL OPEN S2; CALL "SUB6" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE 0 TO i if (SQLCODE = 0) then DISPLAY "EMPNUM CITY" END-IF MOVE 1 TO ii PERFORM P49 UNTIL ii > 19 * EXEC SQL CLOSE S2; CALL "SUB7" USING SQLCODE MOVE SQLCODE TO SQL-COD if ( i = 0) then DISPLAY " *** pass *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0109','pass','MCO') END-EXEC CALL "SUB8" USING SQLCODE MOVE SQLCODE TO SQL-COD else DISPLAY " dml024.sco *** fail *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0109','fail','MCO') END-EXEC ADD 1 TO errcnt CALL "SUB9" USING SQLCODE MOVE SQLCODE TO SQL-COD END-IF DISPLAY "====================================================" * EXEC SQL COMMIT WORK; CALL "SUB10" USING SQLCODE MOVE SQLCODE TO SQL-COD ******************** END TEST0109 ******************* ******************** BEGIN TEST0110 ******************* DISPLAY " TEST0110" DISPLAY " Reference ANSI X3.135-1989 5.18 - " GR" DISPLAY " - - - - - - - - - - - - - - - - - - -" DISPLAY "*** unknown OR NOT(unknown) " DISPLAY "*** INSERT INTO WORKS " DISPLAY "*** VALUES ('E8','P8',NULL) " DISPLAY "*** SELECT EMPNUM,PNUM " DISPLAY "*** FROM WORKS " DISPLAY "*** WHERE HOURS < (SELECT HOURS FROM WORKS " DISPLAY "*** WHERE EMPNUM = 'E8') " DISPLAY "*** OR NOT(HOURS < (SELECT HOURS FROM WORKS " DISPLAY "*** WHERE EMPNUM = 'E8') " * EXEC SQL INSERT INTO WORKS * VALUES('E8','P8',NULL) END-EXEC CALL "SUB11" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DECLARE S3 CURSOR FOR * SELECT EMPNUM,PNUM * FROM WORKS * WHERE HOURS < (SELECT HOURS FROM WORKS * WHERE EMPNUM = 'E8') * OR NOT(HOURS< (SELECT HOURS FROM WORKS * WHERE EMPNUM = 'E8')) END-EXEC * EXEC SQL OPEN S3; CALL "SUB12" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE 0 TO i if (SQLCODE = 0) then DISPLAY "EMPNUM PNUM" END-IF MOVE 1 TO ii PERFORM P48 UNTIL ii > 19 * EXEC SQL ROLLBACK WORK; CALL "SUB13" USING SQLCODE MOVE SQLCODE TO SQL-COD if ( i = 0) then DISPLAY " *** pass *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0110','pass','MCO') END-EXEC CALL "SUB14" USING SQLCODE MOVE SQLCODE TO SQL-COD else DISPLAY " dml024.sco *** fail *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0110','fail','MCO') END-EXEC ADD 1 TO errcnt CALL "SUB15" USING SQLCODE MOVE SQLCODE TO SQL-COD END-IF DISPLAY "====================================================" * EXEC SQL COMMIT WORK; CALL "SUB16" USING SQLCODE MOVE SQLCODE TO SQL-COD ******************** END TEST0110 ******************* ******************** BEGIN TEST0111 ******************* DISPLAY " TEST0111" DISPLAY " Reference ANSI X3.135-1989 5.18 - " GR" DISPLAY " - - - - - - - - - - - - - - - - - - -" DISPLAY "*** unknown AND NOT(unknown) " DISPLAY "*** SELECT EMPNUM,PNUM " DISPLAY "*** FROM WORKS " DISPLAY "*** WHERE HOURS < (SELECT HOURS FROM WORKS " DISPLAY "*** WHERE EMPNUM = 'E8') " DISPLAY "*** AND NOT(HOURS < (SELECT HOURS FROM WORKS " DISPLAY "*** WHERE EMPNUM = 'E8') " * EXEC SQL INSERT INTO WORKS * VALUES('E8','P8',NULL) END-EXEC CALL "SUB17" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DECLARE S4 CURSOR FOR * SELECT EMPNUM,PNUM * FROM WORKS * WHERE HOURS < (SELECT HOURS FROM WORKS * WHERE EMPNUM = 'E8') * AND NOT(HOURS< (SELECT HOURS FROM WORKS * WHERE EMPNUM = 'E8')) END-EXEC * EXEC SQL OPEN S4; CALL "SUB18" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE 0 TO i if (SQLCODE = 0) then DISPLAY "EMPNUM PNUM" END-IF MOVE 1 TO ii PERFORM P47 UNTIL ii > 19 * EXEC SQL ROLLBACK WORK; CALL "SUB19" USING SQLCODE MOVE SQLCODE TO SQL-COD if ( i = 0) then DISPLAY " *** pass *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0111','pass','MCO') END-EXEC CALL "SUB20" USING SQLCODE MOVE SQLCODE TO SQL-COD else DISPLAY " dml024.sco *** fail *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0111','fail','MCO') END-EXEC ADD 1 TO errcnt CALL "SUB21" USING SQLCODE MOVE SQLCODE TO SQL-COD END-IF DISPLAY "====================================================" * EXEC SQL COMMIT WORK; CALL "SUB22" USING SQLCODE MOVE SQLCODE TO SQL-COD ******************** END TEST0111 ******************* ******************** BEGIN TEST0112 ******************* DISPLAY " TEST0112" DISPLAY " Reference ANSI X3.135-1989 5.18 - " GR" DISPLAY " - - - - - - - - - - - - - - - - - - -" DISPLAY "*** unknown AND true " DISPLAY "*** SELECT EMPNUM,PNUM " DISPLAY "*** FROM WORKS " DISPLAY "*** WHERE HOURS < (SELECT HOURS FROM WORKS " DISPLAY "*** WHERE EMPNUM = 'E8') " DISPLAY "*** AND HOURS IN (SELECT HOURS FROM WORKS) " * EXEC SQL INSERT INTO WORKS * VALUES('E8','P8',NULL) END-EXEC CALL "SUB23" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DECLARE S5 CURSOR FOR * SELECT EMPNUM,PNUM * FROM WORKS * WHERE HOURS < (SELECT HOURS FROM WORKS * WHERE EMPNUM = 'E8') * AND HOURS IN (SELECT HOURS FROM WORKS) END-EXEC * EXEC SQL OPEN S5; CALL "SUB24" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE 0 TO i if (SQLCODE = 0) then DISPLAY "EMPNUM PNUM" END-IF MOVE 1 TO ii PERFORM P46 UNTIL ii > 19 * EXEC SQL ROLLBACK WORK; CALL "SUB25" USING SQLCODE MOVE SQLCODE TO SQL-COD if ( i = 0) then DISPLAY " *** pass *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0112','pass','MCO') END-EXEC CALL "SUB26" USING SQLCODE MOVE SQLCODE TO SQL-COD else DISPLAY " dml024.sco *** fail *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0112','fail','MCO') END-EXEC ADD 1 TO errcnt CALL "SUB27" USING SQLCODE MOVE SQLCODE TO SQL-COD END-IF DISPLAY "====================================================" * EXEC SQL COMMIT WORK; CALL "SUB28" USING SQLCODE MOVE SQLCODE TO SQL-COD ******************** END TEST0112 ******************* ******************** BEGIN TEST0113 ******************* DISPLAY " TEST0113" DISPLAY " Reference ANSI X3.135-1989 5.18 - " GR" DISPLAY " - - - - - - - - - - - - - - - - - - -" DISPLAY "*** unknown OR true " DISPLAY "*** SELECT EMPNUM,PNUM " DISPLAY "*** FROM WORKS " DISPLAY "*** WHERE HOURS < (SELECT HOURS FROM WORKS " DISPLAY "*** WHERE EMPNUM = 'E8') " DISPLAY "*** OR HOURS IN (SELECT HOURS FROM WORKS) " * EXEC SQL INSERT INTO WORKS * VALUES('E8','P8',NULL) END-EXEC CALL "SUB29" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DECLARE S6 CURSOR FOR * SELECT EMPNUM,PNUM * FROM WORKS * WHERE HOURS < (SELECT HOURS FROM WORKS * WHERE EMPNUM = 'E8') * OR HOURS IN (SELECT HOURS FROM WORKS) END-EXEC * EXEC SQL OPEN S6; CALL "SUB30" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE 0 TO i if (SQLCODE = 0) then DISPLAY "EMPNUM PNUM" END-IF MOVE 1 TO ii PERFORM P45 UNTIL ii > 19 DISPLAY " " " SQLCODE = ", SQL-COD ", i = ", i * EXEC SQL ROLLBACK WORK; CALL "SUB31" USING SQLCODE MOVE SQLCODE TO SQL-COD if ( i = 12) then DISPLAY " *** pass *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0113','pass','MCO') END-EXEC CALL "SUB32" USING SQLCODE MOVE SQLCODE TO SQL-COD else DISPLAY " dml024.sco *** fail *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0113','fail','MCO') END-EXEC ADD 1 TO errcnt CALL "SUB33" USING SQLCODE MOVE SQLCODE TO SQL-COD END-IF DISPLAY "====================================================" * EXEC SQL COMMIT WORK; CALL "SUB34" USING SQLCODE MOVE SQLCODE TO SQL-COD ******************** END TEST0113 ******************* **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0 STOP RUN. * **** Procedures for PERFORM statements P50. * EXEC SQL FETCH S1 INTO * :EMPNO1,:SCITY END-EXEC CALL "SUB35" USING SQLCODE EMPNO1 SCITY MOVE SQLCODE TO SQL-COD if (SQLCODE = 0) then COMPUTE i = i + 1 DISPLAY EMPNO1 " ", SCITY END-IF ADD 1 TO ii . P49. * EXEC SQL FETCH S2 INTO * :EMPNO1,:SCITY END-EXEC CALL "SUB36" USING SQLCODE EMPNO1 SCITY MOVE SQLCODE TO SQL-COD if (SQLCODE = 0) then COMPUTE i = i + 1 DISPLAY EMPNO1 " ", SCITY END-IF ADD 1 TO ii . P48. * EXEC SQL FETCH S3 INTO * :WEMP,:WPNUM END-EXEC CALL "SUB37" USING SQLCODE WEMP WPNUM MOVE SQLCODE TO SQL-COD if (SQLCODE = 0) then COMPUTE i = i + 1 DISPLAY WEMP " ", WPNUM END-IF ADD 1 TO ii . P47. * EXEC SQL FETCH S4 INTO * :WEMP,:WPNUM END-EXEC CALL "SUB38" USING SQLCODE WEMP WPNUM MOVE SQLCODE TO SQL-COD if (SQLCODE = 0) then COMPUTE i = i + 1 DISPLAY WEMP " ", WPNUM END-IF ADD 1 TO ii . P46. * EXEC SQL FETCH S5 INTO * :WEMP,:WPNUM END-EXEC CALL "SUB39" USING SQLCODE WEMP WPNUM MOVE SQLCODE TO SQL-COD if (SQLCODE = 0) then COMPUTE i = i + 1 DISPLAY WEMP " ", WPNUM END-IF ADD 1 TO ii . P45. * EXEC SQL FETCH S6 INTO * :WEMP,:WPNUM END-EXEC CALL "SUB40" USING SQLCODE WEMP WPNUM MOVE SQLCODE TO SQL-COD if (SQLCODE = 0) then COMPUTE i = i + 1 DISPLAY WEMP " ", WPNUM END-IF ADD 1 TO ii . ¤ Dauer der Verarbeitung: 0.11 Sekunden (vorverarbeitet) ¤*© Formatika GbR, Deutschland |
|
2026-03-28