×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
Dennis Lovelady wrote:
Do you have a wrapper around the DEQ instruction that does RSLVSP
followed by DEQ?
I don't even know whether the error is happening in a dequeue operation.
It could be happening in the enqueue operation.
From MI, I am resolving a system pointer to the queue, in the QTEMP
context, immediately after it is created, and as long as the system
pointer I already have for QTEMP is good (and there's at present no
reason not to assume so, as it's used elsewhere, and is BASPCO POS(65)),
the system pointer to the *USRQ should be good. And I am indeed
enqueueing with an MI ENQ statement.
The program that does the dequeueing is in ILE C, with code in the form:
_DEQ_Msg_Prefix_T d_msg_prefix;
_SYSPTR queue;
char bar[132];
. . .
queue = rslvsp(_Usrq, "FOO", "QTEMP", _AUTH_ALL);
. . .
#pragma cancel_handler(cancelHandler, 0)
. . .
while (deqi(&d_msg_prefix, bar, queue)) {
<here, the dequeued message is processed>
}
#pragma disable_handler
. . .
--
JHHL
midrange.com
