Queue Manager Manual

Example: COBOL Application
46517 Tandem Computers Incorporated B–11
MOVE LOW-VALUES TO uow-deq-time-of-enq, uow-deq-cpu-pin.
MOVE wc-max-data-size TO uow-deq-max-data-size.
ACCEPT wc-time-started FROM TIME.
PERFORM send-deq
VARYING wc-current-number FROM 1 BY 1
UNTIL wc-current-number > wc-rep-count OR wc-error-status NOT =
0.
ACCEPT wc-time-finished FROM TIME.
SUBTRACT wc-time-started FROM wc-time-finished GIVING wc-elapsed-
time.
DO-ENQ SECTION.
*
* User entered the ENQ key. Use the screen data to enter a bunch of
requests
* on the queue.
*
MOVE wc-queue-name TO uow-enq-queue-name.
MOVE wc-priority TO uow-enq-priority.
MOVE 4 TO uow-enq-data-byte-count.
ACCEPT wc-time-started FROM TIME.
PERFORM send-enq
VARYING wc-current-number FROM wc-starting-number BY 1
UNTIL wc-current-number > wc-ending-number OR wc-error-status NOT
= 0.
ACCEPT wc-time-finished FROM TIME.
SUBTRACT wc-time-started FROM wc-time-finished GIVING wc-elapsed-
time.
DO-WAITQ SECTION.
*
* User entered the WAITQ key. Use the screen data wait for a new
queue entry
*
MOVE wc-queue-name TO uow-wtq-queue-name.
ACCEPT wc-time-started FROM TIME.
PERFORM send-waitq.
ACCEPT wc-time-finished FROM TIME.
SUBTRACT wc-time-started FROM wc-time-finished GIVING wc-elapsed-
time.
IF uow-wtq-any-queue-name = "Y" AND rsp-wtq-OK
MOVE rsp-wtq-queue-name TO wc-queue-name.
COPY do-exit OF "MPQCOPY".
/
SEND-DEQ SECTION.
MOVE -2 TO ih-request-code.
MOVE "B00" TO ih-version-code.