protocol.tests

derby database source code.good for you.

writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
endDdm
endDss
createDssObject 
startDdm SQLSTT
writeByte 0	// null indicator
writeEncodedLDString "values(1)" "UTF-8" 4
writeByte 255 // null indicator
endDdm
endDss
flush
checkSQLCard 0 "     "
createDssRequest
startDdm OPNQRY
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm QRYBLKSZ
writeInt 32767
endDdm
startDdm PRPSQLSTT // this is wrong
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 29 PRPSQLSTT
endTest
//
DISPLAY "Test too small value for QRYROWSET 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 QRYROWSET
writeByte 1
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 11 QRYROWSET
endTest
//
DISPLAY "Test too large value for QRYROWSET 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 QRYROWSET
writeInt 1
writeInt 2
writeInt 3
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 9 QRYROWSET
endTest
//
DISPLAY "Test invalid value for QRYROWSET on OPNQRY"
include connect.inc
createDssRequest
startDdm PRPSQLSTT
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
endDdm
endDss
createDssObject 
startDdm SQLSTT
writeByte 0	// null indicator
writeEncodedLDString "values(1)" "UTF-8" 4
writeByte 255 // null indicator
endDdm
endDss
flush
checkSQLCard 0 "     "
createDssRequest
startDdm OPNQRY
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm QRYBLKSZ
writeInt 32767
endDdm
startDdm QRYROWSET 
writeInt 70000	// this is too big
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 20 QRYROWSET
endTest
//
DISPLAY "Test too large 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
startDdm QRYRFRTBL
writeInt 1
writeInt 2
writeInt 3
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 9 QRYRFRTBL
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
startDdm QRYRFRTBL
writeByte 4
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 20 QRYRFRTBL
endTest
//
DISPLAY "Test missing PKGNAMCSN on CNTQRY"
include values1.inc
createDssRequest
startDdm CNTQRY
endDdm
endDss
flush
checkerror SYNTAXRM 8 14 PKGNAMCSN
endTest
//
DISPLAY "Test missing QRYBLKSZ on CNTQRY"
include values1.inc
createDssRequest
startDdm CNTQRY
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 14 QRYBLKSZ
endTest
//
DISPLAY "Test missing QRYINSID 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 QRYBLKSZ
writeInt 32767
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 14 QRYINSID
endTest
//
DISPLAY "Test too small value for QRYINSID 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 QRYINSID
writeInt 1
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 11 QRYINSID
endTest
//
DISPLAY "Test too large value for QRYINSID 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 QRYINSID
writeInt 1
writeInt 2
writeInt 3
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 9 QRYINSID
endTest
//
DISPLAY "Test too small value for QRYROWNBR 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 QRYROWNBR 0
endDdm
endDss
flush
checkError SYNTAXRM 8 11 QRYROWNBR
endTest
//
DISPLAY "Test too large value for QRYROWNBR 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 QRYROWNBR
writeInt 1
writeInt 2
writeInt 3
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 9 QRYROWNBR
endTest
//
//
DISPLAY "Test invalid value for QRYROWSET 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 QRYBLKSZ
writeInt 32767
endDdm
startDdm QRYINSID
writeInt 0
writeInt 1
endDdm
startDdm QRYROWSET
writeInt 70000 // too big
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 20 QRYROWSET
endTest
//
DISPLAY "Test too large value for QRYSCRORN 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 QRYSCRORN
writeInt 1
writeInt 2
writeInt 3
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 9 QRYSCRORN
endTest
//
DISPLAY "Test invalid value for QRYSCRORN 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 QRYBLKSZ
writeInt 32767
endDdm
startDdm QRYINSID
writeInt 0
writeInt 1
endDdm
startDdm QRYSCRORN
writeByte 10 // invalid value
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 20 QRYSCRORN
endTest
//
DISPLAY "Test invalid 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 QRYBLKSZ
writeInt 32767
endDdm
startDdm QRYINSID
writeInt 0
writeInt 1
endDdm
startDdm OPNQRY
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 29 OPNQRY
endTest
//
DISPLAY "Test invalid object 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 QRYBLKSZ
writeInt 32767
endDdm
startDdm QRYINSID
writeInt 0
writeInt 1
endDdm
endDdm
endDss
createDssObject
startDdm PKGNAMCSN //invalid object
endDdm
endDss
flush
checkerror SYNTAXRM 8 29 PKGNAMCSN
endTest
//
DISPLAY "Test OUTOVR 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 QRYBLKSZ
writeInt 32767
endDdm
startDdm QRYINSID
writeInt 0
writeInt 1
endDdm
endDdm
endDss
createDssObject
startDdm OUTOVR 
writeBytes "0x0676D0"		// length 6, trip type NGDA, SQLDTAGRPLID
writeBytes "0x300001"		// output type char, length 1
writeBytes "0x0971E0540001D00001"	//SQLCADTA_RLO
writeBytes "0x0671F0E00000"	//SQLCADTA_RLO
endDdm
endDss
flush
readReplyDss
readLengthAndCodepoint QRYDTA	// just check that we get to QRYDTA for now
skipBytes
endTest
//
DISPLAY "Test too large value for QRYRELSCR 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 QRYRELSCR
writeInt 1
writeInt 2
writeInt 3
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 9 QRYRELSCR
endTest
//
DISPLAY "Test invalid value for QRYRELSCR 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 QRYRELSCR 0
endDdm
endDss
flush
checkError SYNTAXRM 8 20 QRYRELSCR
endTest
//
DISPLAY "Test too large value for QRYROWSNS 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 QRYROWSNS
writeInt 1
writeInt 2
writeInt 3
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 9 QRYROWSNS
endTest
//
DISPLAY "Test invalid value for QRYROWSNS 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 QRYROWSNS 0
endDdm
endDss
flush
checkError SYNTAXRM 8 20 QRYROWSNS
endTest
//
DISPLAY "Test too large 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
startDdm QRYBLKRST
writeInt 1
writeInt 2
writeInt 3
endDdm
endDdm
endDss
flush
checkError SYNTAXRM 8 9 QRYBLKRST