Queue Manager Manual

Example: COBOL Application
B–4 46517 Tandem Computers Incorporated
01 wd.
05 wd-enq-data-field.
10 wd-enq-number PIC 9(4).
05 wd-deq-data-field.
10 wd-deq-data-array PIC X
OCCURS 0 TO 66 TIMES
DEPENDING ON wc-max-data-size .
/
01 ipc-hdr-buf.
COPY ih-ipc-hdr OF "GPQCOB".
/
01 enqUow-buf.
COPY uow-enq-enq-uow OF "GPQCOB".
01 enqRsp-buf.
COPY rsp-enq-enq-rsp OF "GPQCOB".
/
01 deqUow-buf.
COPY uow-deq-deq-uow OF "GPQCOB".
01 deqRsp-buf.
COPY rsp-deq-deq-rsp OF "GPQCOB".
/
01 waitqUow-buf.
COPY uow-wtq-waitq-uow OF "GPQCOB".
01 waitqRsp-buf.
COPY rsp-wtq-waitq-rsp OF "GPQCOB".
/
SCREEN SECTION.
01 workout-scrn
SIZE 24, 80 .
05 FILLER
AT 1, 20
bannerfield,
VALUE "Passive Queue Manager - Server Checkout ".
05 FILLER AT 3, 5
background,
VALUE "Elapsed Time: " .
05 WORKOUT-ELAPSED-TIME
AT *, * + 2,
outfield,
PIC Z(8)
FROM wc-elapsed-time .
05 FILLER
AT 5, 5