We had a similar problem, right down to the x'7F's. It turned out that it wasn't MQSeries that was doing the translation. Instead, it was because the VB program read in the file before writing it to the queue, and the way it read it caused VB to translate the input file into 2-byte Unicode. Some of the characters in the PDF file aren't valid Windows characters, so they were instead stored in Unicode as a x'7F'.
This is the kind of code they're using now to read the file:
Dim nFNo As Integer
Dim PdfData() As Byte
nFNo = FreeFile
Open "M:\TEST.PDF" For Binary Access Read As #nFNo
ReDim PCLData(0 To LOF(nFNo) - 1)
Get #nFNo, , PCLData
Then, to put the message:
For i = 0 To (LOF(nFNo) - 1)
MsgO.WriteUnsignedByte (PdfData(i))
Next i
OQ.Put MsgO, PMO
deborah damore
<debdamore@ATTBI. To: [EMAIL PROTECTED]
COM> cc:
Sent by: MQSeries Subject: problem send binary message
nt > os/390 #2
List
<MQSERIES@AKH-WIE
N.AC.AT>
01/15/2003 07:37
AM
Please respond to
MQSeries List
Heres info on my environment
XP pro, mqseries client 5.1
Os/390 2.1 mqsersies 5.3
I am trying to send a pdf as the content of a mq message from NT to
os/390, a os/390 process needs to pick the message up unconverted. The
problem is some characters are getting converted in the message ie
X'85' changes to a X'7F'.
I am sending the message with a blank format, default encoding, I have
tried several codesets includeing 0 to no advail.
What am I missing?
Thanks!!!.
Instructions for managing your mailing list subscription are provided in
the Listserv General Users Guide available at http://www.lsoft.com
Archive: http://vm.akh-wien.ac.at/MQSeries.archive
