SYS21 - Re: JBAUSERS-L digest, Vol 1 #273 - 1 msg

[DJensen@xxxxxxxxxxxxxx]

--

Heres the attachment


(See attached file: as400-vb.doc)



                    jbausers-l-request@mi
                    drange.com                  To:     jbausers-l@midrange.com
                    Sent by:                    cc:
                    jbausers-l-admin@midr       Subject:     JBAUSERS-L digest, 
Vol 1 #273 - 1 msg
                    ange.com


                    06/27/02 10:00 AM
                    Please respond to
                    jbausers-l






Send JBAUSERS-L mailing list submissions to
           jbausers-l@midrange.com

To subscribe or unsubscribe via the World Wide Web, visit
           http://lists.midrange.com/cgi-bin/listinfo/jbausers-l
or, via email, send a message with subject or body 'help' to
           jbausers-l-request@midrange.com

You can reach the person managing the list at
           jbausers-l-admin@midrange.com

When replying, please edit your Subject line so it is more specific
than "Re: Contents of JBAUSERS-L digest..."


Today's Topics:

   1. RE: Re: SYS21 - Technical question (Ram Hari)

--__--__--

Message: 1
From: "Ram Hari" <RamHari@wasserstrom.com>
To: <jbausers-l@midrange.com>
Subject: RE: SYS21 -  Re: SYS21 - Technical question
Date: Thu, 27 Jun 2002 10:03:23 -0400
Reply-To: jbausers-l@midrange.com

* See if this will work......
*
*
* VB, VBA DataQ example (dqSEQORDER = seqKeyed):

Dim oDQ As ActiveX_AS400.DataQ
Dim sData As String
Set oDQ = new ActiveX_AS400.DataQ

' Create a AS/400 data queue
oDQ.LibraryName = "QGPL"
oDQ.QueueName = "TestDQ"
oDQ.AttrMaxRecordLength = 128
oDQ.AttrKeySize = 10
oDQ.AttrMaxRecordLength = 128
oDQ.AttrOrder = 2 'seqKeyed
oDQ.AttrSenderID = True
If not oDQ.CreateQ = 0 Then MsgBox oDQ.Message

'Put data into the AS/400 data queue
sData = "Testing 1.2.3.4"
oDQ.DataKey = "Key 1.2"
If not oDQ.WriteQ(sData) = 0 Then MsgBox oDQ.Message

'Read data from the AS/400 data queue
oDQ.WaitTime = 1 'second
oDQ.DataSearchOrder = 3 'srcGTorEqual
sData = oDQ.PeekQ("Key")

'Show results
MsgBox "PeekQ.Data:" & sData
MsgBox "ReadQ.Data:" & oDQ.ReadQ("Key")
MsgBox "DataKeyReturned:" & oDQ.DataKeyReturned
MsgBox "DataSenderID:" & oDQ.DataSenderID

'Housekeeping
If not oDQ.CloseQ = 0 Then MsgBox oDQ.Message
If not oDQ.DeleteQ = 0 Then MsgBox oDQ.Message
Set oDQ = Nothing


Ram S. Hari
Information Services
Wasserstrom
ramhari@wasserstrom.com
Voice 614.737.8542


 -----Original Message-----
From:           Neil Thursby [mailto:neil.thursby@fone-logistics.co.uk]
Sent:           Thursday, June 27, 2002 9:46 AM
To:        jbausers-l@midrange.com
Subject:        RE: SYS21 -  Re: SYS21 - Technical question

Jeff,
Thanks for the tip, but I've already been there.  You are right - it is
a great resource, but I can't find what I'm looking for on there.  I did
find a couple of IBM examples (Redbooks, & website) but they either
don't do quite what I want, or don't work!

I thought I'd try the group as a last resort.  The requirement is
simple-enough, surely someone has done it!
Regards,

Neil.



