Queue Manager Manual

Example: COBOL Application
B–6 46517 Tandem Computers Incorporated
PIC X,
USING uow-etq-rel-effective-time .
05 FILLER
AT 9, 51
background,
VALUE "PadChar:" .
05 WORKOUT-PADCHAR
AT 9, 61
inoutfield,
PIC X,
USING uow-deq-pad-char .
05 FILLER
AT 11, 1
background,
VALUE "DateTime:" .
05 FILLER
AT 11, 25
background,
VALUE "DeltaTime:" .
05 FILLER
AT 11, 51
background,
VALUE "MaxDataSize:" .
05 WORKOUT-MAXDATASIZE
AT 11, 65
inoutfield,
PIC ZZ,
USING wc-max-data-size .
05 FILLER
AT 12, 3
background,
VALUE "Year:" .
05 WORKOUT-YEAR
AT 12, 12
inoutfield,
PIC ZZZZ,
USING year OF wc-date-time .
05 FILLER
AT 12, 27
background,
VALUE "Quantity:" .
05 WORKOUT-QUANTITY
AT 12, 38
inoutfield,
PIC ZZZZ,
USING quantity OF wc-delta-time .
05 FILLER
AT 12, 51