protocol.tests

derby database source code.good for you.

createDssRequest
startDdm EXCSQLIMM
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
endDdm
endDss
createDssObject 
writeScalarString TYPDEFNAM "QTDSQLJVM"
startDdm TYPDEFOVR
writeScalar2Bytes  CCSIDMBC 1280		//MacGreek
endDdm
startDdm SQLSTT
writeByte 0	// null indicator
writeEncodedLDString "create table macgreek (a int)" "MacGreek" 4
writeByte 255 // null indicator
endDdm
endDss "0x40"
createDssRequest // send commit
startDdm RDBCMM
endDdm
endDss
flush
skipDss //RDBUPDRM
checkSQLCard 0 "     "
skipDss //ENDUOWRM
skipDss //SQLCARD for commit
// use default encoding for drop statement
createDssRequest
startDdm EXCSQLIMM
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 "drop table macgreek" "UTF-8" 4
writeByte 255 // null indicator
endDdm
endDss "0x40"
createDssRequest // send commit
startDdm RDBCMM
endDdm
endDss
flush
skipDss // RDBUPDRM
checkSQLCard 0 "     "
skipDss // ENDUOWRM
skipDss //SQLCARD for commit
endTest
//
DISPLAY "Test for missing CCSID in TYPDEFOVR in EXCSQLIMM objects"
include connect.inc
createDssRequest
startDdm EXCSQLIMM
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
endDdm
endDss
createDssObject 
writeScalarString TYPDEFNAM "QTDSQLJVM"
startDdm TYPDEFOVR
endDdm
startDdm SQLSTT
writeByte 0	// null indicator
writeEncodedLDString "create table macgreek (a int)" "MacGreek" 4
writeByte 255 // null indicator
endDdm
endDss "0x40"
createDssRequest // send commit
startDdm RDBCMM
endDdm
endDss
flush
checkError SYNTAXRM	8 14 CCSIDSBC
endTest
//
DISPLAY "Test for invalid value for RDBCMTOK in EXCSQLIMM"
include connect.inc
createDssRequest
startDdm EXCSQLIMM
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
writeScalar1Byte RDBCMTOK 2
endDdm
endDss
createDssObject 
startDdm SQLSTT
writeByte 0	// null indicator
writeEncodedLDString "create table a (a int)" "UTF-8" 4
writeByte 255 // null indicator
endDdm
endDss "0x40"
createDssRequest // send commit
startDdm RDBCMM
endDdm
endDss
flush
checkError SYNTAXRM	8 20 RDBCMTOK
endTest
//
DISPLAY "Test for valid value for RDBCMTOK in EXCSQLIMM"
include connect.inc
createDssRequest
startDdm EXCSQLIMM
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
writeScalar1Byte RDBCMTOK "0xf1"
endDdm
endDss
createDssObject 
startDdm SQLSTT
writeByte 0	// null indicator
writeEncodedLDString "create table rdbcmtoktrue(a int)" "UTF-8" 4
writeByte 255 // null indicator
endDdm
endDss "0x40"
createDssRequest // send commit
startDdm RDBCMM
endDdm
endDss
flush
skipDss // RDBUPDRM
checkSQLCard 0 "     "
skipDss // ENDUOWRM
skipDss // SQLCARD for commit
endTest
//
DISPLAY "Test for valid false value for RDBCMTOK in EXCSQLIMM"
include connect.inc
createDssRequest
startDdm EXCSQLIMM
startDdm PKGNAMCSN
writePaddedString "test" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
writeScalar1Byte RDBCMTOK "0xf0"
endDdm
endDss
createDssObject 
startDdm SQLSTT
writeByte 0	// null indicator
writeEncodedLDString "create table rdbcmtokfalse(a int)" "UTF-8" 4
writeByte 255 // null indicator
endDdm
endDss "0x40"
createDssRequest // send commit
startDdm RDBCMM
endDdm
endDss
flush
skipDss // RDBUPDRM
checkSQLCard 0 "     "
skipDss // ENDUOWRM
skipDss // SQLCARD for commit
endTest
//
DISPLAY "Test that we only send one RDBUPRM per transaction"
include connect.inc
createDssRequest
startDdm EXCSQLIMM
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 "create table onerdbupdrm(a int)" "UTF-8" 4
writeByte 255 // null indicator
endDdm
endDss
flush
readReplyDss
readLengthAndCodePoint RDBUPDRM
readScalar2Bytes SVRCOD 0
skipDdm //RDBNAM
checkSQLCard 0 "     "
// drop the table
createDssRequest
startDdm EXCSQLIMM
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 "drop table onerdbupdrm" "UTF-8" 4
writeByte 255 // null indicator
endDdm
endDss "0x40"
createDssRequest // send commit
startDdm RDBCMM
endDdm
endDss
flush
checkSQLCard 0 "     " //SQLCARD for drop
readReplyDss
readLengthAndCodePoint ENDUOWRM
readScalar2Bytes SVRCOD 4
readScalar1Byte UOWDSP 1
checkSQLCard 0 "     "	//SQLCARD for commit - no RDBUPDRM
moreData false
endTest
//
DISPLAY "Test for missing PKGNAMCSN 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
endDdm
endDss
flush
checkerror SYNTAXRM 8 14 PKGNAMCSN
endTest
//
DISPLAY "Test for missing QRYBLKSZ 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
endDdm
endDss
flush
checkerror SYNTAXRM 8 14 QRYBLKSZ
endTest
//
DISPLAY "Test for wrong PKGNAMCSN 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 "notthistest" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid"  18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm QRYBLKSZ
writeInt 32767
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 20 PKGNAMCSN
endTest
//
DISPLAY "Test for too small size for QRYBLKSZ 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
writeByte 1
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 11 QRYBLKSZ
endTest
//
DISPLAY "Test for too large size for QRYBLKSZ 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 1
writeInt 1
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 9 QRYBLKSZ
endTest
//
DISPLAY "Test for too small value for QRYBLKSZ 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 1
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 20 QRYBLKSZ
endTest
//
DISPLAY "Test for too large value for QRYBLKSZ 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 40000
endDdm
endDdm
endDss
flush
checkerror SYNTAXRM 8 20 QRYBLKSZ
endTest
//
DISPLAY "Test invalid value for QRYBLKCTL 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
writeScalar2Bytes QRYBLKCTL 1
endDdm
endDss
flush
checkerror SYNTAXRM 8 29 1
endTest
//
DISPLAY "Test invalid codepoint for OPNQRY"
include connect.inc
createDssRequest
startDdm PRPSQLSTT
startDdm PKGNAMCSN