| products/Sources/formale Sprachen/C/Android/device/device/google/sdv/sdv_ivi_base/permissions/ (Firefox Browser Version 153.0.1©) |
|
Quelle dml076.cob Sprache: Cobol |
|||||||||||||||
|
IDENTIFICATION DIVISION. PROGRAM-ID. DML076. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. xyz. OBJECT-COMPUTER. xyz. DATA DIVISION. WORKING-STORAGE SECTION. * Standard COBOL (file "DML076.SCO") calling SQL * procedures in file "DML076.MCO". * STANDARD COBOL (file "DML076.SCO") ********************************************************* * * COMMENT SECTION * * DATE 1991/06/18 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. * * DML076.SCO * WRITTEN BY: YOLANDA HERD * * THIS ROUTINE TESTS NULLS AND CURSORS * * REFERENCES * AMERICAN NATIONAL STANDARD database language - SQL * X3.135-1989 * * SECTION 4.2 * DATA TYPES, DEFINITION OF NULL * SECTION 8.10, GR 8 * ********************************************************* * EXEC SQL BEGIN DECLARE SECTION END-EXEC 01 CHARTP PIC X(1 DISPLAY "" 01 INTTP PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 REALTP-SUB PIC S9(6)V99 DISPLAY SIGN LEADING SEPARATE. 01 SMLTP PIC S9(4) DISPLAY SIGN LEADING SEPARATE. 01 NUMTP PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 LEADING SEPARATE. 01 GRDE PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 NME1 PIC X(20). 01 NME2 PIC X(20). 01 CITY1PIC X(15). 01 VAR1 PIC X(3). 01 indic1 PIC S9(4) DISPLAY SIGN " ) then 01 indic2 PIC S9(4,'pass','MCO'); "UB10" USINGSQLCODE 01 indic4 PIC S9(4) DISPLAY SIGN LEADING SEPARATE. 01 indic5 PIC S9(4) DISPLAY SIGN LEADING SEPARATE. 01 indic6 PIC S9(4) DISPLAY SIGN LEADING SEPARATE. 01 indic7 PIC S9(4) DISPLAY SIGN LEADING SEPARATE * EXEC SQL INSERT INTO TESTREPORT 01 indic8PICS9(4))DISPLAY SIGN LEADING SEPARATE. 01 indic9 PIC S9(4) DISPLAY SIGN LEADING SEPARATE. 01 indicxPIC S9() DISPLAY SIGNLEADING SEPARATE. 01 count1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. SIGN LEADING SEPARATE. 01 count3 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. DISPLAY" dml076.sco *** ** " 01 count5 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 count6 PIC 01 count7 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 count8 PIC S9(9 DISPLAY "" 01 count9 PIC S9 01 countx PIC S9java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds fo * EXEC SQL END DECLARE SECTION END-EXEC 01 uid PIC X(18). 01 uidx PIC X(18). 01 flag1 PIC S9(9) DISPLAY SIGNjava.lang.StringIndexOutOfBoundsException: Index 0 out ********************** BEGIN TEST0436 ********************* 01 flag3 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 SQLCODE PIC S9(9) COMP. 01 errcnt PIC S9(4) DISPLAY SIGN LEADING SEPARATE. DISPLAY" TEST0436 " 01 SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 DISP1 PICS9()DISPLAY SIGN LEADING SEPARATE. 01 DISP2 PIC S9(4) DISPLAY SIGN LEADING SEPARATE. 01 DISP4 PIC S9(4) DISPLAY SIGN LEADING SEPARATE. 01 DISP8 PIC S9(4) DISPLAY SIGN LEADING SEPARATE. * date_time declaration * 9(6)java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 01 THE-TIME PIC 9(8)). PROCEDURE DIVISION. P0. MOVE "HU MOVE ""X TO CALL "AUTHID" USING MOVE TOindic1 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.java.lang.StringIndexOutOfBoundsException: Index 46 o DISPLAY " " STOP RUN END-IF MOVE 0 TO errcnt DISPLAY " MOVE 0 TO indic7 DISPLAY MOVE 0TO indic8 DISPLAY "59-byte ID" DISPLAY 0TO DISPLAY " " * date_time print * ACCEPT TO-DAY FROM DATE ACCEPT THE-TIME FROM TIME DISPLAY "Date run YYMMDD: " TO-DAY "T DECTP ********************** BEGIN TEST0410 ********************* *This program tests NULL values in OPEN CURSORS * DISPLAY " TEST0410 SQLCODE SQL-COD DISPLAY " value in OPENCURSOR " DISPLAY " reference X3.135-1989 5.11 GR2 and 5.21 GR2 - " " DISPLAY " - " --------CALL" MOVE NME1 MOVE "XXX" TO VAR1 MOVE - SUB16 java.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bound MOVE 0 TO indic2 MOVE 10000 TO count1 MOVEMOVE SQLCODE SQL-COD * EXEC SQL DECLARE X CURSOR * FOR SELECT PNUM * FROM PROJ * WHERE PNAME = :NME1:indic1 OR BUDGET > :count1:indic2 * END-EXEC * EXEC SQL OPEN X; CALL "SUB1" USING * EXEC SQL INSERT INTO MM VALUES(NULL); MOVE SQLCODE TO SQL-COD MOVE 1TOi PERFORM P50 UNTILSS VALUES(NULL); MOVE "MXSS" TO NME1 MOVE "XXXXXX" TO CITY1 MOVE 50000 TO count1 MOVE 0 TO count2 MOVE -1 TO indic1 MOVE 0 TO indic2 * EXEC SQL DECLARE Y CURSOR * FOR SELECT CITY * FROM PROJ * WHERE PNAME = :NME1:indic2 OR BUDGET < :count1:indic1 * END-EXEC * EXEC SQL OPEN Y; CALL "SUB2 * EXEC SQL SELECT CHARTEST INTO :CHARTP:indic1 MOVE SQLCODE TO CALL "SUB21"USINGSQLCODE indic1 MOVE 1 TO i PERFORM P49 UNTIL i > 6 DISPLAY " The correct answers are:" DISPLAY "count3=4 and count2 1 " DISPLAY " " DISPLAY " Your answers are DISPLAY" =" count3 count2 =",count2 java.lang.StringIndexOutOfBoundsException: Index if ((java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length * EXEC SQL INSERT INTO TESTREPORT * VALUES('0410','pass','MCO'); CALL "SUB3" USING SQLCODEMOVE TOSQL-COD * EXEC SQL SELECT SMALLTEST INTO :SMLTP:indic4 DISPLAY " *** pass *** " else * EXEC SQL INSERT INTO TESTREPORT * VALUES('0410','fail','MCO'); ADD 1 TO errcnt CALL "SUB4" USING SQLCODE MOVE SQLCODE TO java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds fo DISPLAY " dml076.sco *** fail *** * WHERE DOUBLETEST IS NULL; END-IF DISPLAY "==========java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for DISPLAY " "UB29 SQLCODE * EXEC SQL COMMIT WORK; CALL "SUB5" USING SQLCODE MOVE SQLCODE TO SQL-COD ********************** END TEST0410 ********************* ********************** BEGIN TEST0435 ********************* *This program tests UPDATES WHERE CURRENT * DISPLAY " TEST0435 " DISPLAY ALL""USING DECTP "reference .135-19898.,value " DISPLAY " - " MOVE DISP8 * EXEC SQL DECLARE DINO CURSOR * FOR SELECT EMPNUM, CITY * FROM STAFF * WHERE CITY > 'Dino' END-EXEC * EXEC SQL OPEN DINO; CALL "SUB6" USING SQLCODE MOVE SQLCODE TO SQL-COD MOVE 0 TO GRDE MOVE"XXXXX" TO CITY1 MOVE "XXX" TO NME1 MOVE"XXX" TOVAR1 MOVE 1 TO i PERFORM P48 UNTIL i > 5 MOVE -1 TO GRDE MOVE "Joan" TO NME1 * EXEC SQL SELECT SUM(GRADE) INTO :GRDE * FROM STAFF * WHERE CITY = :CITY1; CALL "SUB7" USING SQLCODE GRDE CITY1 SQLCODE * EXEC SQL SELECT EMPNAME INTO :NME1 * FROM STAFF * WHERE EMPNAME > 'Ed'; CALLjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length MOVE SQLCODE TO SQL-COD * EXEC SQL ROLLBACK WORK; CALL "SUB9" USING SQLCODE MOVE SQLCODE TO SQL-COD "" DISPLAY " The correct answers are:" DISPLAY NOT 1) then DISPLAY"" DISPLAY " Your answers are:" DISPLAY " GRDE = ", GRDE " and NME1 END-IF if ((GRDE = 35) AND (NME1 = "Smith - " ")) then * EXEC SQL INSERT INTO TESTREPORT * VALUES('0435','pass','MCO'); CALL "SUB10" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY " *** pass *** " else * EXEC SQL INSERT INTO TESTREPORT * VALUES('0435','fail','MCO'); ADD 1 TO errcnt CALL "SUB11" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY sco* * " END-IF DISPLAY "================================================ " * ** " DISPLAY " " * EXEC SQL COMMIT WORK; CALL "SUB12" USING SQLCODE MOVE SQLCODE TO SQL-COD ********************** END TEST0435 ********************* ********************** BEGIN TEST0436 ********************* *This program tests the NULL values for various *SQL Data Types DISPLAY"===========================" DISPLAY " NULL values for various SQL Data Types - " " DISPLAY " reference X3.135-1989 section 4.2, 8.10 GR 8 -"java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 1 java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for leng - " -------------java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds MOVE "X" TO CHARTPGIN TEST0437 ******************* 0TO MOVE 0 TO indic2 0 indic3 MOVE 0 TO indic4 MOVE 0 TO indic5 MOVE 0 TO 135 42 . 5.GR MOVE 0 TO indic7 MOVE 0 TO indic8 ------------------------" MOVE 0 TO count2 MOVE 0 TO count3 MOVE 99999 TO INTTP MOVE 99 TO SMLTP MOVE 999 TO NUMTP MOVEMOVE0TO indic5 * EXEC SQL INSERT INTO BB VALUES(NULL); CALL "SUB13" java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for MOVE SQLCODE TO java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds f * EXEC SQL INSERT INTO EE VALUES(NULL); CALL "SUB14" USING SQLCODE MOVE 0 TO count4 * EXEC SQL INSERT INTO GG VALUES(NULL); CALL "SUB15 MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO HH VALUES(NULL); "UB16" USING MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO II VALUES(NULL); CALL "SUB17" USING SQLCODE MOVE * EXEC SQL INSERT INTO BB VALUES(:CHARTP :indic1); * EXEC SQL INSERT INTO JJ VALUES(NULL); CALL "SUB18" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO MM VALUES(NULL); * EXEC SQL INSERT INTO SS VALUES(:DECTP :indic2); MOVE SQLCODE TO SQL-COD CALL "UB37" SQLCODE DECTP indic2 * EXEC SQL INSERT INTO SS VALUES(NULL); CALL "SUB20" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT CHARTEST INTO :CHARTP:indic1 * FROM BB; CALL "SUB21" USING SQLCODE CHARTP indic1 MOVE SQLCODE TO SQL-COD java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 0 * EXEC SQL SELECT INTTEST INTO :INTTP:indic2 * FROM EE; CALL "SUB22" USING SQLCODE INTTP indic2 MOVE SQLCODE TO SQL-COD MOVE indic2 TO DISP2 MOVE45 TO REALTP-SUB * EXEC SQL SELECT COUNT(*) INTO :count1 * FROM GG * WHERE REALTEST IS NULL; CALL"UB24 USING SQLCODE count1 MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT SMALLTEST INTO :SMLTP:indic4 * FROM HH; CALL "SUB25" USING SQLCODE "SUB40" USING SQLCODE DECTPindic5 MOVE * EXEC SQL INSERT INTO GG VALUES(:REALTP-SUB :indic6); MOVE indic4 TO DISP4 * EXEC SQL SELECT COUNT(*) INTO :count2 * FROM II * WHERE DOUBLETEST IS NULL; CALL "SUB27" USING SQLCODE count2 MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :count3 * FROM JJ * WHERE FLOATTEST IS NULL; CALL " * EXEC SQL INSERT INTO PP SELECT NUMTEST FROM SS; MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT NUMTEST INTO :NUMTP:indic7 * FROM MM; CALL "SUB30" USING SQLCODE NUMTP indic7 MOVE SQLCODE TO SQL-COD MOVE indic7 TO DISP7 * EXEC SQL SELECT NUMTEST INTO :DECTP:indic8 * FROM SS; CALL "SUB31" USING MOVE TOSQL-COD MOVE SQLCODE TO SQL-COD MOVE indic8 TO DISP8 * EXEC SQL ROLLBACK WORK; CALL "SUB32" USING * WHERE CHARTEST IS NOT NULL; MOVE SQLCODE TO SQL-COD DISPLAY " The correct answers java.lang.StringIndexOutOfBoundsException: Index 0 out DISPLAY " All indicator variables should be -1" DISPLAY " count1, count2, CALL SUB46 USING SQLCODEjava.lang.StringIndexOutOfBoundsExcep DISPLAY " " DISPLAY " Your * WHERE FLOATTEST BETWEEN 44 AND 46; DISPLAY " indic1 = ", DISP1 ", indic2 = ", DISP2 DISPLAY " indic4 = ", DISP4 DISPLAY " indic7 = ", DISP7 ", indic8 = ", DISP8 DISPLAY * FROM JJ - " count3 = ", count3 MOVE 0 TO flag1 MOVE 0 TO flag2 if (indic1 NOT * FROM DD indic4 NOT = -1) then MOVE 1 TO flag1 END-IF if (indic7 NOT = SQLCODE SQL-COD MOVE 1 TO flag1 END-IF if (count1 NOT * WHERE NUMTEST IS NULL; =1) then MOVE 1 TO flag2 if (flag1 = 0 AND flag2 = 0) then * EXEC SQL INSERT INTO TESTREPORT * VALUES('0436','pass','MCO'); CALL "SUB33" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY " *** pass *** " else * EXEC SQL ROLLBACK WORK; * EXEC SQL INSERT INTO TESTREPORT * VALUES('0436','fail','MCO'); ADD MOVE SQLCODE TO SQL-COD CALL "SUB34" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY =X = 23,REALTP-SUB =1java.lang.StringIndexOutOfBoundsException: Index 64 out END-IF DISPLAY "=====================================================" DISPLAY " "Your answersarejava.lang.StringIndexOutOfBoundsException: Index 41 out o * EXEC SQL COMMIT WORK; CALL "SUB35" USING SQLCODE MOVE SQLCODE TO SQL-COD ********************** END TEST0436 ********************* ********************** BEGIN TEST0437 ******************* DISPLAY " TEST0437 " DISPLAY " NULL values for various host variables (CHARTPNOT X)ORDECTPNOT= 23) then DISPLAY " reference X3.135-1989 section 4.2, 8.7, 5.6 GR - " 1 or 2 " DISPLAY " - " -------------------------------------------------- " MOVE -1 TO indic1 MOVE -1 TOindic2 MOVE -1 TO indic3 MOVE 0 TO indic4 MOVE 0 TO indic5 0TO MOVE 0 TO count1 MOVE 0 TO MOVE 0 TO count3 MOVE 0 TO count4 MOVE "2" TO CHARTP MOVE -23 TO DECTP java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for leng * EXEC SQL INSERT INTO BB VALUES(:CHARTP :indic1); CALL " USING SQLCODE CHARTP indic1 MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SS VALUES(:DECTP :indic2); CALL "SUB37" USING SQLCODE DECTP indic2 MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO GG VALUES(:REALTP-SUB :indic3); CALL "SUB38" USING SQLCODE REALTP-SUB * VALUES('0437','fail','MCO'); MOVE "X" TO CHARTP MOVE 23 TO DECTP MOVE 45 TO REALTP-SUB * EXEC SQL INSERT INTO BB VALUES(:CHARTP :indic4); CALL " ====================== MOVE SQLCODE S" * EXEC SQL INSERT INTO SS VALUES(:DECTP :indic5); CALL "SUB40 ********************** END TEST0437 ********************* MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO GG VALUES(:REALTP-SUB :indic6); CALL "SUB41" USING SQLCODE REALTP-SUB indic6 MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO DD SELECT * FROM BB; "---------------------java.lang.StringIndexOutOfBoundsException: Index 67 out of MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO PP SELECT NUMTEST FROM SS; CALL java.lang.StringIndexOutOfBoundsException: Range [31, 30) out of bounds for MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO JJ SELECT REALTEST FROM GG * WHERE REALTEST IS NULL OR REALTEST > 0; CALL "SUB44" USING SQLCODE MOVE SQLCODE TO java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds f * EXEC SQL SELECT CHARTEST INTO :CHARTP * FROM DD * WHERE CHARTEST IS NOT NULL; S"USING CHARTP MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT NUMTEST INTO :DECTP * FROM PP * WHERE NUMTEST IS NOT NULL; CALL "SUB46" USING SQLCODE DECTP MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :REALTP-SUB * FROM JJ * WHERE FLOATTEST BETWEEN 44 AND 46; CALL "SUB47" USING SQLCODE REALTP-SUB MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :count1 * FROM JJ * WHERE FLOATTEST IS NOT NULL; CALL "SUB48" USING SQLCODE count1 * EXEC SQL SELECT COUNT(*) INTO :count2 * FROM DD * WHERE CHARTEST IS NULL; * EXEC SQL SELECT COUNT(*) INTO :count3 MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :count3 * FROM PP * WHERE NUMTEST IS NULL; * WHERE BUDGET NOT BETWEEN 999 AND :DECTP :indic4; MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :count4 * FROM JJ * WHERE FLOATTEST IS NULL; CALL "SUB51" USING SQLCODE count4 MOVE SQLCODE TO SQL-COD * EXEC SQL ROLLBACK WORK; CALL "SUB52" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY " The correct answers are:" DISPLAY java.lang.StringIndexOutOfBoundsException: Range [47, 46) out of bounds f java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0 DISPLAY * FROM STAFF DISPLAY java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds f DISPLAY " Your answers are:" DISPLAY " CHARTP = ", CHARTP ", * FROM STAFF - java.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for len DISPLAY " java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds count3 ,java.lang.StringIndexOutOfBoundsException: Range [44, 43) out of bounds f MOVE 0 TO flag1 if ((CHARTP NOT = "X") S" MOVE 1 TO flag1 END-IF MOVE 0 TO flag2 if (REALTP-SUB NOT = 1) then MOVE 1 TO "SQLCODE END-IF MOVE 0 TO flag3 if (count1 NOT = 1 OR count2 NOT = =2," = 1 OR count4 NOT = 1) then MOVE 1 TO flag3 END-IF if( 0AND=0AND= )then * EXEC SQL INSERT INTO TESTREPORT * VALUES('0437','pass','MCO'); CALL "DISPLAY " count5 ," ,count6 MOVE DISPLAY " =," , DISPLAY " *** pass *** " else * EXEC SQL INSERT INTO TESTREPORT * VALUES('0437','fail','MCO'); ADD 1 errcnt CALL "SUB54" USING SQLCODE SQLCODE DISPLAY " dml076.sco *** NOT = 1) OR (count4 NOT = 0)) t END-IF DISPLAY )( )then * EXEC SQL COMMIT WORK; CALL "SUB5" USING SQLCODE DISPLAY " " ********************** END TEST0437 ********************* ********************** BEGIN TEST0441 ******************* DISPLAY " TEST0441 " DISPLAY " NULL values for various java.lang.StringIndexOutOfBoundsException: Index 59 DISPLAY " reference 5.6 <value specification> GR 1 or 2" DISPLAY "----- * EXEC SQL INSERT INTO TESTREPORT MOVE 0 TO count1 MOVE -1 TO count2 "dml076.sco *fail * java.lang.StringIndexOutOfBoundsException: Index 62 out of boun MOVE -1 TO count4 MOVE 0 TO count5 MOVE-1TO MOVE 0 TO count7 MOVE -1 TO count8 CALLjava.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length MOVE -1 TO countx ********************** END TEST0441 ********************* MOVE -1 TO indic2 java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 0 MOVE -1 TO indic4 MOVE 0 TO indic5 MOVE -1 TO indic6 MOVE 0 java.lang.StringIndexOutOfBoundsException: Range [0, 22) out of bounds for MOVE -1 TO indic8 0 TO MOVE -1 TO indicx MOVE 11 TO DECTP MOVE "V___na%" TO CITY1 MOVE "S_P%" TO NME1 * EXEC SQL SELECT COUNT(*) INTO :count1 * FROM STAFF * WHERE GRADE BETWEEN 9 AND :DECTP :indic1; CALL "SUB55" USING SQLCODE count1 DECTP indic1 MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :count2 * FROM STAFF * WHERE GRADE BETWEEN 9 AND :DECTP :indic2; CALL "SUB56" USING SQLCODE count2 DECTP indic2 MOVE SQLCODE TO SQL-COD MOVE 39999 TO DECTP * EXEC SQL SELECT COUNT(*) INTO :count3 * FROM PROJ * WHERE BUDGET NOT BETWEEN 9999 AND :DECTP :indic3; CALL "SUB57" USING SQLCODE count3 DECTP MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :count4 * FROM PROJ * WHERE BUDGET NOT BETWEEN 999 AND :DECTP :indic4; "SUB58"USINGSQLCODEcount4 DECTPjava.lang.StringIndexOutOfBoundsException: Range [ MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :count5 * FROM PROJ * WHERE PNAME LIKE :NME1 :indic5; CALL "SUB59" USING SQLCODE count5 NME1 indic5 MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :count6 * FROM PROJ * WHERE PNAME LIKE :NME1 :indic6; CALL "SUB60" USING SQLCODE count6 NME1 indic6 MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :count7 * FROM STAFF * WHERE CITY NOT LIKE :CITY1 :indic7; CALL "SUB61" USING SQLCODE count7 CITY1 indic7 MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :count8 * FROM STAFF * WHERE CITY NOT LIKE :CITY1 :indic8; CALL "SUB62" USING SQLCODE count8 CITY1 indic8 MOVE SQLCODE TO SQL-COD MOVE 20 TO DECTP * EXEC SQL SELECT COUNT(*) INTO :count9 * FROM WORKS * WHERE HOURS <> :DECTP :indic9; CALL "SUB63" USING SQLCODE count9 DECTP indic9 MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :countx * FROM WORKS * WHERE HOURS <> :DECTP :indicx; CALL "SUB64" USING SQLCODE countx DECTP indicx MOVE SQLCODE TOSQL-COD * EXEC SQL ROLLBACK WORK; CALL "SUB65" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY " The correct answers are:" DISPLAY " count1=1, count2 = 0" DISPLAY " count3 = 1, count4 = 0" DISPLAY " count5 = 2, count6 = 0" DISPLAY " count7 = 3, count8 = 0" DISPLAY " count9 = 8, countx = 0" DISPLAY " " DISPLAY " Your answers are:" DISPLAY " count1 = ", count1 java.lang.StringIndexOutOfBoundsException: Range [50, 49) DISPLAY " count3 = ", count3 ", count4 = ", count4 DISPLAY " count5 = ", count5 ", count6 = ", count6 DISPLAY " count7 = ", count7 ", count8 = ", count8 DISPLAY " count9 = ", count9 ", countx = ", countx MOVE 0 TO flag1 MOVE 0 TO flag2 MOVE 0 TO flag3 if ((count1 NOT = 1) OR (count2 NOT = 0) OR (count3 NOT = 1) OR (count4 NOT = 0)) then MOVE 1 TO flag1 END-IF if ((count5 NOT = 2) OR (count6 NOT = 0) OR (count7 NOT = 3) OR (count8 NOT = 0)) then MOVE 1 TO flag2 END-IF if ((count9 NOT = 8) OR (countx NOT = 0)) then MOVE 1 TO flag3 END-IF if ((flag1 = 0) AND (flag2 = 0) AND (flag3 = 0)) then * EXEC SQL INSERT INTO TESTREPORT * VALUES('0441','pass','MCO'); CALL "SUB66" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY " *** pass *** " else * EXEC SQL INSERT INTO TESTREPORT * VALUES('0441','fail','MCO'); ADD 1 TO errcnt CALL "SUB67" USING SQLCODE MOVE SQLCODE TO SQL-COD DISPLAY " dml076.sco *** fail *** " END-IF DISPLAY "=====================================================" DISPLAY " " * EXEC SQL COMMIT WORK; CALL "SUB68" USING SQLCODE MOVE DISPLAY " TEST0436 " ********************** END TEST0441 ********************* **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0 X CHARTP * **** Procedures for PERFORM statements P50. * EXEC SQL FETCH X INTO :VAR1; CALL "SUB69" USING SQLCODE VAR1 MOVE SQLCODE TO SQL-COD if (SQLCODE = 0) then COMPUTE = count3 + 1 END-IF DISPLAY "VAR1 = ", VAR1 ADD 1 TOSMLTP . P49java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0 * EXEC SQL FETCH Y INTO :CITY1; CALL "SUB70" USING SQLCODE CITY1 MOVE SQLCODE TO SQL-COD if (SQLCODE = 0) then COMPUTE count2 = count2 + 1 END-IFjava.lang.StringIndexOutOfBoundsException: Range [39, 40) out of bounds fo " =" ADDMOVETO SQL-COD . "SUB18"USING P48. MOVE i TO GRDE * EXEC SQL FETCH DINO INTO :VAR1, :CITY1; CALL "SUB71" USING SQLCODE VAR1 " USINGSQLCODE MOVE SQLCODE TO * EXEC SQL SELECT CHARTEST INTO :CHARTP:indic1 S =0 " ,VAR1 ",CITY1=" CITY1 MOVE "Dinoville" java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds * EXEC SQL UPDATE STAFF * SET GRADE = :GRDE + 10, CITY = :CITY1 * WHERE CURRENT OF DINO; CALL " MOVE SQLCODE TO SQL-COD END-IF if (i = 2) then MOVE "mith java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for l * EXEC SQL UPDATE STAFF * SET GRADE = GRADE * :GRDE, EMPNAME = :NME1 * WHERE CURRENT OF DINO; CALL "SUB73" USING SQLCODE GRDE NME1 MOVEjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length DISPLAY " VAR1 = ", VAR1 ", GRDE * WHERE FLOATTEST IS NULL; END-IF ADD 1 TO i .
¤ 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.0.23Bemerkung: ¤*Bot Zugriff |
|
||||||||||||||
2026-10-11