protocol.tests

derby database source code.good for you.

endTest
//
DISPLAY "Test invalid value for QRYBLKRST codepoint on CNTQRY"
include values1.inc
createDssRequest
startDdm CNTQRY
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
writeScalar1Byte QRYBLKRST 0
endDdm
endDss
flush
checkError SYNTAXRM 8 20 QRYBLKRST
endTest
//
DISPLAY "Test too large value for QRYRTNDTA codepoint on CNTQRY"
include values1.inc
createDssRequest
startDdm CNTQRY
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm QRYRTNDTA
writeInt 1
writeInt 2
writeInt 3
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 9 QRYRTNDTA
endTest
//
DISPLAY "Test invalid value for QRYRTNDTA codepoint on CNTQRY"
include values1.inc
createDssRequest
startDdm CNTQRY
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
writeScalar1Byte QRYRTNDTA 0
endDdm
endDss
flush
checkError SYNTAXRM 8 20 QRYRTNDTA
endTest
//
DISPLAY "Test invalid value for QRYRFRTBL codepoint on CNTQRY"
include values1.inc
createDssRequest
startDdm CNTQRY
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
writeScalar1Byte QRYRFRTBL 0
endDdm
endDss
flush
checkError SYNTAXRM 8 20 QRYRFRTBL
endTest
//
DISPLAY "Test too small value for NBRROW codepoint on CNTQRY"
include values1.inc
createDssRequest
startDdm CNTQRY
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm NBRROW
writeByte 4
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 11 NBRROW
endTest
//
DISPLAY "Test too large value for NBRROW codepoint on CNTQRY"
include values1.inc
createDssRequest
startDdm CNTQRY
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm NBRROW
writeInt 1
writeInt 2
writeInt 3
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 9 NBRROW
endTest
//
DISPLAY "Test too small value for MAXBLKEXT codepoint on CNTQRY"
include values1.inc
createDssRequest
startDdm CNTQRY
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm MAXBLKEXT
writeByte 1
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 11 MAXBLKEXT
endTest
//
DISPLAY "Test too large value for MAXBLKEXT codepoint on CNTQRY"
include values1.inc
createDssRequest
startDdm CNTQRY
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm MAXBLKEXT
writeInt 1
writeInt 2
writeInt 3
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 9 MAXBLKEXT
endTest
//
DISPLAY "Test too large value for RTNEXTDTA codepoint on CNTQRY"
include values1.inc
createDssRequest
startDdm CNTQRY
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm RTNEXTDTA
writeInt 1
writeInt 2
writeInt 3
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 9 RTNEXTDTA
endTest
//
DISPLAY "Test invalid value for RTNEXTDTA codepoint on CNTQRY"
include values1.inc
createDssRequest
startDdm CNTQRY
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
writeScalar1Byte RTNEXTDTA 0
endDdm
endDss
flush
checkError SYNTAXRM 8 20 RTNEXTDTA
endTest
//
DISPLAY "Test missing QRYINSID from CLSQRY"
include values1.inc
createDssRequest
startDdm CLSQRY
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 14 QRYINSID
endTest
//
DISPLAY "Test invalid PKGNAMCSN on CLSQRY"
include values1.inc
createDssRequest
startDdm CLSQRY
startDdm PKGNAMCSN
writePaddedString "notthere" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm QRYINSID
writeInt 0
writeInt 1
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 20 PKGNAMCSN
endTest
// Remove this test for now until JCC issue with JCC sending close twice 
// resolved
DISPLAY "Test closing an already closed statement"
include values1.inc
createDssRequest
startDdm CLSQRY
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm QRYINSID
writeInt 0
writeInt 1
endDdm
endDdm
endDss
DISPLAY "Removing second close until JCC issue with sending double close is resolve"
// second close should fail
//createDssRequest
//startDdm CLSQRY
//startDdm PKGNAMCSN
//writePaddedString "test" 18
//writePaddedString "rdbcolid" 18
//writePaddedString "pkgid"  18
//writeBytes "0x0101010101010101"
//writeShort 1
//endDdm
//startDdm QRYINSID
//writeInt 0
//writeInt 1
//endDdm
//endDdm
//endDss
//flush
//skipDss // skip SQLCARD from first close
//readReplyDss
//readLengthAndCodepoint QRYNOPRM
endTest
//
DISPLAY "Test for too large value for OUTEXP in EXCSQLSTT"
include connect.inc
createDssRequest
startDdm EXCSQLSTT
startDdm OUTEXP
writeShort 1
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 9 OUTEXP
endTest
//
DISPLAY "Test for invalid OUTEXP in EXCSQLSTT"
include connect.inc
createDssRequest
startDdm EXCSQLSTT
startDdm OUTEXP
writeByte 10
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 20 OUTEXP
endTest
//
DISPLAY "Test for too small value for NBRROW in EXCSQLSTT"
include connect.inc
createDssRequest
startDdm EXCSQLSTT
startDdm NBRROW
writeByte 1
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 11 NBRROW
endTest
//
DISPLAY "Test for too large value for NBRROW in EXCSQLSTT"
include connect.inc
createDssRequest
startDdm EXCSQLSTT
startDdm NBRROW
writeInt 1
writeInt 2
writeInt 3
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 9 NBRROW
endTest
//
DISPLAY "Test for invalid QRYBLKSZ in EXCSQLSTT"
include connect.inc
createDssRequest
startDdm EXCSQLSTT
startDdm QRYBLKSZ
writeInt 40000
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 20 QRYBLKSZ
endTest
//
DISPLAY "Test for too small value for MAXRSLCNT in EXCSQLSTT"
include connect.inc
createDssRequest
startDdm EXCSQLSTT
startDdm MAXRSLCNT
writeByte 1
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 11 MAXRSLCNT
endTest
//
DISPLAY "Test for too large value for MAXRSLCNT in EXCSQLSTT"
include connect.inc
createDssRequest
startDdm EXCSQLSTT
startDdm MAXRSLCNT
writeInt 1
writeInt 2
writeInt 3
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 9 MAXRSLCNT
endTest
//
DISPLAY "Test for too small value for MAXBLKEXT in EXCSQLSTT"
include connect.inc
createDssRequest
startDdm EXCSQLSTT
startDdm MAXBLKEXT
writeByte 1
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 11 MAXBLKEXT
endTest
//
DISPLAY "Test for too large value for MAXBLKEXT in EXCSQLSTT"
include connect.inc
createDssRequest
startDdm EXCSQLSTT
startDdm MAXBLKEXT
writeInt 1
writeInt 2
writeInt 3
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 9 MAXBLKEXT
endTest
//
DISPLAY "Test for invalid value for RDBCMTOK in EXCSQLSTT"
include connect.inc
createDssRequest
startDdm EXCSQLSTT
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
writeScalar1Byte RDBCMTOK 2
endDdm
endDss
flush
checkError SYNTAXRM	8 20 RDBCMTOK
endTest
//
DISPLAY "Test for too large value for OUTOVROPT in EXCSQLSTT"
include connect.inc
createDssRequest
startDdm EXCSQLSTT
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm OUTOVROPT
writeInt 4	// valid values are 1 and 2
endDdm
endDss
flush
checkError SYNTAXRM	8 9 OUTOVROPT
endTest
//
DISPLAY "Test for invalid value for OUTOVROPT in EXCSQLSTT"
include connect.inc
createDssRequest
startDdm EXCSQLSTT
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm OUTOVROPT
writeByte 4	// valid values are 1 and 2
endDdm
endDss
flush
checkError SYNTAXRM	8 20 OUTOVROPT
endTest
//
DISPLAY "Test for invalid value for QRYROWSET in EXCSQLSTT"
include connect.inc
createDssRequest
startDdm EXCSQLSTT
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm QRYROWSET
writeInt 40000 // maximum is 32767
endDdm
endDss
flush
checkError SYNTAXRM	8 20 QRYROWSET
endTest
//
DISPLAY "Test for invalid codepoint in EXCSQLSTT"
include connect.inc
createDssRequest
startDdm EXCSQLSTT
startDdm MGRLVLLS
endDdm
endDss
flush
checkError SYNTAXRM	8 29 MGRLVLLS
endTest
//
DISPLAY "Test for missing PKGNAMCSN in EXCSQLSTT"
include connect.inc
createDssRequest
startDdm EXCSQLSTT
endDdm
endDss
flush
checkError SYNTAXRM	8 14 PKGNAMCSN
endTest
//
DISPLAY "Test for too large value for RTNSQLDA in PRPSQLSTT"
include connect.inc
createDssRequest
startDdm PRPSQLSTT
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm RTNSQLDA
writeInt 1
endDdm
endDdm
endDss
flush
checkError SYNTAXRM	8 9 RTNSQLDA
endTest
//
DISPLAY "Test for invalid value for RTNSQLDA in PRPSQLSTT"
include connect.inc
createDssRequest
startDdm PRPSQLSTT
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm RTNSQLDA
writeByte 4		// invalid value
endDdm
endDdm
endDss
flush
checkError SYNTAXRM	8 20 RTNSQLDA
endTest
//
DISPLAY "Test for too large value for TYPSQLDA in PRPSQLSTT"
include connect.inc
createDssRequest
startDdm PRPSQLSTT
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm TYPSQLDA
writeInt 1
endDdm
endDdm
endDss
flush
checkError SYNTAXRM	8 9 TYP