-----Original Message-----
From: Jeff_Klipa/Harvard@harvardind.com
[mailto:Jeff_Klipa/Harvard@harvardind.com]
Sent: Thursday 27 June 2002 14:30
To: jbausers-l@midrange.com
Subject: SYS21 - Re: SYS21 - Technical question


I would suggest you purchase the Iseries News magazine so you can get
access to
their http://www.iseriesnetwork.com/     web page Professional Members
section...  This allows you to read articles off the web...  And
download source
code even...

I just searched on Keyword VB and found 414 articles...  One of which
I'm sure
would be helpful to your cause...

Besides it's one of the best techie mags going (if not the best) for the
iseries...  (I still want to call it the AS/400)!

Reagards...







"Neil Thursby" <neil.thursby@fone-logistics.co.uk> on 06/27/2002
05:21:06 AM

Please respond to jbausers-l@midrange.com



  To:          jbausers-l@midrange.com

  cc:          (bcc: Jeff Klipa/Harvard)



  Subject      SYS21 -  Technical question
  :







Don't know if anyone in the group can help with this one, but I'm really
struggling to find an answer;

We are attempting to read & write records to/from an AS/400 dataq from a
Vb program. This is to supply transactions to the Inventory processor
(IN070).

The read works fine, but the write doesn't.  Apparently something wrong
with the "addnew" statement.  Has anyone got a Vb example of this
technique they would be prepared to share?

Many thanks

Neil.

_____________________________________________________________________
This transmission and any attachments are confidential and are intended
solely
for the named addressee (s). If you are not the addressee, please do not
read,
copy, use or disclose this transmission and please notify us immediately
by
telephone on
+44 (0) 1670 594848 or by reply.  Please then delete this transmission
from your
system.

Although we have taken steps to ensure that this email and attachments
are free
from viruses, we advise that in keeping with good computing practice the
recipient must ensure that they in fact are virus free.

No contracts may be concluded on behalf of Fone Logistics LTD by means
of email
communications.
_______________________________________________
This is the GEAC/JBA System 21 Users (JBAUSERS-L) mailing list
To post a message email: JBAUSERS-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/jbausers-l
or email: JBAUSERS-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/jbausers-l.




_______________________________________________
This is the GEAC/JBA System 21 Users (JBAUSERS-L) mailing list
To post a message email: JBAUSERS-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/jbausers-l
or email: JBAUSERS-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/jbausers-l.


_____________________________________________________________________
This transmission and any attachments are confidential and are intended
solely for the named addressee (s). If you are not the addressee, please
do not read, copy, use or disclose this transmission and please notify
us immediately by telephone on
+44 (0) 1670 594848 or by reply.  Please then delete this transmission
from your system.

Although we have taken steps to ensure that this email and attachments
are free from viruses, we advise that in keeping with good computing
practice the recipient must ensure that they in fact are virus free.

No contracts may be concluded on behalf of Fone Logistics LTD by means
of email communications.

_____________________________________________________________________
This transmission and any attachments are confidential and are intended
solely for the named addressee (s). If you are not the addressee, please do
not read, copy, use or disclose this transmission and please notify us
immediately by telephone on
+44 (0) 1670 594848 or by reply.  Please then delete this transmission from
your system.

Although we have taken steps to ensure that this email and attachments are
free from viruses, we advise that in keeping with good computing practice
the recipient must ensure that they in fact are virus free.

No contracts may be concluded on behalf of Fone Logistics LTD by means of
email communications.
_______________________________________________
This is the GEAC/JBA System 21 Users (JBAUSERS-L) mailing list
To post a message email: JBAUSERS-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/jbausers-l
or email: JBAUSERS-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/jbausers-l.





--__--__--

_______________________________________________
This is the GEAC/JBA System 21 Users (JBAUSERS-L) digest list
To post a message email: JBAUSERS-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/jbausers-l
or email: JBAUSERS-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/jbausers-l.



End of JBAUSERS-L Digest


--
[ as400-vb.doc of type application/msword deleted ]
--