| 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: suntab0.cob Sprache: Cobol |
|
||||||
|
IDENTIFICATION DIVISION.
PROGRAM-ID. SUNTAB0. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. xyz. OBJECT-COMPUTER. xyz. DATA DIVISION. WORKING-STORAGE SECTION. * Standard COBOL (file "SUNTAB0.SCO") calling SQL * procedures in file "SUNTAB0.MCO" **************************************************************** * * COMMENT SECTION * * DATE 1989/02/24 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. * * SUNTAB0.SCO * WRITTEN BY: SUN DAJUN * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL BY CHRIS SCHANZLE * * This routine initializes the contents of tables: * STAFF, PROJ, and WORKS * This routine may be run at any time to re-initialize tables. * **************************************************************** * EXEC SQL BEGIN DECLARE SECTION END-EXEC 01 i PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 ii PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 iii 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 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 "SUN" TO uid CALL "AUTHID" USING uid MOVE 0 TO errcnt DISPLAY "SQL Test Suite, V6.0, Module COBOL, suntab0.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 * EXEC SQL DELETE FROM STAFF; CALL "SUB1" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM PROJ; CALL "SUB2" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM WORKS; CALL "SUB3" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO STAFF VALUES ('E1','Alice',12,'Deale') * END-EXEC CALL "SUB4" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO STAFF VALUES * ('E2','Betty',10,'Vienna') END-EXEC CALL "SUB5" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO STAFF VALUES * ('E3','Carmen',13,'Vienna') END-EXEC CALL "SUB6" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO STAFF VALUES ('E4','Don',12,'Deale') * END-EXEC CALL "SUB7" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO STAFF VALUES ('E5','Ed',13,'Akron') * END-EXEC CALL "SUB8" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO PROJ VALUES * ('P1','MXSS','Design',10000,'Deale') END-EXEC CALL "SUB9" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO PROJ VALUES * ('P2','CALM','Code',30000,'Vienna') END-EXEC CALL "SUB10" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO PROJ VALUES * ('P3','SDP','Test',30000,'Tampa') END-EXEC CALL "SUB11" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO PROJ VALUES * ('P4','SDP','Design',20000,'Deale') END-EXEC CALL "SUB12" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO PROJ VALUES * ('P5','IRM','Test',10000,'Vienna') END-EXEC CALL "SUB13" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO PROJ VALUES * ('P6','PAYR','Design',50000,'Deale') END-EXEC CALL "SUB14" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO WORKS VALUES ('E1','P1',40); CALL "SUB15" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO WORKS VALUES ('E1','P2',20); CALL "SUB16" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO WORKS VALUES ('E1','P3',80); CALL "SUB17" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO WORKS VALUES ('E1','P4',20); CALL "SUB18" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO WORKS VALUES ('E1','P5',12); CALL "SUB19" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO WORKS VALUES ('E1','P6',12); CALL "SUB20" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO WORKS VALUES ('E2','P1',40); CALL "SUB21" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO WORKS VALUES ('E2','P2',80); CALL "SUB22" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO WORKS VALUES ('E3','P2',20); CALL "SUB23" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO WORKS VALUES ('E4','P2',20); CALL "SUB24" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO WORKS VALUES ('E4','P4',40); CALL "SUB25" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO WORKS VALUES ('E4','P5',80); CALL "SUB26" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :i FROM PROJ; CALL "SUB27" USING SQLCODE i MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :ii FROM STAFF; CALL "SUB28" USING SQLCODE ii MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :iii FROM WORKS; CALL "SUB29" USING SQLCODE iii MOVE SQLCODE TO SQL-COD if (i = 6 AND ii = 5 AND iii = 12) then DISPLAY "PROJ, STAFF, WORKS were created successfully!" else DISPLAY "*************************************" DISPLAY "* PROJ, STAFF or WORKS ERROR !!! *" DISPLAY "*************************************" END-IF * EXEC SQL COMMIT WORK; CALL "SUB30" USING SQLCODE MOVE SQLCODE TO SQL-COD **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0 STOP RUN. * **** Procedures for PERFORM statements ¤ Dauer der Verarbeitung: 0.2 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 |
