Client Access data queue control

["Peter Dow" <pcdow@xxxxxxxxx>]

Hi All,

I was playing around with Chris Bipes's method of using a single data queue
to communicate between client and server (thanks Chris!) using VB 6.0 and CA
V3R1M3 SF60456.

I created a keyed data queue on the AS400 and wrote a VB program to allow
the user to enter a string, send a string to the data queue, then receive it
and display it.  It does this with key = blanks.  Separate command buttons
so I can control when it sends and receives. That much works fine, although
I noticed that the data queue key is not translated, although the data is
(when I have the convert data property set).

Then I wrote an RPGLE server program that receives data queue entries with
key = low values and sends entries with key = blanks. I send it a source
member name, and it loads the data queue with all the source records. I also
modified the VB program to send key = low values and receive key = blanks.

The problem is, the VB program sends the entry, and the RPGLE program
receives it and loads the data queue with the specified source member's
records (I can see this with a DMPOBJ of the data queue), and the VB program
receives the entries (they disappear from the data queue according to
DMPOBJ) but nothing is displayed by the VB program, and debugging appears to
be saying the received text is blank.

The entries placed on the data queue do not appear to be very different. I
noticed at first that the RPGLE program was leaving trailing blanks in the
data queue entry, whereas the VB program left it trailling x'00'.  So I
tried modifying the RPGLE to do that.  Didn't help.

The only other thing is that the data queue was created to include the
sender info. I changed it to not include the sender info. No joy.

What am I missing?

TIA,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---




_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---