Queue Manager Manual

Example: COBOL Application
46517 Tandem Computers Incorporated B–13
CODE 3 YIELDS
ih-ipc-hdr
ON ERROR
MOVE TERMINATION-STATUS TO wc-error-status
MOVE TERMINATION-SUBSTATUS TO wc-error-substatus.
IF ih-pw-reply-code > 2
MOVE ih-ipc-retn-code TO wc-error-status
MOVE ih-ipc-retn-code-detail TO wc-error-substatus
ELSE IF ih-pw-reply-code > 0
MOVE rsp-enq-retn-code TO wc-error-status
MOVE rsp-enq-retn-code-detail TO wc-error-substatus.
IF wc-error-status = 0
END-TRANSACTION
ELSE
ABORT-TRANSACTION.
SEND-WAITQ SECTION.
MOVE -2 TO ih-request-code.
MOVE "B00" TO ih-version-code.
MOVE LOW-VALUES TO ih-session-id.
MOVE 1 TO ih-uows-to-process.
SEND ih-ipc-hdr, uow-wtq-waitq-uow
TO "WMSERV"
REPLY
CODE 0, 1, 2 YIELDS
ih-ipc-hdr, rsp-wtq-waitq-rsp
CODE 3 YIELDS
ih-ipc-hdr
ON ERROR
MOVE TERMINATION-STATUS TO wc-error-status
MOVE TERMINATION-SUBSTATUS TO wc-error-substatus.
IF ih-pw-reply-code > 2
MOVE ih-ipc-retn-code TO wc-error-status
MOVE ih-ipc-retn-code-detail TO wc-error-substatus
ELSE IF ih-pw-reply-code > 0
MOVE rsp-wtq-retn-code TO wc-error-status
MOVE rsp-wtq-retn-code-detail TO wc-error-substatus.
/
UTILITY SECTION.
RETURN-TO-CALLER.
*
* Nothing more to do. This will never return
* to a perform which invokes it.
*
EXIT PROGRAM.