Queue Manager Manual

Example: COBOL Application
46517 Tandem Computers Incorporated B–3
*
01 wa-error-msg PIC X(80) VALUE SPACES.
01 wa-call-error REDEFINES wa-error-msg.
02 wa-error-text PIC X(64).
02 wa-term-status PIC S9(5).
02 FILLER PIC X(2).
02 wa-term-substatus PIC S9(5).
*
* A control variable for the loop of ACCEPT-AND-DISPATCH.
*
01 wa-prog-mode PIC 9(1) VALUE 1.
88 exit-program VALUE 0.
* 88 wa-continue VALUE 1.
/
*
* WC -- Fields used in controlling the work done in this module.
*
01 wc.
03 wc-max-data-size PIC 9999 COMP VALUE 0.
03 wc-starting-number PIC 9999 COMP VALUE 0.
03 wc-current-number PIC 9999 COMP VALUE 0.
03 wc-ending-number PIC 9999 COMP VALUE 0.
03 wc-rep-count PIC 9999 COMP VALUE 0.
03 wc-queue-name PIC X(32) VALUE SPACES.
03 wc-priority PIC 9999 COMP VALUE 0.
03 wc-time-started PIC 9(8) VALUE 0.
03 wc-time-finished PIC 9(8) VALUE 0.
03 wc-elapsed-time PIC 9(8) VALUE 0.
03 wc-error.
05 wc-error-status PIC 9(4) COMP VALUE 0.
05 wc-error-substatus PIC 9(4) COMP VALUE 0.
03 wc-date-time VALUE ZEROS.
COPY date-time OF "GPQCOB".
03 wc-delta-time.
COPY delta-time OF "GPQCOB".
/
*
* WD -- Data portion of the queue entries.
*