Queue Manager Manual

Example: COBOL Application
B–8 46517 Tandem Computers Incorporated
inoutfield,
PIC ZZ,
USING hour OF wc-date-time .
05 FILLER
AT 16, 3
background,
VALUE "Minute:" .
05 WORKOUT-MINUTE
AT 16, 12
inoutfield,
PIC ZZ,
USING minute OF wc-date-time .
05 FILLER
AT 17, 3
background,
VALUE "Second:" .
05 WORKOUT-SECOND
AT 17, 12
inoutfield,
PIC ZZ,
USING second OF wc-date-time .
05 FILLER
AT 18, 51
background,
VALUE "AnyQueueName: " .
05 WORKOUT-ANYQUEUENAME
AT *, * + 2
inoutfield,
PIC X,
USING uow-wtq-any-queue-name .
05 FILLER
AT 19, 51
background,
VALUE "WaitTimeOut: " .
05 WORKOUT-WAITTIMEOUT
AT *, * + 2
inoutfield,
PIC -----,
USING uow-wtq-wait-timeout .
05 FILLER
AT 19, 1
background,
VALUE "Starting Number:" .
05 WORKOUT-STARTING-NUMBER
AT 19, 19
inoutfield,
PIC ZZZZ,
USING wc-starting-number .