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.