| 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: dml019.cob Sprache: Cobol |
|
||||||
|
IDENTIFICATION DIVISION.
PROGRAM-ID. DML019. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. xyz. OBJECT-COMPUTER. xyz. DATA DIVISION. WORKING-STORAGE SECTION. * EMBEDDED COBOL (file "DML019.PCO") **************************************************************** * * COMMENT SECTION * * DATE 1987/08/21 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. * * DML019.PCO * WRITTEN BY: HU YANPING * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE * * THIS ROUTINE TESTS THE GROUP BY CLAUSE IN THE SQL LANGUAGE * * REFERENCES * AMERICAN NATIONAL STANDARD database language - SQL * X3.135-1989 * * SECTION 5.22 <group by clause> * **************************************************************** EXEC SQL BEGIN DECLARE SECTION END-EXEC 01 EMPNO1 PIC X(3). 01 PNO1 PIC X(3). 01 HOURS1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 i 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 ii PIC S9(9) 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, dml019.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 TEST0074 ******************* DISPLAY " TEST0074 " DISPLAY " reference ANSI X3.135-1989 5.22 DISPLAY " - - - - - - - - - - - - - - - - - - -" DISPLAY " *** SELECT PNUM, SUM(HOURS) " DISPLAY " *** FROM WORKS " DISPLAY " *** GROUP BY PNUM " EXEC SQL DECLARE WORKS1 CURSOR FOR SELECT PNUM, SUM(HOURS) FROM WORKS GROUP BY PNUM END-EXEC EXEC SQL OPEN WORKS1 END-EXEC MOVE SQLCODE TO SQL-COD MOVE 0 TO i MOVE 1 TO ii PERFORM P50 UNTIL ii > 19 EXEC SQL CLOSE WORKS1 END-EXEC MOVE SQLCODE TO SQL-COD DISPLAY " " DISPLAY " i should be 6, i=", i if (i = 6) then DISPLAY " *** pass *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0074','pass','PCO') END-EXEC MOVE SQLCODE TO SQL-COD else DISPLAY " dml019.pco *** fail *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0074','fail','PCO') END-EXEC ADD 1 TO errcnt MOVE SQLCODE TO SQL-COD END-IF DISPLAY "========================================================" DISPLAY " " EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-COD ******************** END TEST0074 ******************* ******************** BEGIN TEST0075 ******************* DISPLAY " TEST0075 " DISPLAY " reference ANSI X3.135-1989 5.22 DISPLAY " - - - - - - - - - - - - - - - - - - -" DISPLAY " *** SELECT EMPNUM " DISPLAY " *** FROM WORKS " DISPLAY " *** GROUP BY EMPNUM " EXEC SQL DECLARE WORKS2 CURSOR FOR SELECT EMPNUM FROM WORKS GROUP BY EMPNUM END-EXEC EXEC SQL OPEN WORKS2 END-EXEC MOVE SQLCODE TO SQL-COD MOVE 0 TO i MOVE 1 TO ii PERFORM P49 UNTIL ii > 19 EXEC SQL CLOSE WORKS2 END-EXEC MOVE SQLCODE TO SQL-COD DISPLAY " " DISPLAY " i should be 4, i=", i if (i = 4) then DISPLAY " *** pass *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0075','pass','PCO') END-EXEC MOVE SQLCODE TO SQL-COD else DISPLAY " dml019.pco *** fail *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0075','fail','PCO') END-EXEC ADD 1 TO errcnt MOVE SQLCODE TO SQL-COD END-IF DISPLAY "========================================================" DISPLAY " " EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-COD ******************** END TEST0075 ******************* ******************** BEGIN TEST0076 ******************* DISPLAY " TEST0076 " DISPLAY " reference ANSI X3.135-1989 5.22 DISPLAY " - - - - - - - - - - - - - - - - - - -" DISPLAY " *** SELECT * " DISPLAY " *** FROM WORKS " DISPLAY " *** GROUP BY EMPNUM,HOURS " EXEC SQL DECLARE WORKS4 CURSOR FOR SELECT EMPNUM,HOURS FROM WORKS GROUP BY EMPNUM,HOURS END-EXEC EXEC SQL OPEN WORKS4 END-EXEC MOVE SQLCODE TO SQL-COD MOVE 0 TO i if (SQLCODE = 0) then DISPLAY " EMPNUM HOURS " END-IF MOVE 1 TO ii PERFORM P48 UNTIL ii > 19 EXEC SQL CLOSE WORKS4 END-EXEC MOVE SQLCODE TO SQL-COD DISPLAY " " DISPLAY " i should be 10, i=", i if (i = 10) then DISPLAY " *** pass *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0076','pass','PCO') END-EXEC MOVE SQLCODE TO SQL-COD else DISPLAY " dml019.pco *** fail *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0076','fail','PCO') END-EXEC ADD 1 TO errcnt MOVE SQLCODE TO SQL-COD END-IF DISPLAY "========================================================" DISPLAY " " EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-COD ******************** END TEST0076 ******************* ******************** BEGIN TEST0077 ******************* DISPLAY " TEST0077 " DISPLAY " reference ANSI X3.135-1989 5.22 DISPLAY " - - - - - - - - - - - - - - - - - - -" DISPLAY " *** SELECT * " DISPLAY " *** FROM WORKS " DISPLAY " *** GROUP BY PNUM,EMPNUM,HOURS " * This query satisfies 5.25 SR 7), becuase table WORKS only * has three columns which are all in GROUP BY cluase. * (see 5.25 SR 4). about the <select list> "*".) EXEC SQL DECLARE WORKS5 CURSOR FOR SELECT * FROM WORKS GROUP BY PNUM,EMPNUM,HOURS END-EXEC EXEC SQL OPEN WORKS5 END-EXEC MOVE SQLCODE TO SQL-COD MOVE 0 TO i if (SQLCODE = 0) then DISPLAY " EMPNUM PNUM HOURS " END-IF MOVE 1 TO ii PERFORM P47 UNTIL ii > 19 EXEC SQL CLOSE WORKS5 END-EXEC MOVE SQLCODE TO SQL-COD DISPLAY " " DISPLAY " i should be 12, i=", i if (i = 12) then DISPLAY " *** pass *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0077','pass','PCO') END-EXEC MOVE SQLCODE TO SQL-COD else DISPLAY " dml019.pco *** fail *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0077','fail','PCO') END-EXEC ADD 1 TO errcnt MOVE SQLCODE TO SQL-COD END-IF DISPLAY "========================================================" DISPLAY " " EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-COD ******************** END TEST0077 ******************* ******************** BEGIN TEST0078 ******************* DISPLAY " TEST0078 " DISPLAY " reference ANSI X3.135-1989 5.22 DISPLAY " - - - - - - - - - - - - - - - - - - -" DISPLAY " *** SELECT PNUM,EMPNUM " DISPLAY " *** FROM WORKS " DISPLAY " *** GROUP BY EMPNUM,PNUM,HOURS " EXEC SQL DECLARE WORKS10 CURSOR FOR SELECT PNUM,EMPNUM FROM WORKS GROUP BY EMPNUM,PNUM,HOURS END-EXEC EXEC SQL OPEN WORKS10 END-EXEC MOVE SQLCODE TO SQL-COD MOVE 0 TO i if (SQLCODE = 0) then DISPLAY " PNUM EMPNUM " END-IF MOVE 1 TO ii PERFORM P46 UNTIL ii > 19 EXEC SQL CLOSE WORKS10 END-EXEC MOVE SQLCODE TO SQL-COD DISPLAY " " DISPLAY " i shoud be 12, i=", i if (i = 12) then DISPLAY " *** pass *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0078','pass','PCO') END-EXEC MOVE SQLCODE TO SQL-COD else DISPLAY " dml019.pco *** fail *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0078','fail','PCO') END-EXEC ADD 1 TO errcnt MOVE SQLCODE TO SQL-COD END-IF DISPLAY "========================================================" DISPLAY " " EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-COD ******************** END TEST0078 ******************* ******************** BEGIN TEST0079 ******************* DISPLAY " TEST0079 " DISPLAY " reference ANSI X3.135-1989 5.22 DISPLAY " - - - - - - - - - - - - - - - - - - -" EXEC SQL INSERT INTO STAFF(EMPNUM,EMPNAME,GRADE) VALUES('E6','WANG',40) END-EXEC MOVE SQLCODE TO SQL-COD EXEC SQL INSERT INTO STAFF(EMPNUM,EMPNAME,GRADE) VALUES('E7','Song',50) END-EXEC MOVE SQLCODE TO SQL-COD DISPLAY " *** SELECT SUM(GRADE) " DISPLAY " *** FROM STAFF " DISPLAY " *** WHERE CITY IS NULL " DISPLAY " *** GROUP BY CITY " EXEC SQL DECLARE WORKS11 CURSOR FOR SELECT SUM(GRADE) FROM STAFF WHERE CITY IS NULL GROUP BY CITY END-EXEC EXEC SQL OPEN WORKS11 END-EXEC MOVE SQLCODE TO SQL-COD MOVE 0 TO i EXEC SQL FETCH WORKS11 INTO :i END-EXEC MOVE SQLCODE TO SQL-COD EXEC SQL CLOSE WORKS11 END-EXEC MOVE SQLCODE TO SQL-COD EXEC SQL DELETE FROM STAFF WHERE CITY IS NULL END-EXEC MOVE SQLCODE TO SQL-COD DISPLAY " " DISPLAY " i shoud be 90, i=", i if (i = 90) then DISPLAY " *** pass *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0079','pass','PCO') END-EXEC MOVE SQLCODE TO SQL-COD else DISPLAY " dml019.pco *** fail *** " EXEC SQL INSERT INTO TESTREPORT VALUES('0079','fail','PCO') END-EXEC ADD 1 TO errcnt MOVE SQLCODE TO SQL-COD END-IF DISPLAY "========================================================" DISPLAY " " EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-COD ******************** END TEST0079 ******************* **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0 STOP RUN. * **** Procedures for PERFORM statements P50. EXEC SQL FETCH WORKS1 INTO :PNO1,:HOURS1 END-EXEC MOVE SQLCODE TO SQL-COD if (SQLCODE = 0) then COMPUTE i = i + 1 DISPLAY " PNUM=", PNO1 " HOURS=", HOURS1 END-IF ADD 1 TO ii . P49. EXEC SQL FETCH WORKS2 INTO :EMPNO1 END-EXEC MOVE SQLCODE TO SQL-COD if (SQLCODE = 0) then COMPUTE i = i + 1 DISPLAY " WORKS.EMPNUM = ", EMPNO1 " " END-IF ADD 1 TO ii . P48. EXEC SQL FETCH WORKS4 INTO :EMPNO1,:HOURS1 END-EXEC MOVE SQLCODE TO SQL-COD if (SQLCODE = 0) then COMPUTE i = i + 1 DISPLAY " ", EMPNO1 " ", HOURS1 " " END-IF ADD 1 TO ii . P47. EXEC SQL FETCH WORKS5 INTO :EMPNO1,:PNO1,:HOURS1 END-EXEC MOVE SQLCODE TO SQL-COD if (SQLCODE = 0) then COMPUTE i = i + 1 DISPLAY " ", EMPNO1 " ", PNO1 " ", HOURS1 END-IF ADD 1 TO ii . P46. EXEC SQL FETCH WORKS10 INTO :PNO1,:EMPNO1 END-EXEC MOVE SQLCODE TO SQL-COD if (SQLCODE = 0) then COMPUTE i = i + 1 DISPLAY " ", PNO1 " ", EMPNO1 " " END-IF ADD 1 TO ii . ¤ Dauer der Verarbeitung: 0.22 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 |
