****************************************************************
* *
* Data Structure For API: QDCRCFGS *
* Format: CFGS0100 *
* Language: COBOL *
* *
****************************************************************
01 CFGS0100-RCVVAR.
05 BYTES-RETURNED PIC S9(9) COMP-4.
05 BYTES-AVAILABLE PIC S9(9) COMP-4.
05 CURRENT-STAT-NUM PIC S9(9) COMP-4.
05 DATE-INFO-RTV PIC X(7).
05 TIME-INFO-RTV PIC X(6).
05 CURRENT-STAT PIC X(20).
05 JOB.
10 JOB-NAME PIC X(10).
10 USER-NAME PIC X(10).
10 JOB-NUM PIC X(6).
05 PASS-THRU-DEVICE PIC X(10).
I****************************************************************
I* *
I* Data structure for API: QDCRCFGS *
| 
| 
| 