Queue Manager Manual

Example: COBOL Application
46517 Tandem Computers Incorporated B–9
05 FILLER
AT 20, 1
background,
VALUE "Ending Number:" .
05 WORKOUT-ENDING-NUMBER
AT 20, 19
inoutfield,
PIC ZZZZ,
USING wc-ending-number .
05 FILLER
AT 22, 1
background,
VALUE "DataField:" .
05 WORKOUT-DATAFIELD
AT 22, 13
outfield,
PIC X(66),
FROM wd-deq-data-field .
05 workout-menu
AT 23, 10
background,
VALUE "F1 = Enq, F9 = Deq, F10 = Waitq, F16 = Exit" .
05 advice-line
AT 24, 2
advisefield,
PIC X(77)
ADVISORY
FROM wa-error-msg .
/
PROCEDURE DIVISION.
START-PROGRAM SECTION.
MOVE SPACE TO uow-deq-pad-char.
MOVE 0 TO quantity OF wc-delta-time.
MOVE "D" TO units OF wc-delta-time.
MOVE 1 TO wc-rep-count.
MOVE "-" TO uow-deq-pad-char.
MOVE 4 TO wc-max-data-size.
MOVE 1 TO wc-priority.
MOVE 0 TO rsp-deq-data-len.
MOVE 1 TO wc-starting-number, wc-ending-number.
PERFORM accept-and-dispatch
UNTIL exit-program.
GO TO return-to-caller.
ACCEPT-AND-DISPATCH SECTION.
*