.PROGRAM-ID . DML160.ENVIRONMENT DIVISION 000, 12.03E05)END-EXEC CONFIGURATION SECTION SQLCODEMOVE SQL-CODSOURCE-COMPUTER CHCKOKOBJECT-COMPUTER . xyz.DATA ERFORMWORKING-STORAGE SECTION . * EMBEDDED COBOL (file "DML160.PCO") **************************************************************** * * COMMENT SECTION * * DATE 1995/12/11 EMBEDDED COBOL LANGUAGE * 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. * * DML160.PCO * WRITTEN BY: David Flater * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE * * This routine tests joined tables. * * REFERENCES * FIPS PUB 127-2 14.2 Intermediate SQL * ANSI SQL-1992 * **************************************************************** EXEC SQL BEGIN0 9)java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36" PIC X(5).PIC X1)java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27".0, 66.0;java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29 PIC INTO (30 ,PIC S90.0E0)java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36MOVE SQL-CODEXEC SQL END PERFORM java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25SEPARATE DISPLAY INTO VALUE IS "01234ABCDEFGH56789IJKLMNOPQRSTUVWXYZ" .PIC 3 .SQL CONST_NOT_NORM (30 *date_time declaration PIC 96.PIC 9(8).SIGN SEPARATE DISPLAY LEADING SEPARATE SQLCODE SQL-CODPROCEDURE MOVE SQLCODE java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 25" CALL "AUTHID" USING DISPLAY "INSERT INTO VALUES0MOVE 0. flt1EXEC SQL SELECT USER" EPOCH " 00 57;java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 29MOVE TO EXEC ROLLBACK END-EXEC MOVE TO SQL-CODif NOT ) then DISPLAY "ERROR: User " , "java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25 END-EXEC STOP RUN END-IF MOVE 0 TO errcntDISPLAY "SQL Test Suite, V6.0, Embedded EXEC SQL INSERTINTOCONST_NOT_NORMVALUES( java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25 DISPLAY "9- ID" DISPLAY "TEd Version #" *date_time print ACCEPT TO-DAY DATE ACCEPT THE-TIME FROM TIME DISPLAY "Date java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 25 ******************** BEGIN TEST0859 ******************* TO DISPLAY " TEST0859" DISPLAY " contained in DISPLAY ReferencesDISPLAY " 7.5 SR.4.b -- set function in " condition>" DISPLAY " F# COMPUTE = -1 DISPLAY "INSERT INTOCONST_NOT_NORMVALUES (300, 33, DISPLAY .1 ..e" COMPUTE .30,2.)" "" EXEC INTO 3,3 *<join condition> ::= ON <search condition> *Count the number of projects that each employee is working on *that meet certain budgetary criteria DISPLAY "DECLAREEXECSQL COUNT(*)INTO:cnth DISPLAY " SELECT EMPNUM, (SELECT COUNT(*) FROM HU.WORKS " DISPLAY " ON HU.WORKS.PNUM " INTO VALUES,34th 63DISPLAY .. .java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67MOVE TO DISPLAY ,1;EXEC CHCKOKSELECT EMPNUM, DISPLAY "MOVE flag AND BUDGET 0ORDER 21END-EXEC DISPLAY "OPEN EXEC SQL INSERT INTO VALUES (300,3, EXEC SQL OPEN 06, 12.)END-EXEC MOVE SQLCODE TO SQL-COD SQLCODE '911000500,)" PERFORM CHCKOK CHCKOKSQL PENDINGDISPLAY " " MOVE emnumCOMPUTE cnth = -1DISPLAY "FETCHINTO:,:nth" EXEC SQL FETCH"NSERTINTOV (0,3, MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY "emnum should be 'E5 '; PERFORM CHCKOK " java.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 60 if MOVE TO MOVE 0 TO flagEND-IF MOVE "xxx" TO *7PM EST is 12AM GMT, which is outside the constraint COMPUTE cnth FROM EXEC SQL FETCH C16011 INTO "01 TIMESTAMP '202 " WHERELOC_IDMOVE SQLCODE TO SQL-CODPERFORM EXEC INSERT PENDING ( SQL SELECT INTO FROM CONST_RADDISPLAY " WHERE LOC_ID 0 DISPLAY "cnth should be 1; its value is " , cnth = 0 END-EXEC if (emnum NOT TO MOVE 0 TO flagEND-IF COMPUTE cnth = -1DISPLAY " C16011 INTO :mnum,:;" EXEC FETCH INTO emnum java.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 29MOVE TO " be 2300 its value is,java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72 PERFORM CHCKOKDISPLAY " PERFORMNOSUBCLASSTHRUEXIT-NOSUBCLASS DISPLAY " should be 1 its value is " java.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 60if (emnum( cnthMOVE 0 TO flagjava.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29END-IF MOVE "xxx" TO emnumDISPLAY "FETCH C16011 INTO " alid.EXEC SQL FETCH C16011java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19MOVE SQLCODE TO SQL-CODPERFORM CHCKOK SQLCODE SQL-CODDISPLAY "emnum should be 'E4 '; its value is '" , " INTO PENDING VALUES (" DISPLAY "cnth should be 2; its value is " DISPLAY 1,22-- 10:-:'" NOT E4 NOT '202-231:95-:' 1;MOVE 0 TO flagEND-IF MOVE " 0,TIMESTAMP '2025-2- 90:050', length 65DISPLAY "PERFORMCHCKOK EXEC SQL C16011"" MOVE SQLCODE,' PERFORM DISPLAY " INTO PENDINGVALUES " '1952-0:000:0 );" DISPLAY "emnum SQL INSERT INTO PENDINGVALUES( DISPLAY "cnth should be 4; its value is " , cnthif (emnum "0,TIMESTAMP '9-2- 90:00:0,java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68 MOVE 0 TO flagDISPLAY "COMMIT WORK;" EXEC java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25MOVE P CHCKOK" DISPLAY " if ( flag = *Check that constraint. DISPLAY " *** pass *** " EXEC *it ends up being just 1993-12-31, which does not meet the '0859' ,'pass' , *constraint. 6.10 GR.9.c MOVE SQLCODEelse ngth 57EXEC WHEREAND FLAG'0859' ,'fail' ,'PCO' ) SELECT (YEAR CHECK_DATES INTO (MOVE TO COMPUTE errcnt + 1DISPLAY "=================DISPLAY SQLCODEbe<;its , EXEC SQL COMMIT WORK END-EXEC MOVE TO SQL-COD ******************** END TEST0859 ******************** ******************** BEGIN TEST0860 ******************* MOVE DISPLAY SQLCODE 0its,SQL-CODDISPLAY (SQLCODE < 0 DISPLAY java.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 60DISPLAY "eferences: DISPLAY #2 - " DISPLAY " " should 2300 value " java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72 END-IF DISPLAY " F# 6 -- VARCHAR data type" "F8-inviews DISPLAY " F# 17 -- Multiple schemas per user" DISPLAY F#2 -CAST ValidacceptedDISPLAY " - END-IF COMPUTE SQLCODE = -1"30 ORMSQ java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70 *Some people insist on using epochs outside of the traditional *0 to 360 range, so may as well use implementation-defined *precision too. DISPLAY "CREATE DOMAIN EPOCH_NOT_NORM AS DECIMAL * EXEC SQL CREATE DOMAIN EPOCH_NOT_NORM AS DECIMAL (5, 2) * END-EXEC DISPLAY DISPLAY FROM AND ;java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70DISPLAY "INTOcnth EXEC SQL CHECK_PTS = = 1 java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68PERFORM CHCKOK *Similar, for people who think in radians DISPLAY REATEDISPLAY " CHECK (VALUE BETWEEN 0E0 AND 2E0 PERFORM CHCKOK * EXEC SQL CREATE DOMAIN RAD_EPOCH_TYPE FLOAT (20) * CHECK (VALUE BETWEEN 0E0 AND 2E0 * 3.1416E0) END-EXEC MOVE SQLCODE TO SQL-COD ( NOT 9)PERFORM DISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19MOVE TO PERFORM CHCKOKDISPLAY "INSERT INTO EXEC SQL INSERT INTO PENDING java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50 " DISPLAY MOVE TO * EXEC SQL CREATE DOMAIN RAD_EPOCH_NOT_NORM REAL END-EXEC MOVE SQLCODE TO SQL-CODDISPLAY " " DISPLAY "COMMIT WORK;" MOVE *it ends up being just 199 CHCKOKPERFORM "java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25 DISPLAY " " *We only have data for 1994 through 2025 "CREATEDOMAINTIDEDATEASDATEjava.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53 DISPLAY " CHECK DISPLAY" , (TIME 0AS" * EXEC SQL CREATE DOMAIN TIDEDATE AS DATE * CHECK (VALUE BETWEEN DATE '1994-01-01' AND DATE * '2025-12-31') END-EXEC MOVE SQLCODE TO SQL-CODCASTTO PERFORM DISPLAY SQLCODE SQL-CODDISPLAY "COMMIT WORK;" EXEC java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25MOVE SQLCODE TO SQL-CODPERFORM DISPLAY " " " " ZONE" DISPLAY "(2 NORMSQ 200)java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47 " 0 SQL INSERT DINNER_CLUB VALUES '2051-12::900' " EXEC CREATEDOMAIN AS WITH '1994-01-1 ' AND TIMESTAMPDISPLAY " implementation-defined SQLSTATE accepted." MOVE java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36if NOT )then DISPLAY " " DISPLAY "COMMIT WORK;" PERFORM CHCKOKDISPLAY " should be 230; its value is ,SQLSTATE DISPLAY " *...and furthermore, we have very specific notions about dinner. DISPLAY "CREATE DOMAIN DINNERTIME AS TIME" DISPLAY CHECKi(NOT 300then "'9000';java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26 SQL if ="30 java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70 2END-EXEC 14itsnthMOVE DISPLAY " PERFORM CHCKOK" DISPLAY "COMMIT WORK;" EXEC SQL WORK END-EXEC MOVE SQLCODE TO MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY 0TIME 0'" *Re-invent the wheel in our default schema because we have non- *normalized data and think in radians. Eventually the non- *normalized data will be normalized and moved into the main *schema (we hope). DISPLAY "CREATE TABLE CONST_NOT_NORM (" DISPLAY LOC_IDDISPLAY " CONST_ID DISPLAY " UNIQUE (LOC_ID, CONST_ID)," DISPLAY " AMPLITUDE TIDES.AMPLITUDE_TYPE MOVESQLCODETOSQL-COD DISPLAY EPOCH_NOT_NORMEXEC SQL CREATE "java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25 h 39NULL TIME TO PERFORM CHCKOKDISPLAY " DISPLAY "COMMIT WORK; MOVE TO SQL-COD EXEC SQL COMMIT CHCKOKMOVE SQLCODE TO SQL-CODDISPLAY " DISPLAY (,TIME DISPLAY " AMPLITUDE, EPOCH) AS" "SELECTLOC_ID DROP CASCADEEND-EXEC DISPLAY " CAST (EPOCH * 3.1 SQLCODE TO SQL-COD " RAD_EPOCH_TYPE)" DISPLAY " FROM TIDES.CONSTITUENTS;" NOT )java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40SELECT LOC_IDDISPLAY COMMITFROM .CONSTITUENTSNOSUBCLASSMOVE SQLCODE TO SQL-CODPERFORM DISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL CHCKOKMOVE SQLCODE TO "" PERFORM DISPLAY " " DISPLAY "CREATE VIEW CONST_RAD_NOT_NORM (LOC_ID, DISPLAY" alid" "AMPLITUDE EPOCH " "SELECTLOC_ID CONST_ID AMPLITUDE," " CAST( * 3.4525599 / 10 AS "RAD_EPOCH_NOT_NORM) DISPLAY " FROM CONST_NOT_NORM;" EXEC SQL COMMITEXEC COMMIT END-EXEC SELECT LOC_ID, CONST_ID, AMPLITUDE,"COMMITWORK; SQL WORKFROM CONST_NOT_NORM CHCKOKMOVE "" PERFORM CHCKOKDISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK END-EXEC CODE PERFORM CHCKOK" *List of tide predictions that are pending DISPLAY "CREATE TABLE PENDING (" DISPLAY " LOC_ID DEC (7) NOT java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 25 DISPLAY java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35DISPLAY " TOTIME TIDETIMESTAMP SQLCODE TO SQL-COD " CHECK (FROMTIME <= TOTIME)," DISPLAY " JOB_ID INT PRIMARY KEY);" EXEC SQL CREATE java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0NULL ,NULL ength 25MOVE DISPLAY " PERFORM CHCKOK COMMIT END-EXEC DISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25PERFORM CHCKOKDISPLAY java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25 *The data for the starting and ending days are hand-verified *6.10 GR.9.c Casting timestamp to date throws out the time *part. Which is good, considering that you can't *EXTRACT (DATE FROM TIDEDATE). DISPLAY CREATE(,JOB_ID" AS" " FROMTIME ) , DISPLAY " CAST (0 AS INT) FROM PENDING" DISPLAY " "SELECT CAST (OTIME ASTIDEDATE,JOB_ID," DISPLAY " CAST (1 " " EXEC SQL CREATE VIEW (CHECK_DATESJOB_IDSELECT CAST (FROMTIME AS TIDEDATE EXEC SQL DOMAINDISPLAY " FROM PENDING SQLCODEMOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " "COMMIT WORK;" EXEC SQL COMMIT WORK" WORK;" PERFORM java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25DISPLAY " " DISPLAY " PERFORM java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25 "" DISPLAY " DINNER DINNERTIME);" EXEC SQL CREATE TABLE DINNER_CLUBNOT DISPLAY " DOMAIN TIDETIMESTAMP CASCADE;" MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-CODPERFORM DISPLAY " " *First try out the DOUBLE PRECISION and INTERVAL domains that ar *already in TIDES. MOVE 500 SQL WORKMOVE 500 TO java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0DISPLAY " (MINUTE FROM MERIDIAN) INTO MOVESQLCODE TO SQL-COD DISPLAY " FROM TIDES. PERFORMCHCKOK gth 27FROM SQL END-EXEC FROM TIDES.LOCATIONS SQLCODE EW CASCADEEND-EXEC MOVE SQL-CODPERFORM CHCKOK *Sign of results specified by 6.6 GR.3.a.i DISPLAY "xhour should be -3; its value is " , xhourDISPLAY "xminit should be -30; its value is " , xminitNOT MOVE 0 TO flagEND-IF *There is no GMT-13. Violation of domain constraint 9.2 GR.4 *Integrity constraint violation DISPLAY "INSERT INTO TIDES.LOCATIONS VALUES (" "300 '', 160000,300,0 .E0," DISPLAY "INTERVAL-1300' HOUR GMT-13EXEC PERFORM java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25'Atlantis' , 160.0000, 3.0000, 0, 1.2E0,DISPLAY " WORK;" MOVE SQLCODE TO EXEC SQL COMMIT END-EXEC DISPLAY "SQLCODE should be < 0; its value is " , SQL-CODif (SQLCODE NOT < 0) then MOVE 0 TO DISPLAY "SQLSTATE should be 23000; its value is " , SQLSTATEPERFORM NOSUBCLASS THRU"ROP VIEW CONST_RAD ; if (NORMSQ NOT = "23000" ) then EXEC SQL VIEW CASCADEMOVE SQLCODE END-IF if NORMSQ2300 AND D "COMMITWORK;java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35 DISPLAY "Valid implementation-defined SQLSTATE accepted." END-IF DISPLAY MOVE TO DISPLAY ; *Negative amplitudes also illegal DISPLAY "UPDATE TIDES.CONSTITUENTS" DISPLAY "java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25 DISPLAY " WHERE LOC_ID = 100" th 42EXEC SQL UPDATE TIDES.CONSTITUENTSEXEC SQL TABLE SQL TABLE END-EXEC AND CONST_ID =MOVE SQLCODE SQL-CODMOVE SQLCODE SQL-CODDISPLAY "SQLCODE should be < 0; its value is " , SQL-CODif (SQLCODE NOT < 0) then MOVE 0 TO flagEND-IF DISPLAY " java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25 DISPLAY "SQLSTATE should be 23000; its java.lang.StringIndexOutOfBoundsException: Range [0, 57) out of bounds for length 35 PERFORM PERFORM if (NORMSQ NOT = "23000" ) then END-IF if (NORMSQ = "23000" AND NORMSQ NOT "TOSQL-COD then DISPLAY "Valid implementation-defined SQLSTATE accepted." END-IF DISPLAY " " DISPLAY "INSERT INTO TIDES.LOCATIONS VALUES (300," DISPLAY " ', ',-9.13, 3.13" DISPLAY " 1, 3.422E0, INTERVAL '-05:00' HOUR TO MINUTE, " ':US/Eastern');" "COMMIT WORK" 'Bath, Maine' , -69.8133, 43.9183,':US/Eastern' ) END-EXEC DELETE F TIDESPERFORM CHCKOK *Check constraint on normalized table DISPLAY "INSERT INTO TIDES.CONSTITUENTS VALUES MOVE SQLCODE SQL-COD " 0.134E0, 385.0);" INSERT INTO TIDES ISPLAY 0;java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44EXEC DELETE FROM TIDESLOCATIONSMOVE TO SQL-CODDISPLAY "SQLCODE should be < 0; its value is " , SQL-CODif (SQLCODE NOT < 0) then MOVE 0TO END-IF "SQLSTATE shouldbe SQL COMMITjava.lang.StringIndexOutOfBoundsException: Range [33, 29) out of bounds for length 42 PERFORM THRUif (NORMSQ NOT = "23000" ) then MOVE TO END-IF if (NORMSQ = "23000" AND NORMSQ NOT then END-IF DISPLAY " " *Load up some non-normalized data DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 0, "002E0,15.)" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 0,MOVE SQLCODE TO DISPLAY VALUES'PCO) PERFORM CHCKOK TO if ( flag = 1 ) " INTOCONST_NOT_NORMVALUES(30 *pass* " " 0.324E0, 144.5);" EXEC SQL INSERT H.java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49'0860' ,'pass' ,'PCO' END-EXEC MOVE SQLCODE TO SQL-CODPERFORM DISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0 EXEC SQL INSERT INTO CONST_NOT_NORM EXEC SQL WORK'0860' ,'fail' ,PCO) *** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0 MOVE TO java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36PERFORM CHCKOKjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0DISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 3, *Test SQLCODE and SQLSTATE for normal completion. " 0.81E0, CHCKOK. EXEC SQL "SQLCODEshouldbe0 itsvalueis" SQL-CODEND-IF END-EXEC MOVE SQLCODE TO SQL-CODDISPLAY " " DISPLAY "INSERT INTO java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52 length 30EXEC SQL INSERT CONST_NOT_NORMMOVE TO ******************** END TEST0860 ******************** MOVE SQLCODE MOVE 0TO PERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 5, " 3.143E0, 352.3);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 5,END-EXEC MOVE PERFORM CHCKOKDISPLAY "INSERT INTO NOSUBCLASS "000E0 5.0;" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 6,END-EXEC MOVE SQLCODE *subclasses with 000. This replacement equates valid PERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 7, " 0.104E0, 242.8);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUESTO NORMSQMOVE PERFORM CHCKOKDISPLAY "" DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 8, ".3E0, 186;java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30 EXEC SQL END-EXEC MOVE TO PERFORM CHCKOKDISPLAY " " DISPLAY *subclasses with 000. This replacement equates valid " 0.000E0, 133.3)java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11 EXEC SQL INSERT INTO *Changed NORMSQ means implementation-defined subclass, * SQLSTATE will be printed. MOVE DISPLAY "" DISPLAY java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17" 0.744E0, 322.0);" EXEC SQL INSERT INTO TO norm1MOVE *examining position 4 of char array NORMSQ PERFORM CHCKOK *valid characters are 0-9, A-Z DISPLAY " VARYING norm2 1BY1UNTIL norm2 36 DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300 java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17 EXEC SQL *Quit if NORMSQ is unchanged. Subclass is not impl.-def. END-EXEC MOVE SQLCODE TO SQL-CODPERFORM DISPLAY " " " INTO CONST_NOT_NORM VALUES (300, 2java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65 " 0.260E0, 130.4);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES 4 TO norm1*examining position 4 of char array NORMSQ MOVE SQLCODE TO SQL-CODDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 13, "1 ( norm2) EXEC SQL INSERT INTO if ((norm1=ALPNUM))then "0TONORMSQX(norm1) MOVE SQLCODE TO PERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 14, " 0.107E0, 140.8);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 14,VARYING norm2 1 Reference SQL-92 4.28 SQL-transactions, paragraph 2 PERFORM DISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 15, " 0.043E0, 114.3);" EXEC SQL END-EXEC MOVE TO java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36PERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 16, " 0.007E0, 116.4);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 16,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INTOCONST_NOT_NORMVALUES(30,1, " 0.00 java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17 EXEC SQL INSERT INTO CONST_NOT_NORM .END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 18, " 0.000E0, 17.3);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 18,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 19, " 0.488E0, 383.4);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 19,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 20, " 0.000E0, 69.0);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 20,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 21, " 0.000E0, 103.5);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 21,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 22, " 0.053E0, 365.8);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 22,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 23, " 0.053E0, 37.3);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 23,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 24, " 0.023E0, 297.8);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 24,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 25, " 0.138E0, 328.3);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 25,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 26, " 0.010E0, 124.4);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 26,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 27, " 0.000E0, 50.6);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 27,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 28, " 0.000E0, 49.4);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 28,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 29, " 0.000E0, 66.0);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 29,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 30, " 0.000E0, 67.8);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 30,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 31, " 0.000E0, 35.7);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 31,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 32, " 0.073E0, 285.0);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 32,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 33, " 0.033E0, 257.3);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 33,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 34, " 0.000E0, 0.6);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 34,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 35, " 0.056E0, 128.8);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 35,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO CONST_NOT_NORM VALUES (300, 36, " 0.038E0, 97.7);" EXEC SQL INSERT INTO CONST_NOT_NORM VALUES (300, 36,END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " MOVE 0.0 TO flt1DISPLAY "SELECT EPOCH INTO :flt1 FROM CONST_RAD" DISPLAY " WHERE LOC_ID = 100" DISPLAY " AND CONST_ID = 0;" EXEC SQL SELECT EPOCH INTO :flt1 FROM CONST_RADAND CONST_ID = 0 END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY "flt1 should be 2.11 += 0.01; its value is " , flt1if (flt1 < 2.10 OR flt1 > 2.12) then MOVE 0 TO flagEND-IF COMPUTE cnth = -1DISPLAY "SELECT COUNT(*) INTO :cnth" DISPLAY " FROM CONST_RAD_NOT_NORM" DISPLAY " WHERE EPOCH > 6.2831853E0;" EXEC SQL SELECT COUNT (*) INTO :cnthFROM CONST_RAD_NOT_NORMEND-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY "cnth should be 4; its value is " , cnthif (cnth NOT = 4) then MOVE 0 TO flagEND-IF DISPLAY "INSERT INTO PENDING VALUES (" DISPLAY " 300, TIMESTAMP '1995-12-15 00:00:00-05:00'," DISPLAY " TIMESTAMP '1995-12-17 00:00:00-05:00', 0);" EXEC SQL INSERT INTO PENDING VALUES ('1995-12-15 00:00:00-05:00' ,'1995-12-17 00:00:00-05:00' , 0) END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " *Check that constraint. *7PM EST is 12AM GMT, which is outside the constraint DISPLAY "INSERT INTO PENDING VALUES (" DISPLAY " 101, TIMESTAMP '2025-12-30 19:00:00-05:00'," DISPLAY " TIMESTAMP '2025-12-31 19:00:00-05:00', 1);" EXEC SQL INSERT INTO PENDING VALUES ('2025-12-30 19:00:00-05:00' ,'2025-12-31 19:00:00-05:00' , 1) END-EXEC MOVE SQLCODE TO SQL-CODDISPLAY "SQLCODE should be < 0; its value is " , SQL-CODif (SQLCODE NOT < 0) then MOVE 0 TO flagEND-IF DISPLAY "SQLSTATE should be 23000; its value is " , SQLSTATEPERFORM NOSUBCLASS THRU EXIT-NOSUBCLASSif (NORMSQ NOT = "23000" ) then MOVE 0 TO flagEND-IF if (NORMSQ = "23000" AND NORMSQ NOT = SQLSTATE)then DISPLAY "Valid implementation-defined SQLSTATE accepted." END-IF DISPLAY " " DISPLAY "INSERT INTO PENDING VALUES (" DISPLAY " 101, TIMESTAMP '2025-12-30 19:00:00-05:00'," DISPLAY " TIMESTAMP '2025-12-31 18:59:59-05:00', 1);" EXEC SQL INSERT INTO PENDING VALUES ('2025-12-30 19:00:00-05:00' ,'2025-12-31 18:59:59-05:00' , 1) END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO PENDING VALUES (" DISPLAY " 102, TIMESTAMP '1993-12-31 19:00:00-05:00'," DISPLAY " TIMESTAMP '1994-01-02 00:00:00-05:00', 2);" EXEC SQL INSERT INTO PENDING VALUES ('1993-12-31 19:00:00-05:00' ,'1994-01-02 00:00:00-05:00' , 2) END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " *1993-12-31 19:00:00-05:00 is within the constraint because it's *midnight GMT. Unfortunately, when we cast it to TIDEDATE, *it ends up being just 1993-12-31, which does not meet the *constraint. 6.10 GR.9.c DISPLAY "SELECT EXTRACT (YEAR FROM CHECK_DATES)" DISPLAY " INTO :cnth" DISPLAY " FROM CHECK_PTS WHERE JOB_ID = 2 AND FLAG = 0;" EXEC SQL SELECT EXTRACT (YEAR FROM CHECK_DATES)INTO :cnthFROM CHECK_PTS WHERE JOB_ID = 2 AND FLAG = 0 END-EXEC MOVE SQLCODE TO SQL-CODDISPLAY "SQLCODE should be < 0; its value is " , SQL-CODif (SQLCODE NOT < 0) then MOVE 0 TO flagEND-IF DISPLAY "SQLSTATE should be 23000; its value is " , SQLSTATEPERFORM NOSUBCLASS THRU EXIT-NOSUBCLASSif (NORMSQ NOT = "23000" ) then MOVE 0 TO flagEND-IF if (NORMSQ = "23000" AND NORMSQ NOT = SQLSTATE)then DISPLAY "Valid implementation-defined SQLSTATE accepted." END-IF DISPLAY " " COMPUTE cnth = -1DISPLAY "SELECT EXTRACT (YEAR FROM CHECK_DATES)" DISPLAY " INTO :cnth" DISPLAY " FROM CHECK_PTS WHERE JOB_ID = 2 AND FLAG = 1;" EXEC SQL SELECT EXTRACT (YEAR FROM CHECK_DATES)INTO :cnthFROM CHECK_PTS WHERE JOB_ID = 2 AND FLAG = 1 END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY "cnth should be 1994; its value is " , cnthif (cnth NOT = 1994) then MOVE 0 TO flagEND-IF DISPLAY "INSERT INTO DINNER_CLUB VALUES" DISPLAY " (0, TIME '17:30:00');" EXEC SQL INSERT INTO DINNER_CLUB VALUESTIME '17:30:00' ) END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO DINNER_CLUB VALUES" DISPLAY " (1, CAST (TIME '18:00:00' AS DINNERTIME));" EXEC SQL INSERT INTO DINNER_CLUB VALUESTIME '18:00:00' AS DINNERTIME)) END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "INSERT INTO DINNER_CLUB VALUES" DISPLAY " (2, TIME '19:30:00');" EXEC SQL INSERT INTO DINNER_CLUB VALUESTIME '19:30:00' ) END-EXEC MOVE SQLCODE TO SQL-CODDISPLAY "SQLCODE should be < 0; its value is " , SQL-CODif (SQLCODE NOT < 0) then MOVE 0 TO flagEND-IF DISPLAY "SQLSTATE should be 23000; its value is " , SQLSTATEPERFORM NOSUBCLASS THRU EXIT-NOSUBCLASSif (NORMSQ NOT = "23000" ) then MOVE 0 TO flagEND-IF if (NORMSQ = "23000" AND NORMSQ NOT = SQLSTATE)then DISPLAY "Valid implementation-defined SQLSTATE accepted." END-IF DISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " *Clean up the mess DISPLAY "DROP DOMAIN EPOCH_NOT_NORM CASCADE;" EXEC SQL DROP DOMAIN EPOCH_NOT_NORM CASCADE END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "DROP DOMAIN RAD_EPOCH_TYPE CASCADE;" EXEC SQL DROP DOMAIN RAD_EPOCH_TYPE CASCADE END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "DROP DOMAIN RAD_EPOCH_NOT_NORM CASCADE;" EXEC SQL DROP DOMAIN RAD_EPOCH_NOT_NORM CASCADE END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "DROP DOMAIN TIDEDATE CASCADE;" EXEC SQL DROP DOMAIN TIDEDATE CASCADE END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "DROP DOMAIN TIDETIMESTAMP CASCADE;" EXEC SQL DROP DOMAIN TIDETIMESTAMP CASCADE END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "DROP DOMAIN DINNERTIME CASCADE;" EXEC SQL DROP DOMAIN DINNERTIME CASCADE END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "DROP TABLE CONST_NOT_NORM CASCADE;" EXEC SQL DROP TABLE CONST_NOT_NORM CASCADE END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "DROP VIEW CONST_RAD CASCADE;" EXEC SQL DROP VIEW CONST_RAD CASCADE END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "DROP TABLE PENDING CASCADE;" EXEC SQL DROP TABLE PENDING CASCADE END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "DROP TABLE DINNER_CLUB CASCADE;" EXEC SQL DROP TABLE DINNER_CLUB CASCADE END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "DELETE FROM TIDES.LOCATIONS" DISPLAY " WHERE LOC_ID = 300;" EXEC SQL DELETE FROM TIDES.LOCATIONSEND-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-CODPERFORM CHCKOKDISPLAY " " if ( flag = 1 ) then DISPLAY " *** pass *** " EXEC SQL INSERT INTO HU.TESTREPORT'0860' ,'pass' ,'PCO' ) END-EXEC MOVE SQLCODE TO SQL-CODelse DISPLAY " dml160.pco *** fail *** " EXEC SQL INSERT INTO HU.TESTREPORT'0860' ,'fail' ,'PCO' ) END-EXEC MOVE SQLCODE TO SQL-CODCOMPUTE errcnt = errcnt + 1END-IF DISPLAY "===============================================" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-COD ******************** END TEST0860 ******************** **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0 STOP RUN . * **** Procedures for PERFORM statements *Test SQLCODE and SQLSTATE for normal completion. DISPLAY "SQLCODE should be 0; its value is " , SQL-CODDISPLAY "SQLSTATE should be 00000; its value is " , SQLSTATEPERFORM NOSUBCLASS THRU EXIT-NOSUBCLASSif (SQLCODE NOT = 0 OR NORMSQ NOT = "00000" ) then MOVE 0 TO flagEND-IF if (NORMSQ = "00000" AND NORMSQ NOT = SQLSTATE)then DISPLAY "Valid implementation-defined SQLSTATE accepted." END-IF *This routine replaces valid implementation-defined *subclasses with 000. This replacement equates valid *implementation-defined subclasses with the 000 value *expected by the test case; otherwise the test will fail. *After calling NOSUBCLASS, NORMSQ will be tested * SQLSTATE will be printed. MOVE SQLSTATE TO NORMSQMOVE 3 TO norm1 *subclass begins in position 3 of char array NORMSQ *valid subclass begins with 5-9, I-Z, end of ALPNUM table PERFORM VARYING norm2 FROM 14 BY 1 UNTIL norm2 > 36if (NORMSQX(norm1) = ALPNUM(norm2)) then MOVE "0" TO NORMSQX(norm1)END-IF END-PERFORM *Quit if NORMSQ is unchanged. Subclass is not impl.-def. *Changed NORMSQ means implementation-defined subclass, *so proceed to zero it out, if valid (0-9,A-Z) if (NORMSQ = SQLSTATE) then GO TO EXIT-NOSUBCLASSEND-IF MOVE 4 TO norm1 *examining position 4 of char array NORMSQ *valid characters are 0-9, A-Z PERFORM VARYING norm2 FROM 1 BY 1 UNTIL norm2 > 36if (NORMSQX(norm1) = ALPNUM(norm2)) then MOVE "0" TO NORMSQX(norm1)END-IF END-PERFORM MOVE 5 TO norm1 *valid characters are 0-9, A-Z *examining position 5 of char array NORMSQ PERFORM VARYING norm2 FROM 1 BY 1 UNTIL norm2 > 36if (NORMSQX(norm1) = ALPNUM(norm2)) then MOVE "0" TO NORMSQX(norm1)END-IF END-PERFORM *implementation-defined subclasses are allowed for warnings *(class = 01). These equate to successful completion *SQLSTATE values of 00000. *Reference SQL-92 4.28 SQL-transactions, paragraph 2 if (NORMSQX(1) = "0" AND NORMSQX(2) = "1" ) then MOVE "0" TO NORMSQX(2)END-IF EXIT .
Messung V0.5 C=92 H=99 G=95
¤ Dauer der Verarbeitung: 0.41 Sekunden
¤ *Bot Zugriff
