****************************************************************
* *
* DATA STRUCTURE FOR API: QWCCHGTN *
* FORMAT: TUNI0100 *
* LANGUAGE: COBOL *
* *
****************************************************************
01 TUNI0100-RCVVAR.
05 TYPE-OF-TUNING PIC X(01).
05 CHANGE-PAGE-HANDLING PIC X(01).
05 NON-DB-BLOCKING-FACTOR PIC S9(9) COMP-4.
05 DB-CLASS-INFORMATION OCCURS 4 TIMES.
10 DB-ALLOW-EXCHANGE-OPS PIC X(01).
10 DB-TRANSFER-TO-AUX-STG PIC X(01).
10 DB-BLOCKING-FACTOR PIC S9(9) COMP-4.
I****************************************************************
I* *
I* DATA STRUCTURE FOR API: QWCCHGTN *
I* FORMAT: TUNI0100 *
I* LANGUAGE: RPG *
I* *
I****************************************************************
| 
| 
| 