* 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) DISPLAYSIGNLEADINGSEPARATE.
01 ii PIC S9(9) DISPLAYSIGNLEADINGSEPARATE.
01 iii PIC S9(9) DISPLAYSIGNLEADINGSEPARATE. * 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) DISPLAYSIGNLEADINGSEPARATE.
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 FROMDATE ACCEPT THE-TIME FROMTIME 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
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.
