Re: Data Queues

[shahar mor <shahar_mor@xxxxxxxxx>]

--- Richard Dean <rddean@gdi.net> wrote:
> I have a question about Data Queues.  I have been
> experimenting with the
> Java tool box and have been able to successfully
> write to and read from the
> AS/400 data queue.  I would like to be able to write
> to the data queue with
> a CL program, and then have the Java Client read
> from it.  Is there a
> special format for writing to the data queue that
> the CL must use in order
> for the Client to be able to read it correctly.  I
> would thing not, but
> after looking at the sample code below, which
> describes the data in the
> queue, I began to wonder.
> 
> // First create the base data types.
> CharacterFieldDescription userId =
>    new CharacterFieldDescription(new AS400Text(8), 
> "USER_ID");
> CharacterFieldDescription userName =
>    new CharacterFieldDescription(new AS400Text(20),
> "USER_NAME");
> 
> // Build a record format and fill it with the base
> data types.
> RecordFormat dataFormat = new RecordFormat();
> dataFormat.addFieldDescription(userId);
> dataFormat.addFieldDescription(userName);
> 
> Would I just write out 28 bytes with the first 8
> bytes being User Id and the
> last 20 being User Name.  Or is there some kind of
> identification that I
> have to give to the two fields like I did above in
> the Java program(USER_ID,
> USER_NAME),  Also does anyone know the CL calls to
> write to/read from the
> data queue.
> 
> Thanks
> Richard Dean
> 
Hey,

Data queuee is very simple. The above code is used to give some
internal structure in the java program toi the data queue buffer.

To your question, You dont have to do anything fancy in cl, for example

dcl &len type(*dec) len(5 0)
chgvar &len 28
chgvar (%sst(&buffer 1 8)) value('MYUSER')
chgvar (%sst(&buffer 9 20) value('User name bla bla')
call qsnddtaq parm('Qname' 'Qlib' &len &buffer)


Good luck, Email to me directly in case of problems

Regards
===
Shahar mor
consultant
YUVAL INFORMATION SYSTEM
YAHUD - israel
__________________________________________________
Do You Yahoo!?
Bid and sell for free at http://auctions.yahoo.com

+---
| This is the JAVA/400 Mailing List!
| To submit a new message, send your mail to JAVA400-L@midrange.com.
| To subscribe to this list send email to JAVA400-L-SUB@midrange.com.
| To unsubscribe from this list send email to JAVA400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner: joe@zappie.net
+---