MQSeries.net :: View topic

shogan2003 · Posted: Wed Jun 23, 2004 3:04 am Post subject:

I am using VBScript to put a message to a queue.
The script is called by cscript.exe; it is not embedded in a web page.

The script opens a text file, reads its contents into variable msg_str and writes them to a queue.

Here's an extract.

'##### OLD WRITE STATEMENT ########################'
'msgPut.MessageData = msg_str
'

The weakness is that some values, e.g. Â£, are changed

So instead I coded a loop based around WriteUnsignedByte. See below.

' SOLUTION : START'
for indx = 1 to Len(msg_str)
msgPut.WriteUnsignedByte(ASC(Mid(msg_str, indx, 1)))
next
'SOLUTION : END'.

The trouble is that although the character values are preserved, the time taken to put the whole contents to file is drastically slower.

On the machine I'm using, which is a good spec, tests indicate a transfer rate of 1 Mb / 40 sec irrespective of file size, so 32Meg file takes 22 min to put to queue. With the original (flawed) put, a 100Mb file would be put in under 2 mins.

Do any of the other write methods offer speed *and* data preservation ?

I'm assuming that the loop is responsible for the deterioration in speed, so am seeking a method along the lines of

WriteUnsignedBytes ( String or array, int start, int length )

Write methods available for msgPut ( object type MQAX200.MQMessage) are given below.

- Write
- WriteBoolean
- WriteByte
- WriteDecimal2
- WriteDecimal4
- WriteDouble
- WriteDouble4
- WriteFloat
- WriteInt2
- WriteInt4
- WriteLong
- WriteNullTerminatedString
- WriteShort
- WriteString
- WriteUint2
- WriteUnsignedByte
- WriteUTF

Thanks in advance
Sean
_________________
MQSI2 certified specialist
MQSeries certified specialist