|
IDENTIFICATION DIVISION.
PROGRAM-ID. DML079.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. xyz.
OBJECT-COMPUTER. xyz.
DATA DIVISION.
WORKING-STORAGE SECTION.
* Standard COBOL (file "DML079.SCO") calling SQL
* procedures in file "DML079.MCO".
* STANDARD COBOL (file "DML079.SCO")
****************************************************************
*
* COMMENT SECTION
*
* DATE 1991/10/10 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.
*
* DML079.SCO
* WRITTEN BY: SHIRLEY HURWITZ
*
* THIS ROUTINE TESTS MISCELLANEOUS FEATURES.
*
* REFERENCES
* AMERICAN NATIONAL STANDARD database language - SQL
* X3.135-1989
* X3.168-1989
*
****************************************************************
* EXEC SQL BEGIN DECLARE SECTION END-EXEC
01 EMPNM1 PIC X(20).
01 count1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
01 count2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
01 count3 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
01 count4 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
01 count5 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
01 count6 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(9) DISPLAY SIGN LEADING SEPARATE.
*date_time declaration
01 TO-DAY PIC 9(6).
01 THE-TIME PIC 9(8).
01 flag1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
01 flag2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
01 i PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
01 ii PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
01 j PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
01 jj PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
01 SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
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;
CALL "SUB1" USING SQLCODE uidx
MOVE SQLCODE TO SQL-COD
if (uid NOT = uidx) then
DISPLAY "ERROR: User ", uid " expected. User ", uidx "
- " connected"
END-IF
MOVE 0 TO errcnt
DISPLAY "SQL Test Suite, V6.0, Module COBOL, dml079.sco"
DISPLAY
"59-byte ID"
DISPLAY "TEd Version #"
*date_time print
ACCEPT TO-DAY FROM DATE
ACCEPT THE-TIME FROM TIME
DISPLAY "Date run YYMMDD: " TO-DAY " at hhmmssff: " THE-TIME
******************** BEGIN TEST0451 *******************
DISPLAY "=============================================="
DISPLAY " TEST0451 "
DISPLAY " UNIQUEness is case sensitive "
DISPLAY "X3.135-1989 Sec. 4.2.1 Character strings "
DISPLAY "X3.135-1989 Sec. 5.1 Format "
DISPLAY " - - - - - - - - - - - - - - - - - - -"
MOVE 0 TO i
* EXEC SQL UPDATE STAFF SET EMPNUM = 'e2'
* WHERE EMPNUM = 'E4';
CALL "SUB2" USING SQLCODE
MOVE SQLCODE TO SQL-COD
if (SQLCODE = 0) then
ADD 1 TO i
END-IF
DISPLAY " 1. SQLCODE = 0 is a pass. SQLCODE = ", SQL-COD
* EXEC SQL INSERT INTO STAFF(EMPNUM)
* VALUES ('E1');
CALL "SUB3" USING SQLCODE
MOVE SQLCODE TO SQL-COD
if (SQLCODE < 0) then
ADD 1 TO i
END-IF
DISPLAY " 2. SQLCODE less than 0 is a pass. SQLCODE = ",
SQL-COD
* EXEC SQL INSERT INTO STAFF(EMPNUM)
* VALUES ('e1');
CALL "SUB4" USING SQLCODE
MOVE SQLCODE TO SQL-COD
if (SQLCODE = 0) then
ADD 1 TO i
END-IF
DISPLAY " 3. SQLCODE = 0 is a pass. SQLCODE = ", SQL-COD
* EXEC SQL UPDATE STAFF
* SET EMPNUM = 'E1' WHERE EMPNUM = 'e1';
CALL "SUB5" USING SQLCODE
MOVE SQLCODE TO SQL-COD
if (SQLCODE < 0) then
ADD 1 TO i
END-IF
DISPLAY " 4. SQLCODE less than 0 is a pass. SQLCODE = ",
SQL-COD
* EXEC SQL INSERT INTO WORKS (EMPNUM,PNUM)
* VALUES ('e1','p2');
CALL "SUB6" USING SQLCODE
MOVE SQLCODE TO SQL-COD
if (SQLCODE = 0) then
ADD 1 TO i
END-IF
DISPLAY " 5. SQLCODE = 0 is a pass. SQLCODE = ", SQL-COD
* EXEC SQL INSERT INTO WORKS (EMPNUM,PNUM)
* VALUES ('E1','p2');
CALL "SUB7" USING SQLCODE
MOVE SQLCODE TO SQL-COD
if (SQLCODE = 0) then
ADD 1 TO i
END-IF
DISPLAY " 6. SQLCODE = 0 is a pass. SQLCODE = ", SQL-COD
* EXEC SQL INSERT INTO WORKS (EMPNUM,PNUM)
* VALUES ('E1','P2');
CALL "SUB8" USING SQLCODE
MOVE SQLCODE TO SQL-COD
if (SQLCODE < 0) then
ADD 1 TO i
END-IF
DISPLAY " 7. SQLCODE less than 0 is a pass. SQLCODE = ",
SQL-COD
* EXEC SQL INSERT INTO WORKS (EMPNUM,PNUM)
* VALUES ('e1', 'P2');
CALL "SUB9" USING SQLCODE
MOVE SQLCODE TO SQL-COD
if (SQLCODE = 0) then
ADD 1 TO i
END-IF
DISPLAY " 8. SQLCODE = 0 is a pass. SQLCODE = ", SQL-COD
* EXEC SQL UPDATE WORKS
* SET EMPNUM = 'E1'
* WHERE PNUM = 'P5' AND EMPNUM = 'E4';
CALL "SUB10" USING SQLCODE
MOVE SQLCODE TO SQL-COD
if (SQLCODE < 0) then
ADD 1 TO i
END-IF
DISPLAY " 9. SQLCODE less than 0 is a pass. SQLCODE = ",
SQL-COD
* EXEC SQL UPDATE WORKS
* SET EMPNUM = 'e1'
* WHERE PNUM = 'P5' AND EMPNUM = 'E4';
CALL "SUB11" USING SQLCODE
MOVE SQLCODE TO SQL-COD
if (SQLCODE = 0) then
ADD 1 TO i
END-IF
DISPLAY " 10. SQLCODE = 0 is a pass. SQLCODE = ",
SQL-COD
* EXEC SQL UPDATE WORKS
* SET PNUM = 'P4'
* WHERE PNUM = 'P2' AND EMPNUM = 'E4';
CALL "SUB12" USING SQLCODE
MOVE SQLCODE TO SQL-COD
if (SQLCODE < 0) then
ADD 1 TO i
END-IF
DISPLAY " 11. SQLCODE less than 0 is a pass. SQLCODE =
- " ", SQL-COD
* EXEC SQL UPDATE WORKS
* SET PNUM = 'p4'
* WHERE PNUM = 'P2' AND EMPNUM = 'E4';
CALL "SUB13" USING SQLCODE
MOVE SQLCODE TO SQL-COD
if (SQLCODE = 0) then
ADD 1 TO i
END-IF
DISPLAY " 12. SQLCODE = 0 is a pass. SQLCODE = ",
SQL-COD
* EXEC SQL ROLLBACK WORK;
CALL "SUB14" USING SQLCODE
MOVE SQLCODE TO SQL-COD
DISPLAY " The correct answer is i = 12"
DISPLAY " Your answer is i = ", i
if (i = 12) then
DISPLAY " *** pass ***"
* EXEC SQL INSERT INTO TESTREPORT
* VALUES('0451','pass','MCO');
CALL "SUB15" USING SQLCODE
MOVE SQLCODE TO SQL-COD
else
DISPLAY " dml079.sco *** fail ***"
* EXEC SQL INSERT INTO TESTREPORT
* VALUES('0451','fail','MCO');
CALL "SUB16" USING SQLCODE
MOVE SQLCODE TO SQL-COD
COMPUTE errcnt = errcnt + 1
END-IF
DISPLAY " "
* EXEC SQL COMMIT WORK;
CALL "SUB17" USING SQLCODE
MOVE SQLCODE TO SQL-COD
DISPLAY
"====================================================="
******************** END TEST0451 *******************
******************** BEGIN TEST0452 *******************
MOVE 0 TO i
MOVE 0 TO j
DISPLAY " TEST0452 "
DISPLAY " Order of precedence, Left to Right, in UNION
- " (ALL) "
DISPLAY "X3.135-1989 sec. 8.3 GR 2) b) and
- " "
DISPLAY " - - - - - - - - - - - - - - - - - - -"
DISPLAY " *** FOR (SELECT EMPNAME FROM STAFF )"
DISPLAY " *** UNION "
DISPLAY " *** SELECT EMPNAME FROM STAFF "
DISPLAY " *** UNION ALL "
DISPLAY " *** SELECT EMPNAME FROM STAFF"
DISPLAY " *** FOR (SELECT EMPNAME FROM STAFF )"
DISPLAY " *** UNION ALL "
DISPLAY " *** SELECT EMPNAME FROM STAFF "
DISPLAY " *** UNION "
DISPLAY " *** SELECT EMPNAME FROM STAFF"
* EXEC SQL DECLARE X1 CURSOR
* FOR SELECT EMPNAME FROM STAFF
* UNION
* SELECT EMPNAME FROM STAFF
* UNION ALL
* SELECT EMPNAME FROM STAFF END-EXEC
* EXEC SQL DECLARE X2 CURSOR
* FOR SELECT EMPNAME FROM STAFF
* UNION ALL
* SELECT EMPNAME FROM STAFF
* UNION
* SELECT EMPNAME FROM STAFF END-EXEC
* EXEC SQL OPEN X1;
CALL "SUB18" USING SQLCODE
MOVE SQLCODE TO SQL-COD
MOVE 1 TO ii
PERFORM P50 UNTIL ii > 15
* EXEC SQL CLOSE X1;
CALL "SUB19" USING SQLCODE
MOVE SQLCODE TO SQL-COD
* EXEC SQL OPEN X2;
CALL "SUB20" USING SQLCODE
MOVE SQLCODE TO SQL-COD
MOVE 1 TO jj
PERFORM P49 UNTIL jj > 15
* EXEC SQL CLOSE X2;
CALL "SUB21" USING SQLCODE
MOVE SQLCODE TO SQL-COD
DISPLAY "The correct answer is i=10 and j=5 "
DISPLAY "Your answer is i=", i " j=", j " "
if ((i = 10) AND (j = 5)) then
DISPLAY " *** pass ***"
* EXEC SQL INSERT INTO TESTREPORT
* VALUES('0452','pass','MCO');
CALL "SUB22" USING SQLCODE
MOVE SQLCODE TO SQL-COD
else
DISPLAY " dml079.sco *** fail ***"
* EXEC SQL INSERT INTO TESTREPORT
* VALUES('0452','fail','MCO');
CALL "SUB23" USING SQLCODE
MOVE SQLCODE TO SQL-COD
COMPUTE errcnt = errcnt + 1
END-IF
DISPLAY " "
* EXEC SQL COMMIT WORK;
CALL "SUB24" USING SQLCODE
MOVE SQLCODE TO SQL-COD
DISPLAY
"====================================================="
******************** END TEST0452 *******************
******************** BEGIN TEST0453 *******************
DISPLAY " TEST0453 "
DISPLAY " NULL with empty subquery in ALL, SOME, ANY"
DISPLAY " ref. X3.135-1989 5.16, GR 2a and 2d empty
- " subquery "
DISPLAY
"--------------------------------------------------------"
COMPUTE count1 = -7
COMPUTE count2 = -7
COMPUTE count3 = -7
COMPUTE count4 = -7
COMPUTE count5 = -7
COMPUTE count6 = -7
MOVE 0 TO flag1
MOVE 0 TO flag2
* EXEC SQL UPDATE PROJ
* SET CITY = NULL WHERE PNAME = 'IRM';
CALL "SUB25" USING SQLCODE
MOVE SQLCODE TO SQL-COD
* EXEC SQL SELECT COUNT(*) INTO :count1
* FROM PROJ
* WHERE CITY IS NULL;
CALL "SUB26" USING SQLCODE count1
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 1) then
MOVE 1 TO flag1
DISPLAY "Failed to set city to NULL for IRM "
END-IF
* EXEC SQL SELECT COUNT(*) INTO :count1
* FROM PROJ
* WHERE CITY = ALL (SELECT CITY
* FROM STAFF
* WHERE EMPNUM = 'E8');
CALL "SUB27" USING SQLCODE count1
MOVE SQLCODE TO SQL-COD
* EXEC SQL SELECT COUNT(*) INTO :count2
* FROM PROJ
* WHERE CITY <> ALL (SELECT CITY
* FROM STAFF
* WHERE EMPNUM = 'E8');
CALL "SUB28" USING SQLCODE count2
MOVE SQLCODE TO SQL-COD
* EXEC SQL SELECT COUNT(*) INTO :count3
* FROM PROJ
* WHERE CITY = ANY (SELECT CITY
* FROM STAFF
* WHERE EMPNUM = 'E8');
CALL "SUB29" USING SQLCODE count3
MOVE SQLCODE TO SQL-COD
* EXEC SQL SELECT COUNT(*) INTO :count4
* FROM PROJ
* WHERE CITY <> ANY (SELECT CITY
* FROM STAFF
* WHERE EMPNUM = 'E8');
CALL "SUB30" USING SQLCODE count4
MOVE SQLCODE TO SQL-COD
* EXEC SQL SELECT COUNT(*) INTO :count5
* FROM PROJ
* WHERE CITY = SOME (SELECT CITY
* FROM STAFF
* WHERE EMPNUM = 'E8');
CALL "SUB31" USING SQLCODE count5
MOVE SQLCODE TO SQL-COD
* EXEC SQL SELECT COUNT(*) INTO :count6
* FROM PROJ
* WHERE CITY <> SOME (SELECT CITY
* FROM STAFF
* WHERE EMPNUM = 'E8');
CALL "SUB32" USING SQLCODE count6
MOVE SQLCODE TO SQL-COD
* EXEC SQL ROLLBACK WORK;
CALL "SUB33" USING SQLCODE
MOVE SQLCODE TO SQL-COD
DISPLAY " The correct answers are:"
DISPLAY " count1 = 6, count2 = 6, count3 = 0"
DISPLAY " count4 = 0, count5 = 0, count6 = 0"
DISPLAY " "
DISPLAY " Your answers are:"
DISPLAY " count1 = ", count1 ", count2 = ", count2 ",
- " count3 = ", count3
DISPLAY " count4 = ", count4 ", count5 = ", count5 ",
- " count6 = ", count6
if ((count1 NOT = 6) OR (count2 NOT = 6) OR (count3
NOT = 0)) then
MOVE 1 TO flag1
END-IF
if ((count4 NOT = 0) OR (count5 NOT = 0) OR (count6
NOT = 0)) then
MOVE 1 TO flag2
END-IF
if ((flag1 = 0) AND (flag2 = 0)) then
DISPLAY " *** pass *** "
* EXEC SQL INSERT INTO TESTREPORT
* VALUES('0453','pass','MCO');
CALL "SUB34" USING SQLCODE
MOVE SQLCODE TO SQL-COD
else
DISPLAY " dml079.sco *** fail *** "
* EXEC SQL INSERT INTO TESTREPORT
* VALUES('0453','fail','MCO');
CALL "SUB35" USING SQLCODE
MOVE SQLCODE TO SQL-COD
COMPUTE errcnt = errcnt + 1
END-IF
DISPLAY " "
* EXEC SQL COMMIT WORK;
CALL "SUB36" USING SQLCODE
MOVE SQLCODE TO SQL-COD
DISPLAY
"=================================================="
******************** END TEST0453 *******************
**** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0
STOP RUN.
* **** Procedures for PERFORM statements
P50.
* EXEC SQL FETCH X1 INTO :EMPNM1;
CALL "SUB37" USING SQLCODE EMPNM1
MOVE SQLCODE TO SQL-COD
if (SQLCODE = 0) then
MOVE ii TO i
END-IF
ADD 1 TO ii
.
P49.
* EXEC SQL FETCH X2 INTO :EMPNM1;
CALL "SUB38" USING SQLCODE EMPNM1
MOVE SQLCODE TO SQL-COD
if (SQLCODE = 0) then
MOVE jj TO j
END-IF
ADD 1 TO jj
.
¤ Dauer der Verarbeitung: 0.16 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.
|
