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
+---