Queue Manager Manual

ENQ (UOW Code 502)
Queue Manager Server Interface
2–14 46517 Tandem Computers Incorporated
ENQ (UOW Code 502) ENQ enqueues an entry on a named queue, making the entry available for dequeuing
by another process. The operation requires a TMF transaction. Following is the DDL
definition:
DEF enq-uow.
02 hdr.
03 self-ident PIC AA VALUE “UW”.
03 uow-code PIC 9(4) COMP VALUE 502.
02 flags.
03 notify-wait-manager TYPE BOOLEAN VALUE “Y”.
03 reserved-1 TYPE BOOLEAN VALUE “N”.
03 reserved-2 TYPE BOOLEAN VALUE “N”.
03 reserved-3 TYPE BOOLEAN VALUE “N”.
03 reserved-4 TYPE BOOLEAN VALUE “N”.
03 reserved-5 TYPE BOOLEAN VALUE “N”.
03 reserved-6 TYPE BOOLEAN VALUE “N”.
03 reserved-7 TYPE BOOLEAN VALUE “N”.
02 queue-name PIC X(32) VALUE SPACES.
02 priority PIC 9(3) COMP VALUE 0.
02 data-byte-count PIC 9(5) COMP VALUE 0.
* Applications should define the actual format of the data
* portion, for example:
* 02 data-field PIC X(!queue length!).
END.
DEF enq-rsp.
02 hdr.
03 self-ident PIC AA VALUE “UW”.
03 uow-code PIC 9(4) COMP VALUE 502.
02 retn-code PIC S9(4) COMP.
02 retn-code-detail PIC S9(4) COMP.
02 time-of-enq PIC X(8).
02 cpu-pin PIC X(2).
END.
ENQ Fields The following fields are defined in this UOW:
HDR
This is the UOW header. The UOW-CODE value is 502.
FLAGS
This lets you qualify the entry insertion. Fields within FLAGS are as follows:
NOTIFY-WAIT-MANAGER specifies whether the Wait Manager should be
notified about this new queue entry.
Y Notify the Wait Manager.