Queue Manager Manual

READQ (UOW Code 504)
Queue Manager Server Interface
46517 Tandem Computers Incorporated 2–17
READQ (UOW Code
504)
READQ reads an entry on a named queue without removing it from the queue. This
operation does not require a TMF transaction. Following is the DDL definition:
DEF readq-uow.
02 hdr.
03 self-ident PIC AA VALUE “UW”.
03 uow-code PIC 9(4) COMP VALUE 504.
02 flags.
03 any-queue-name TYPE BOOLEAN VALUE “N”.
03 any-priority TYPE BOOLEAN VALUE “Y”.
03 any-time-of-enq TYPE BOOLEAN VALUE “Y”.
03 any-cpu-pin TYPE BOOLEAN VALUE “Y”.
03 skip-exact TYPE BOOLEAN VALUE “N”.
03 reposition 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 time-of-enq PIC X(8) VALUE LOW-VALUES.
02 cpu-pin PIC X(2) VALUE LOW-VALUES.
02 max-data-size PIC 9(5) COMP.
02 pad-char PIC X(1) VALUE LOW-VALUE.
02 filler PIC X(1) VALUE LOW-VALUE.
END.
DEF readq-rsp.
02 hdr.
03 self-ident PIC AA VALUE “UW”.
03 uow-code PIC 9(4) COMP VALUE 504.
02 retn-code PIC S9(4) COMP.
02 retn-code-detail PIC S9(4) COMP.
02 queue-name PIC X(32) VALUE SPACES.
02 priority PIC 9(3) COMP VALUE 0.
02 time-of-enq PIC X(8).
02 cpu-pin PIC X(2).
02 data-len PIC 9(5) COMP.
* Applications should define the actual format of the data
* portion, for example:
* 02 data-field PIC X(!queue length!).
END.