RE: R: DTAQ question....

Gurrieri,
A cool dude name Craig Rutledge has done the work for you.
He has a neat (free) utility name DSPDQE that performs a non-destructive
display of a data queue, (HEX option included).
He's made the install a breeze. You can download it as a zip file form
http://www.alltel.net/~craigru/dspdqe.zip
The only thing it did not do was display the key if the data queue was keyed
but I found the code well structured and easily accomodated a mod to provide
for this.

Cheers, Peter

-----Original Message-----
From: Gurrieri Fabrizio [mailto:fabrizio.gurrieri@bartolini.it]
Sent: Monday, May 20, 2002 7:52 PM
To: rpg400-l@midrange.com
Subject: R: R: DTAQ question....


Thanks a lot Barbara; I try and it works fine but I have not considered the
following: my initial *pgm use the QRCVDTAQ in a cycle and write the
received record into a PF that a the end of cycle are display. The old
problem of this *pgm are that with the QRCVDTAQ the record are deleted from
the DTAQ; now using the QRCVDTAQ without remove the record the new problem
is that the *pgm receive always the same record and the cycle where I call
the API goes into an infinitely loop.

How can I do for display all the record of a DTAQ without empty it (in a
V4R5 OS/400)???





Fabrizio Gurrieri - BARTOLINI SPA
Via E.Mattei  42 - 40138 BOLOGNA (Italy)
Tel:+39 051 6015593 - Fax:+39 051 530365
E-Mail: Fabrizio.Gurrieri@bartolini.it
Internet: http://www.bartolini.it



-----Messaggio originale-----
Da: Barbara Morris [mailto:bmorris@ca.ibm.com]
Inviato: venerdì 17 maggio 2002 23.24
A: rpg400-l@midrange.com
Oggetto: Re: R: DTAQ question....


Gurrieri Fabrizio wrote:
>
> Oh, yes!
>         But now I have the following question: how can I use an optional
parameter (11th) without use the 5 previus optional parameter? I try with
*OMIT but this opcode is valid only in CALLB.

Even if RPG allowed you to code *OMIT, the API wouldn't like it.  You
have to pass something for those 5 parameters.  Most optional parameters
for APIs have a value that means the same as "not passed".  For this
API:

For key order, pass blanks (it's ignored if "length of key data" is
zero).
For length of key data, pass zero.
For key data, pass a blank (it's ignored if "length of key data" is
zero).
For length of sender information, pass zero.
For sender information, pass a one-byte dummy variable (it's ignored if
"length of sender information" is zero).


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
This communication is confidential and may be legally privileged. If it is not 
addressed to you, you are on notice of its status. Please immediately contact 
us at our cost and destroy it. Please do not use, disclose, copy, distribute or 
retain any of it without our authority - to do so could be a breach of 
confidence. Thank you for your co-operation. If you need assistance, please 
contact Baycorp Advantage on either :-
Australia 133124 or New Zealand +64 9 356 5800

All personnel email addresses must be in the format 
'firstname.lastname@baycorpadvantage.com'.

* Old Baycorp email addresses will cease to exist after June 1st 2002 *