Queue Manager Manual

Example: COBOL Application
46517 Tandem Computers Incorporated B–7
background,
VALUE "DataLen:" .
05 WORKOUT-DATALEN
AT 12, 65
inoutfield,
PIC ZZ,
USING rsp-deq-data-len .
05 FILLER
AT 13, 51
background,
VALUE "Repetition Count: " .
05 WORKOUT-REP-COUNT
AT *, * + 2
inoutfield,
PIC ZZZZ
USING wc-rep-count .
05 FILLER
AT 13, 3
background,
VALUE "Month:" .
05 WORKOUT-MONTH
AT 13, 12
inoutfield,
PIC ZZ,
USING month OF wc-date-time .
05 FILLER
AT 13, 27
background,
VALUE "Units:" .
05 WORKOUT-UNITS
AT 13, 38
inoutfield,
PIC X
USING units OF wc-delta-time .
05 FILLER
AT 14, 3
background,
VALUE "Day:" .
05 WORKOUT-DAY
AT 14, 12
inoutfield,
PIC ZZ,
USING day-of-month OF wc-date-time .
05 FILLER
AT 15, 3
background,
VALUE "Hour:" .
05 WORKOUT-HOUR
AT 15, 12