1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
// protocol including OPNQRY for values(1) statement
include connect.inc
createDssRequest
startDdm PRPSQLSTT
startDdm PKGNAMCSN
writePaddedString "wombat" 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 "wombat" 18
writePaddedString "rdbcolid" 18
writePaddedString "pkgid" 18
writeBytes "0x0101010101010101"
writeShort 1
endDdm
startDdm QRYBLKSZ
writeInt 32767
endDdm
endDdm
endDss
flush
readReplyDss
readLengthAndCodepoint OPNQRYRM
skipBytes
readReplyDss
readLengthAndCodepoint QRYDSC
skipBytes
readReplyDss
readLengthAndCodepoint QRYDTA
skipBytes
|
