| Quellcodebibliothek Statistik Leitseite |
Nach dem Mausklick ist die Projektion eines vierdimensionalen Würfels zu sehen dml037.cob Sprache: Cobol |
|||||||||
|
DIVISION.
PROGRAM-ID IDENTIFICATION. ENVIRONMENT DIVISION CONFIGURATIONSECTION . xyz OBJECT-COMPUTER. xyz. . WORKING-STORAGED DIVISIONjava.lang.StringIndexOutOfBoundsException: Index 21 out * Standard COBOL (file "DML037.SCO") calling SQL * procedures in file "DML037.MCO" **************************************************************** * * COMMENT SECTION * * DATE 1987/09/13 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. * * DML037.SCO * WRITTEN BY: HU YANPING * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL BY CHRIS SCHANZLE * * THIS PROGRAM TESTS THE USE OF VARIABLE NAMES AS COLUMN NAMES * AND THE PLACEMENT OF SQL-STYLE COMMENTS * WITHIN SQL STATEMENTS. * * REFERENCES * AMERICAN NATIONAL STANDARD database language - SQL * X3.135-1989 MOVE "HU" TO uid * SR3 of Annexes C, E, F; SR4 of Annex D. * Section 5.3 <token>, <comment> definition **************************************************************** * EXEC SQL BEGIN DECLARE SECTION END-EXEC 01 PNUM PIC * REFERENCES 0 ( NOT) then 01 HOURS PICDISPLAY " connected. 1 PIC5java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for lengt 01DISPLAY 01 str2400 PNUM X(). * EXEC SQL END DECLARE SECTION END-EXEC 0 iPIC SIGN 01 1HOURSS9 SEPARATE 1uid1. 01 uidx PIC X(18). 01 SQL-COD PIC S9"9-yte IDjava.lang.StringIndexOutOfBoundsException: Index 23 out o 0 PIC X(240). 01 errcntDISPLAY" * date_time declaration * 01 TO-DAY * date_time print * 01THE-TIMEjava.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for . P0 Date0 PIC MOVE "HUjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for leng AUTHID MOVEnot ""USING MOVE D "- - --- - ---- java.lang.StringIndexOutOfBoundsException: Index 71 ou if * FROM WORKS DISPLAYCALL DISPLAY "User " 01 TO-DAY 9(java.lang.StringIndexOutOfBoundsException: Index 26 out DISPLAY STOP RUN java.lang.StringIndexOutOfBoundsException: Range [17, 18) out of bounds for leng 01THE-TIME DIVISION. ( AND =0 GRADE " DISPLAY else . ** fail DISPLAY "TEdjava.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for "" * date_time print * ACCEPT TO-DAY FROMjava.lang.StringIndexOutOfBoundsException: Index 17 out of bound User DISPLAY "Date CALL" SQLCODE ******************** BEGIN TEST0202 ******************* DISPLAY ******************** BEGIN TEST0234 ******************* S5< " D" DISPLAY - * EXEC SQL DELETE -- we empty the table! * EXEC SQL DECLARE X CURSOR * FOR SELECT EMPNUM,HOURS * FROM WORKS * WHERE PNUM='P2' END-EXEC * EXEC SQL OPEN X; CALL "SUB1" USING SQLCODEDISPLAY"" MOVE * END-EXEC MOVE0TO MOVE i PERFORM P50 TO * EXEC SQL SELECT STAFF.GRADE, STAFF.CITY * INTO :GRADE,:CITY * FROM STAFF * WHERE EMPNUM = 'E2' END-EXEC CALL- "" MOVE SQLCODE TO * FOR SELECT EMPNUM,HOURS DISPLAY * FROM WORKS DISPLAY " ii = ", ii * EXEC SQL OPEN X; " * INTO INTO - " 10." * :str240 -- there is only one row in the table DISPLAY " *** pass *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0202','pass','MCO') END-EXEC CALL SUB3 MOVEMOVE TO SQL-COD else DISPLAY " dml037.sco *** fail *** " * EXEC SQL INSERT INTO TESTREPORT * VALUES('0202','fail','MCO') END-EXEC ADD 1 TOjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for lengt CALL "SUB4" USING MOVE java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17 DISPLAY"================java.lang.StringIndexOutOfBoundsException: Range [0, 45) DISPLAY " " * EXEC SQL COMMIT WORK; CALL "================================" MOVE SQLCODE * VALUES('0234','pass','MCO') END-EXEC ******************** END TEST0202 ******************* ******************** BEGIN TEST0234 ******************* DISPLAY " TEST0234 " DISPLAY " Reference: Section 5. MOVE SQLCODE TO SQL-COD " - ----- ----- - -" * EXEC SQL DELETE -- we empty the table! * FROM TEXT240 END-EXEC CALL "SUB6" USING SQLCODE MOVE " *** pass *** " * EXEC SQL INSERT INTO TEXT240 -- This is the test for rules * VALUES -- for the placement * ('SQL-STYLE COMMENTS') --of * -- SQL-style comments * END-EXEC CALL "UB7" USING MOVE SQLCODE TO MOVE SQLCODE TO DISPLAY lse MOVE SQLCODE============================" * EXEC SQL SELECT * -- There is only one column to select. * INTO * :str240 -- there is only one row in the table * FROM TEXT240 END-EXEC CALL "SUB8" USING "SUB11" SQLCODE QLCODE SQL-COD END-IF * EXEC SQL ROLLBACK WORK; CALL"UB9 USINGSQLCODE MOVE SQLCODE TO if (i "SUB12"USING DISPLAY *pass DISPLAY "====================== * EXEC SQL INSERT INTO TESTREPORT * VALUES('0234','pass','MCO') END-EXEC CALL"SUB10"USING MOVE SQLCODE SQL-COD else DISPLAY " dml037sco ***fail ***" DISPLAY "==================java.lang.StringIndexOutOfBoundsException: Index 0 out of bou * EXEC SQL INSERT INTO TESTREPORT * VALUES('0234','fail','MCO') END-EXEC ADD ******************** BEGIN TEST0234 ******************* " TEST023 MOVE SQLCODE " - - -- -- -- -- - " DISPLAY " " * EXEC SQL COMMIT WORK; CALL"SUB12"USING MOVE SQLCODE TO SQL-COD ******************** END TEST0234 ******************* **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0 STOP RUN. * **** Procedures for PERFORM statements 5. * EXEC SQL FETCH X INTO :EMPNUM,:HOURS; CALL "SUB13" java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for MOVE SQLCODE TOSQL-COD if (SQLCODE = 0) then SQLCODE TOSQL-COD COMPUTEii+1 DISPLAY OVE TO i - " " END-IF ADD 1 TO * INTO . ¤ Dauer der Verarbeitung: 0.7 Sekunden ¤*© Formatika GbR, Deutschland |
|
2026-03-28