****************************************************************
* *
* API: QSPRJOBQ *
* Format: JOBQ0100 *
* *
****************************************************************
01 JOBQ0100-RCVVAR.
05 BYTES-RETURNED PIC S9(9) COMP-4.
05 BYTES-AVAILABLE PIC S9(9) COMP-4.
05 JOB-QUEUE-NAME PIC X(10).
05 JOB-QUEUE-LIBRARY PIC X(10).
05 OPERATOR-CONTROL PIC X(10).
05 AUTHORITY-TO-CHECK PIC X(10).
05 NUMBER-OF-JOBS PIC S9(9) COMP-4.
05 JOB-QUEUE-STATUS PIC X(10).
05 SUBSYSTEM-NAME PIC X(10).
05 JOB-QUEUE-DESCRIPTION PIC X(50).
****************************************************************
IRCVVAR DS
I B 1 40BYTRTN
I B 5 80BYTVAL
I 9 18 QUENAM
| 
| 
| 