Queue Manager Manual

Example: COBOL Application
46517 Tandem Computers Incorporated B–5
background,
VALUE "QueueName:" .
05 WORKOUT-QUEUENAME
AT 5, 17
inoutfield,
PIC X(32),
USING wc-queue-name .
05 FILLER
AT 5, 52
background,
VALUE "Priority:" .
05 WORKOUT-PRIORITY
AT 5, 63
inoutfield,
PIC ZZZ,
USING wc-priority .
05 FILLER
AT 7, 1
background,
VALUE "NotifyWaitManager:" .
05 WORKOUT-NOTIFYWAITMANAGER
AT 7, 21
inoutfield,
PIC X(1),
USING uow-enq-notify-wait-manager .
05 FILLER
AT 7, 51
background,
VALUE "SpecificDeq:" .
05 WORKOUT-SPECIFICDEQ
AT 7, 65
inoutfield,
PIC X(1),
USING uow-deq-specific-deq .
05 FILLER
AT 8, 1
background,
VALUE "EffectiveNow:" .
05 WORKOUT-EFFECTIVENOW
AT 8, 21
inoutfield,
PIC X,
USING uow-etq-effective-now.
05 FILLER
AT 9, 1
background,
VALUE "RelEffectiveTime:" .
05 WORKOUT-RELEFFECTIVE-TIME
AT 9, 21
inoutfield,