| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 6 kB |
|
Quelle sdl025.cob Sprache: Cobol |
|||||||||
|
IDENTIFICATION DIVISION.
PROGRAM-ID. SDL025. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. xyz. OBJECT-COMPUTER. xyz. DATA DIVISION. WORKING-STORAGE SECTION. * Standard COBOL (file "SDL025.SCO") calling SQL * procedures in file "SDL025.MCO" **************************************************************** * * COMMENT SECTION * * DATE 1988/09/14 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. * * SDL025.SCO * WRITTEN BY: HU YANPING * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL BY CHRIS SCHANZLE * * THIS ROUTINE TESTS THE SCHEMA DEFINITION LANGUAGE FOR SQL. * * REFERENCES * AMERICAN NATIONAL STANDARD database language - SQL * X3.135-1989 * * SECTION 6. Schema Definition Language * **************************************************************** * EXEC SQL BEGIN DECLARE SECTION END-EXEC 01 EMPNO1 PIC X(3). 01 HOURS1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 USERID PIC X(19). 01 i PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 ii PIC S9(9) DISPLAY SIGN LEADING SEPARATE. * EXEC SQL END DECLARE SECTION END-EXEC 01 i2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 uid PIC X(18). 01 uidx PIC X(18). 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, sdl025.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 DISPLAY " TEST0204 " DISPLAY " Create VIEW with check option to enforce a - " 'domain'" DISPLAY " Reference X3.135-89 section 6.9 DISPLAY " - - - - - - - - - - - - - - - - - - -" DISPLAY " *** CREATE VIEW DOMAIN_VIEW " DISPLAY " *** AS SELECT * FROM WORKS " DISPLAY " *** WHERE EMPNUM='E1' AND HOURS=80 " DISPLAY " *** OR EMPNUM='E2' AND HOURS=40 " DISPLAY " *** OR EMPNUM='E4' AND HOURS=20 " DISPLAY " *** WITH CHECK OPTION " * EXEC SQL SELECT EMPNUM, HOURS * INTO :EMPNO1,:HOURS1 * FROM DOMAIN_VIEW * WHERE PNUM = 'P3' END-EXEC CALL "SUB1" USING SQLCODE EMPNO1 HOURS1 MOVE SQLCODE TO SQL-COD DISPLAY " EMPNO1 = ", EMPNO1 ", HOURS1 = ", HOURS1 " " * EXEC SQL INSERT INTO DOMAIN_VIEW * VALUES('E1', 'P7', 80) END-EXEC CALL "SUB2" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) * INTO :i * FROM DOMAIN_VIEW END-EXEC CALL "SUB3" USING SQLCODE i MOVE SQLCODE TO SQL-COD * EXEC SQL ROLLBACK WORK; CALL "SUB4" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO DOMAIN_VIEW * VALUES('E2', 'P4', 80) END-EXEC CALL "SUB5" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO DOMAIN_VIEW * VALUES('E5', 'P5', 20) END-EXEC CALL "SUB6" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE SQLCODE TO i2 * EXEC SQL SELECT COUNT(*) * INTO :ii * FROM DOMAIN_VIEW END-EXEC CALL "SUB7" USING SQLCODE ii MOVE SQLCODE TO SQL-COD * EXEC SQL ROLLBACK WORK; CALL "SUB8" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY " i = ", i ", ii = ", ii ", i2 = ", i2 DISPLAY "The correct answer should be HOURS1=80, i=4, ii=3 & - " i2<0 " if ( HOURS1 = 80 AND i = 4 AND ii = 3 AND i2 < 0 ) then DISPLAY " *** pass *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0204','pass','MCO') END-EXEC CALL "SUB9" USING SQLCODE MOVE SQLCODE TO SQL-COD else DISPLAY " sdl025.sco *** fail *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0204','fail','MCO') END-EXEC ADD 1 TO errcnt CALL "SUB10" USING SQLCODE MOVE SQLCODE TO SQL-COD END-IF DISPLAY "===============================================" * EXEC SQL COMMIT WORK; CALL "SUB11" 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.11 Sekunden (vorverarbeitet) ¤*© Formatika GbR, Deutschland |
|
2026-03-28