|
And I missed one; ORDER so here is the call in rpgle that works: 0388.00 * RECEIVER QUEUE 0389.00 c #rcvdq plist 0390.00 c parm 'RCVQ' QNAME 0391.00 c parm #lib QLIB 0392.00 c parm 0 RCVLEN 0393.00 c parm RCVBUF 0394.00 c parm 60 RCVWAIT 0395.00 c parm 'EQ' KEYORD 0396.00 c parm 6 KEYLEN 0397.00 c parm #jobn KEYVAL So try: Call "QRCVDTAQ" Using NAME-OF-QUEUE, NAME-OF-LIBRARY, SIZE-OF-MSG, WS-PASS-BUFFER, WS-WAIT-TIME, WS-KEY-ORDER, WS-KLEN, WS-KEY End-Call -----Original Message----- From: Weatherly, Howard [mailto:Howard.Weatherly@dlis.dla.mil] You are missing the wait time parameter. Try: Call "QRCVDTAQ" Using NAME-OF-QUEUE, NAME-OF-LIBRARY, SIZE-OF-MSG, WS-PASS-BUFFER, WS-WAIT-TIME, WS-KLEN, WS-KEY End-Call
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.