Re: Client Access data queue control -- MIDRANGE-L

Thanks Don. I tried that, but it didn't help. I think you're right though,
but remember -  it worked when it received it's own messages.

Meanwhile, I took Chris's advice and I installed CA Express. This time
around I'm using the Active-X objects instead of the data queue control. One
of the objects is a string converter that does just what you're talking
about. Why IBM couldn't make their objects handle VB strings I don't know.
Using null-terminated strings is a C thing, and implies they didn't want to
take the time to make it work nice with VB. But they did take the time to
put this kludge string converter object in there. Go figure.

I'll let you know how it turns out.

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


----- Original Message -----
From: Schenck, Don <Don.Schenck@WL.com>
To: <MIDRANGE-L@midrange.com>
Sent: Wednesday, September 06, 2000 6:58 AM
Subject: RE: Client Access data queue control


> Wow! Trip down memory lane here.
>
> I remember doing this back in ... 1992? ... with VB 2.0 and V2R2 and some
> PTF's. Ron Jones did a lot of stuff, and I followed his work.
>
> Wow ...
>
> Data Queues FLY.
>
>
>
> Peter, check into the "zero-terminated" string stuff for VB. It's been a
> while, but if I recall you have to prepare your receiving string first by
> filling it with blanks. Something like
>
>    Dim strDQContents As String
>
>    strDQContents = String(128, Chr(0))
>
>
> OR was it ?
>
>    strDQContents = String(128, " ")
>
>
>
> I've fogged out right now ... but I do recall this. Check it out. Hope
this
> helps.
>
> Peace,
>
> -- Don Schenck
>    Schenck Technical Consulting
>    DonS@SchenckTech.com / www.SchenckTech.com
>
> -----Original Message-----
> From: Peter Dow [mailto:pcdow@yahoo.com]
> Sent: September 06, 2000 2:19 AM
> To: MIDRANGE-L@midrange.com
> Subject: Client Access data queue control
>
>
> 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
> +---
> +---
> | 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!?
Talk to your friends online with Yahoo! Messenger.
http://im.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
+---