| products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: dml132.cob Sprache: Cobol |
|
||||||
|
IDENTIFICATION DIVISION.
PROGRAM-ID. DML132. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. xyz. OBJECT-COMPUTER. xyz. DATA DIVISION. WORKING-STORAGE SECTION. * Standard COBOL (file "DML132.SCO") calling SQL * procedures in file "DML132.MCO". **************************************************************** * * COMMENT SECTION * * DATE 1994/08/17 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. * * DML132.SCO * WRITTEN BY: David Flater * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL BY CHRIS SCHANZLE * * This routine tests FIPS sizing. * * REFERENCES * ANSI SQL-1992 * **************************************************************** * EXEC SQL BEGIN DECLARE SECTION END-EXEC 01 cv00 PIC X(2). 01 cv01 PIC X(2). 01 cv02 PIC X(2). 01 cv03 PIC X(2). 01 cv04 PIC X(2). 01 cv05 PIC X(2). 01 cv06 PIC X(2). 01 cv07 PIC X(2). 01 cv08 PIC X(2). 01 cv09 PIC X(2). 01 cv10 PIC X(2). 01 cv11 PIC X(2). 01 cv12 PIC X(2). 01 cv13 PIC X(2). 01 cv14 PIC X(2). 01 cv15 PIC X(2). 01 cv16 PIC X(2). 01 cv17 PIC X(2). 01 cv18 PIC X(2). 01 cv19 PIC X(2). 01 cv20 PIC X(2). 01 cv21 PIC X(2). 01 cv22 PIC X(2). 01 cv23 PIC X(2). 01 cv24 PIC X(2). 01 cv25 PIC X(2). 01 cv26 PIC X(2). 01 cv27 PIC X(2). 01 cv28 PIC X(2). 01 cv29 PIC X(2). 01 cv30 PIC X(2). 01 cv31 PIC X(2). 01 cv32 PIC X(2). 01 cv33 PIC X(2). 01 cv34 PIC X(2). 01 cv35 PIC X(2). 01 cv36 PIC X(2). 01 cv37 PIC X(2). 01 cv38 PIC X(2). 01 cv39 PIC X(2). 01 cv40 PIC X(2). 01 cv41 PIC X(2). 01 cv42 PIC X(2). 01 cv43 PIC X(2). 01 cv44 PIC X(2). 01 cv45 PIC X(2). 01 cv46 PIC X(2). 01 cv47 PIC X(2). 01 cv48 PIC X(2). 01 cv49 PIC X(2). 01 cv50 PIC X(2). 01 cv51 PIC X(2). 01 cv52 PIC X(2). 01 cv53 PIC X(2). 01 cv54 PIC X(2). 01 cv55 PIC X(2). 01 cv56 PIC X(2). 01 cv57 PIC X(2). 01 cv58 PIC X(2). 01 cv59 PIC X(2). 01 cv60 PIC X(2). 01 cv61 PIC X(2). 01 cv62 PIC X(2). 01 cv63 PIC X(2). 01 cv64 PIC X(2). 01 cv65 PIC X(2). 01 cv66 PIC X(2). 01 cv67 PIC X(2). 01 cv68 PIC X(2). 01 cv69 PIC X(2). 01 cv70 PIC X(2). 01 cv71 PIC X(2). 01 cv72 PIC X(2). 01 cv73 PIC X(2). 01 cv74 PIC X(2). 01 cv75 PIC X(2). 01 cv76 PIC X(2). 01 cv77 PIC X(2). 01 cv78 PIC X(2). 01 cv79 PIC X(2). 01 cv80 PIC X(2). 01 cv81 PIC X(2). 01 cv82 PIC X(2). 01 cv83 PIC X(2). 01 cv84 PIC X(2). 01 cv85 PIC X(2). 01 cv86 PIC X(2). 01 cv87 PIC X(2). 01 cv88 PIC X(2). 01 cv89 PIC X(2). 01 cv90 PIC X(2). 01 cv91 PIC X(2). 01 cv92 PIC X(2). 01 cv93 PIC X(2). 01 cv94 PIC X(2). 01 cv95 PIC X(2). 01 cv96 PIC X(2). 01 cv97 PIC X(2). 01 cv98 PIC X(2). 01 cv99 PIC X(2). 01 SQLCODE PIC S9(9) COMP. 01 SQLSTATE PIC X(5). 01 uid PIC X(18). 01 uidx PIC X(18). 01 int1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 indic1 PIC S9(4) DISPLAY SIGN LEADING SEPARATE. 01 indic2 PIC S9(4) DISPLAY SIGN LEADING SEPARATE. * EXEC SQL END DECLARE SECTION END-EXEC 01 norm1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 norm2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 ALPNUM-TABLE VALUE IS "01234ABCDEFGH56789IJKLMNOPQRSTUVWXYZ". 05 ALPNUM PIC X OCCURS 36 TIMES. 01 NORMSQ. 05 NORMSQX PIC X OCCURS 5 TIMES. 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 flag PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE. PROCEDURE DIVISION. P0. MOVE "FLATER " 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 SQLSTATE uidx MOVE SQLCODE TO SQL-COD * EXEC SQL ROLLBACK WORK; CALL "SUB2" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD if (uid NOT = uidx) then DISPLAY "ERROR: User ", uid " expected. User ", uidx " - " connected" STOP RUN END-IF MOVE 0 TO errcnt DISPLAY "SQL Test Suite, V6.0, Module COBOL, dml132.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 TEST0515 ******************* MOVE 1 TO flag *This test is based on dml098 TEST0579 DISPLAY " TEST0515 " DISPLAY "FIPS sizing: NUMERIC (15) decimal precision" DISPLAY "References:" DISPLAY " FIPS 16.6 -- Sizing for database constructs" DISPLAY " - - - - - - - - - - - - - - - - - - -" COMPUTE SQLCODE = -1 MOVE "xxxxx" TO SQLSTATE DISPLAY "INSERT INTO HU.P15 VALUES (999999999999999);" * EXEC SQL INSERT INTO HU.P15 VALUES (999999999999999) * ; CALL "SUB3" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY " " DISPLAY "INSERT INTO HU.P15 VALUES (-999999999999999);" * EXEC SQL INSERT INTO HU.P15 VALUES (-999999999999999) * ; CALL "SUB4" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY " " *Since these are exact numerics, there should be no problems *with the precision of + and -. COMPUTE int1 = -1 DISPLAY "SELECT NUMTEST - 999999999999990," DISPLAY " NUMTEST / 9999999 INTO :int1, :int2" DISPLAY " FROM HU.P15 WHERE NUMTEST > 0;" * EXEC SQL SELECT NUMTEST - 999999999999990, * NUMTEST / 9999999 INTO :int1, :int2 * FROM HU.P15 WHERE NUMTEST > 0; CALL "SUB5" USING SQLCODE SQLSTATE int1 int2 MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY "int1 should be 9; its value is ", int1 DISPLAY "int2 should be 100000010; its value is ", int2 if (int1 NOT = 9 OR int2 NOT = 100000010) then MOVE 0 TO flag END-IF COMPUTE int1 = -1 DISPLAY "SELECT NUMTEST + 999999999999990," DISPLAY " NUMTEST / 9999999 INTO :int1, :int2" DISPLAY " FROM HU.P15 WHERE NUMTEST < 0;" * EXEC SQL SELECT NUMTEST + 999999999999990, * NUMTEST / 9999999 INTO :int1, :int2 * FROM HU.P15 WHERE NUMTEST < 0; CALL "SUB6" USING SQLCODE SQLSTATE int1 int2 MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY "int1 should be -9; its value is ", int1 DISPLAY "int2 should be -100000010; its value is ", int2 if (int1 NOT = -9 OR int2 NOT = -100000010) then MOVE 0 TO flag END-IF DISPLAY "DELETE FROM HU.P15;" * EXEC SQL DELETE FROM HU.P15; CALL "SUB7" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY " " DISPLAY "INSERT INTO HU.P15 VALUES (562949953421313);" * EXEC SQL INSERT INTO HU.P15 VALUES (562949953421313) * ; CALL "SUB8" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY " " COMPUTE int1 = -1 DISPLAY "SELECT COUNT(*) INTO :int1" DISPLAY " FROM HU.P15 WHERE NUMTEST = 562949953421312;" * EXEC SQL SELECT COUNT(*) INTO :int1 * FROM HU.P15 WHERE NUMTEST = 562949953421312; CALL "SUB9" USING SQLCODE SQLSTATE int1 MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY "int1 should be 0; its value is ", int1 if (int1 NOT = 0) then MOVE 0 TO flag END-IF COMPUTE int1 = -1 DISPLAY "SELECT COUNT(*) INTO :int1" DISPLAY " FROM HU.P15 WHERE NUMTEST = 562949953421313;" * EXEC SQL SELECT COUNT(*) INTO :int1 * FROM HU.P15 WHERE NUMTEST = 562949953421313; CALL "SUB10" USING SQLCODE SQLSTATE int1 MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY "int1 should be 1; its value is ", int1 if (int1 NOT = 1) then MOVE 0 TO flag END-IF COMPUTE int1 = -1 DISPLAY "SELECT COUNT(*) INTO :int1" DISPLAY " FROM HU.P15 WHERE NUMTEST = 562949953421314;" * EXEC SQL SELECT COUNT(*) INTO :int1 * FROM HU.P15 WHERE NUMTEST = 562949953421314; CALL "SUB11" USING SQLCODE SQLSTATE int1 MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY "int1 should be 0; its value is ", int1 if (int1 NOT = 0) then MOVE 0 TO flag END-IF DISPLAY "ROLLBACK WORK;" * EXEC SQL ROLLBACK WORK; CALL "SUB12" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY " " if (flag = 1) then DISPLAY " *** pass *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0515','pass','MCO'); CALL "SUB13" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD else DISPLAY " dml132.sco *** fail *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0515','fail','MCO'); CALL "SUB14" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD COMPUTE errcnt = errcnt + 1 END-IF * EXEC SQL COMMIT WORK; CALL "SUB15" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD DISPLAY "================================================" ******************** END TEST0515 ******************** ******************** BEGIN TEST0524 ******************* MOVE 1 TO flag *This test is based on dml056 TEST0246 DISPLAY " TEST0524 " DISPLAY " FIPS sizing: 100 Items in a SELECT list" DISPLAY "References:" DISPLAY " FIPS 16.6 -- Sizing for database constructs" DISPLAY " - - - - - - - - - - - - - - - - - - -" COMPUTE SQLCODE = -1 MOVE "xxxxx" TO SQLSTATE DISPLAY "DELETE FROM HU.T100;" * EXEC SQL DELETE FROM HU.T100; CALL "SUB16" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD DISPLAY "INSERT INTO HU.T100 VALUES ('00', '01', '02'," DISPLAY " '03', '04', '05', '06', '07', '08', '09', '0a', - " '0b', '0c'," DISPLAY " '0d', '0e', '0f', '10', '11', '12', '13', '14', - " '15', '16'," DISPLAY " '17', '18', '19', '1a', '1b', '1c', '1d', '1e', - " '1f', '20'," DISPLAY " '21', '22', '23', '24', '25', '26', '27', '28', - " '29', '2a'," DISPLAY " '2b', '2c', '2d', '2e', '2f', '30', '31', '32', - " '33', '34'," DISPLAY " '35', '36', '37', '38', '39', '3a', '3b', '3c', - " '3d', '3e'," DISPLAY " '3f', '40', '41', '42', '43', '44', '45', '46', - " '47', '48'," DISPLAY " '49', '4a', '4b', '4c', '4d', '4e', '4f', '50', - " '51', '52'," DISPLAY " '53', '54', '55', '56', '57', '58', '59', '5a', - " '5b', '5c'," DISPLAY " '5d', '5e', '5f', '60', '61', '62', '63');" * EXEC SQL INSERT INTO HU.T100 VALUES ('00', '01', '02', * '03', '04', '05', '06', '07', '08', '09', '0a', '0b', * '0c', * '0d', '0e', '0f', '10', '11', '12', '13', '14', '15', * '16', * '17', '18', '19', '1a', '1b', '1c', '1d', '1e', '1f', * '20', * '21', '22', '23', '24', '25', '26', '27', '28', '29', * '2a', * '2b', '2c', '2d', '2e', '2f', '30', '31', '32', '33', * '34', * '35', '36', '37', '38', '39', '3a', '3b', '3c', '3d', * '3e', * '3f', '40', '41', '42', '43', '44', '45', '46', '47', * '48', * '49', '4a', '4b', '4c', '4d', '4e', '4f', '50', '51', * '52', * '53', '54', '55', '56', '57', '58', '59', '5a', '5b', * '5c', * '5d', '5e', '5f', '60', '61', '62', '63'); CALL "SUB17" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY " " MOVE "xx" TO cv00 MOVE "xx" TO cv01 MOVE "xx" TO cv02 MOVE "xx" TO cv03 MOVE "xx" TO cv04 MOVE "xx" TO cv05 MOVE "xx" TO cv06 MOVE "xx" TO cv07 MOVE "xx" TO cv08 MOVE "xx" TO cv09 MOVE "xx" TO cv10 MOVE "xx" TO cv11 MOVE "xx" TO cv12 MOVE "xx" TO cv13 MOVE "xx" TO cv14 MOVE "xx" TO cv15 MOVE "xx" TO cv16 MOVE "xx" TO cv17 MOVE "xx" TO cv18 MOVE "xx" TO cv19 MOVE "xx" TO cv20 MOVE "xx" TO cv21 MOVE "xx" TO cv22 MOVE "xx" TO cv23 MOVE "xx" TO cv24 MOVE "xx" TO cv25 MOVE "xx" TO cv26 MOVE "xx" TO cv27 MOVE "xx" TO cv28 MOVE "xx" TO cv29 MOVE "xx" TO cv30 MOVE "xx" TO cv31 MOVE "xx" TO cv32 MOVE "xx" TO cv33 MOVE "xx" TO cv34 MOVE "xx" TO cv35 MOVE "xx" TO cv36 MOVE "xx" TO cv37 MOVE "xx" TO cv38 MOVE "xx" TO cv39 MOVE "xx" TO cv40 MOVE "xx" TO cv41 MOVE "xx" TO cv42 MOVE "xx" TO cv43 MOVE "xx" TO cv44 MOVE "xx" TO cv45 MOVE "xx" TO cv46 MOVE "xx" TO cv47 MOVE "xx" TO cv48 MOVE "xx" TO cv49 MOVE "xx" TO cv50 MOVE "xx" TO cv51 MOVE "xx" TO cv52 MOVE "xx" TO cv53 MOVE "xx" TO cv54 MOVE "xx" TO cv55 MOVE "xx" TO cv56 MOVE "xx" TO cv57 MOVE "xx" TO cv58 MOVE "xx" TO cv59 MOVE "xx" TO cv60 MOVE "xx" TO cv61 MOVE "xx" TO cv62 MOVE "xx" TO cv63 MOVE "xx" TO cv64 MOVE "xx" TO cv65 MOVE "xx" TO cv66 MOVE "xx" TO cv67 MOVE "xx" TO cv68 MOVE "xx" TO cv69 MOVE "xx" TO cv70 MOVE "xx" TO cv71 MOVE "xx" TO cv72 MOVE "xx" TO cv73 MOVE "xx" TO cv74 MOVE "xx" TO cv75 MOVE "xx" TO cv76 MOVE "xx" TO cv77 MOVE "xx" TO cv78 MOVE "xx" TO cv79 MOVE "xx" TO cv80 MOVE "xx" TO cv81 MOVE "xx" TO cv82 MOVE "xx" TO cv83 MOVE "xx" TO cv84 MOVE "xx" TO cv85 MOVE "xx" TO cv86 MOVE "xx" TO cv87 MOVE "xx" TO cv88 MOVE "xx" TO cv89 MOVE "xx" TO cv90 MOVE "xx" TO cv91 MOVE "xx" TO cv92 MOVE "xx" TO cv93 MOVE "xx" TO cv94 MOVE "xx" TO cv95 MOVE "xx" TO cv96 MOVE "xx" TO cv97 MOVE "xx" TO cv98 MOVE "xx" TO cv99 COMPUTE indic1 = -1 COMPUTE indic2 = -1 DISPLAY "SELECT" DISPLAY " C1, C2, C3, C4, C5, C6, C7, C8, C9, C10, C11, - " C12, C13, C14," DISPLAY " C15, C16, C17, C18, C19, C20, C21, C22, C23, - " C24, C25, C26," DISPLAY " C27, C28, C29, C30, C31, C32, C33, C34, C35, - " C36, C37, C38," DISPLAY " C39, C40, C41, C42, C43, C44, C45, C46, C47, - " C48, C49, C50," DISPLAY " C51, C52, C53, C54, C55, C56, C57, C58, C59, - " C60, C61, C62," DISPLAY " C63, C64, C65, C66, C67, C68, C69, C70, C71, - " C72, C73, C74," DISPLAY " C75, C76, C77, C78, C79, C80, C81, C82, C83, - " C84, C85, C86," DISPLAY " C87, C88, C89, C90, C91, C92, C93, C94, C95, - " C96, C97, C98," DISPLAY " C99, C100" DISPLAY " " DISPLAY " INTO" DISPLAY " :cv00, :cv01, :cv02, :cv03, :cv04:indic1," DISPLAY " :cv05, :cv06, :cv07, :cv08, :cv09," DISPLAY " :cv10, :cv11, :cv12, :cv13, :cv14," DISPLAY " :cv15, :cv16, :cv17, :cv18, :cv19," DISPLAY " :cv20, :cv21, :cv22, :cv23, :cv24," DISPLAY " :cv25, :cv26, :cv27, :cv28, :cv29," DISPLAY " :cv30, :cv31, :cv32, :cv33, :cv34," DISPLAY " :cv35, :cv36, :cv37, :cv38, :cv39," DISPLAY " :cv40, :cv41, :cv42, :cv43, :cv44," DISPLAY " :cv45, :cv46, :cv47, :cv48, :cv49," DISPLAY " :cv50, :cv51, :cv52, :cv53, :cv54," DISPLAY " :cv55, :cv56, :cv57, :cv58, :cv59," DISPLAY " :cv60, :cv61, :cv62, :cv63, :cv64," DISPLAY " :cv65, :cv66, :cv67, :cv68, :cv69," DISPLAY " :cv70, :cv71, :cv72, :cv73, :cv74," DISPLAY " :cv75, :cv76, :cv77, :cv78, :cv79," DISPLAY " :cv80, :cv81, :cv82, :cv83, :cv84," DISPLAY " :cv85, :cv86, :cv87, :cv88, :cv89," DISPLAY " :cv90, :cv91, :cv92, :cv93, :cv94," DISPLAY " :cv95, :cv96, :cv97, :cv98, :cv99:indic2" DISPLAY " " DISPLAY " FROM HU.T100;" * EXEC SQL SELECT * C1, C2, C3, C4, C5, C6, C7, C8, C9, C10, C11, C12, C13, * C14, * C15, C16, C17, C18, C19, C20, C21, C22, C23, C24, C25, * C26, * C27, C28, C29, C30, C31, C32, C33, C34, C35, C36, C37, * C38, * C39, C40, C41, C42, C43, C44, C45, C46, C47, C48, C49, * C50, * C51, C52, C53, C54, C55, C56, C57, C58, C59, C60, C61, * C62, * C63, C64, C65, C66, C67, C68, C69, C70, C71, C72, C73, * C74, * C75, C76, C77, C78, C79, C80, C81, C82, C83, C84, C85, * C86, * C87, C88, C89, C90, C91, C92, C93, C94, C95, C96, C97, * C98, * C99, C100 * * INTO * :cv00, :cv01, :cv02, :cv03, :cv04:indic1, * :cv05, :cv06, :cv07, :cv08, :cv09, * :cv10, :cv11, :cv12, :cv13, :cv14, * :cv15, :cv16, :cv17, :cv18, :cv19, * :cv20, :cv21, :cv22, :cv23, :cv24, * :cv25, :cv26, :cv27, :cv28, :cv29, * :cv30, :cv31, :cv32, :cv33, :cv34, * :cv35, :cv36, :cv37, :cv38, :cv39, * :cv40, :cv41, :cv42, :cv43, :cv44, * :cv45, :cv46, :cv47, :cv48, :cv49, * :cv50, :cv51, :cv52, :cv53, :cv54, * :cv55, :cv56, :cv57, :cv58, :cv59, * :cv60, :cv61, :cv62, :cv63, :cv64, * :cv65, :cv66, :cv67, :cv68, :cv69, * :cv70, :cv71, :cv72, :cv73, :cv74, * :cv75, :cv76, :cv77, :cv78, :cv79, * :cv80, :cv81, :cv82, :cv83, :cv84, * :cv85, :cv86, :cv87, :cv88, :cv89, * :cv90, :cv91, :cv92, :cv93, :cv94, * :cv95, :cv96, :cv97, :cv98, :cv99:indic2 * * FROM HU.T100; CALL "SUB18" USING SQLCODE SQLSTATE cv00 cv01 cv02 cv03 cv04 indic1 cv05 cv06 cv07 cv08 cv09 cv10 cv11 cv12 cv13 cv14 cv15 cv16 cv17 cv18 cv19 cv20 cv21 cv22 cv23 cv24 cv25 cv26 cv27 cv28 cv29 cv30 cv31 cv32 cv33 cv34 cv35 cv36 cv37 cv38 cv39 cv40 cv41 cv42 cv43 cv44 cv45 cv46 cv47 cv48 cv49 cv50 cv51 cv52 cv53 cv54 cv55 cv56 cv57 cv58 cv59 cv60 cv61 cv62 cv63 cv64 cv65 cv66 cv67 cv68 cv69 cv70 cv71 cv72 cv73 cv74 cv75 cv76 cv77 cv78 cv79 cv80 cv81 cv82 cv83 cv84 cv85 cv86 cv87 cv88 cv89 cv90 cv91 cv92 cv93 cv94 cv95 cv96 cv97 cv98 cv99 indic2 MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY "indic1 should be 0; its value is ", indic1 if (indic1 NOT = 0) then MOVE 0 TO flag END-IF DISPLAY "indic2 should be 0; its value is ", indic2 if (indic2 NOT = 0) then MOVE 0 TO flag END-IF DISPLAY "cv00 should be '00'; its value is ", cv00 if (cv00 NOT = "00") then MOVE 0 TO flag END-IF DISPLAY "cv49 should be '31'; its value is ", cv49 if (cv49 NOT = "31") then MOVE 0 TO flag END-IF DISPLAY "cv66 should be '42'; its value is ", cv66 if (cv66 NOT = "42") then MOVE 0 TO flag END-IF DISPLAY "cv99 should be '63'; its value is ", cv99 if (cv99 NOT = "63") then MOVE 0 TO flag END-IF DISPLAY "ROLLBACK WORK;" * EXEC SQL ROLLBACK WORK; CALL "SUB19" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY " " if (flag = 1) then DISPLAY " *** pass *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0524','pass','MCO'); CALL "SUB20" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD else DISPLAY " dml132.sco *** fail *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0524','fail','MCO'); CALL "SUB21" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD COMPUTE errcnt = errcnt + 1 END-IF * EXEC SQL COMMIT WORK; CALL "SUB22" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD DISPLAY "================================================" ******************** END TEST0524 ******************** ******************** BEGIN TEST0525 ******************* MOVE 1 TO flag DISPLAY " TEST0525 " DISPLAY "FIPS sizing: 15 Table references in SQL - " statement" DISPLAY "References:" DISPLAY " FIPS 16.6 -- Sizing for database constructs" DISPLAY " - - - - - - - - - - - - - - - - - - -" COMPUTE SQLCODE = -1 MOVE "xxxxx" TO SQLSTATE *VS2 counts 3 *VS1 and VSTAFF3 count 2 *All others count 1 DISPLAY "DECLARE SILLY CURSOR FOR" DISPLAY " SELECT COUNT(*) FROM" DISPLAY " HU.WORKS T01, HU.PROJ T02, HU.STAFF T03," DISPLAY " USIG T04, U_SIG T05, BASE_VS1 T06, VS1 T07," DISPLAY " VS2 T08, HU.VSTAFF3 T09, BASE_WCOV T10" DISPLAY " WHERE T03.EMPNUM > 'E1';" * EXEC SQL DECLARE SILLY CURSOR FOR * SELECT COUNT(*) FROM * HU.WORKS T01, HU.PROJ T02, HU.STAFF T03, * USIG T04, U_SIG T05, BASE_VS1 T06, VS1 T07, * VS2 T08, HU.VSTAFF3 T09, BASE_WCOV T10 * WHERE T03.EMPNUM > 'E1' END-EXEC *Put 1 row in BASE_WCOV DISPLAY "DELETE FROM BASE_WCOV;" * EXEC SQL DELETE FROM BASE_WCOV; CALL "SUB23" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD DISPLAY "INSERT INTO BASE_WCOV VALUES (1);" * EXEC SQL INSERT INTO BASE_WCOV VALUES (1); CALL "SUB24" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY " " *Speed up the query. Only E2 survives. DISPLAY "DELETE FROM HU.STAFF WHERE EMPNUM > 'E2';" * EXEC SQL DELETE FROM HU.STAFF WHERE EMPNUM > 'E2'; CALL "SUB25" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY " " *Rows: *T01 12 *T02 6 *T03 1 *T04 2 *T05 2 *T06 4 *T07 2 *T08 4 *T09 5 *T10 1 *-------- * 46080 DISPLAY "OPEN SILLY;" * EXEC SQL OPEN SILLY; CALL "SUB26" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY " " COMPUTE int1 = -1 DISPLAY "FETCH SILLY INTO :int1;" * EXEC SQL FETCH SILLY INTO :int1; CALL "SUB27" USING SQLCODE SQLSTATE int1 MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY "int1 should be 46080; its value is ", int1 if (int1 NOT = 46080) then MOVE 0 TO flag END-IF DISPLAY "ROLLBACK WORK;" * EXEC SQL ROLLBACK WORK; CALL "SUB28" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY " " if (flag = 1) then DISPLAY " *** pass *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0525','pass','MCO'); CALL "SUB29" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD else DISPLAY " dml132.sco *** fail *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0525','fail','MCO'); CALL "SUB30" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD COMPUTE errcnt = errcnt + 1 END-IF * EXEC SQL COMMIT WORK; CALL "SUB31" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD DISPLAY "================================================" ******************** END TEST0525 ******************** **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0 STOP RUN. * **** Procedures for PERFORM statements *Test SQLCODE and SQLSTATE for normal completion. CHCKOK. DISPLAY "SQLCODE should be 0; its value is ", SQL-COD DISPLAY "SQLSTATE should be 00000; its value is ", SQLSTATE PERFORM NOSUBCLASS THRU EXIT-NOSUBCLASS if (SQLCODE NOT = 0 OR NORMSQ NOT = "00000") then MOVE 0 TO flag END-IF if (NORMSQ = "00000" AND NORMSQ NOT = SQLSTATE) then DISPLAY "Valid implementation-defined SQLSTATE accepted." END-IF . NOSUBCLASS. *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 NORMSQ MOVE 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 > 36 if (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-NOSUBCLASS END-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 > 36 if (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 > 36 if (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-NOSUBCLASS. EXIT. ¤ Dauer der Verarbeitung: 0.39 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.Bot Zugriff |
