This parameter is used to download tableBASE table definition data for subsequent use by TBACC. When a program requires internal use of a table maintained on a tableBASE library, the DU command copies this table to a program area.
Note:
The final 108 bytes are reserved for use by TBACC commands; it is not required by the DU command. (For further information, see Subroutine TBACC).
01 xxxx-TBL-DEF.
05 xxxx-ROWS PIC S9(8) COMP VALUE +0.
05 xxxx-SIZE PIC S9(8) COMP VALUE +100.
05 xxxx-KEYSIZE PIC S9(8) COMP VALUE +7.
05 xxxx-KEYLOC PIC S9(8) COMP VALUE +4.
05 xxxx-MAX PIC S9(8) COMP VALUE +1000.
05 xxxx-SUB PIC S9(8) COMP VALUE +0.
05 xxxx-ORG PIC X VALUE 'S'.
05 xxxx-FOUND PIC X.
05 xxxx-OVFLOW PIC X.
05 xxxx-ACTION PIC X VALUE 'S'.
05 xxxx-METHOD PIC X VALUE 'C'.
05 RESERVED PIC XXX VALUE LOW-VALUES.
05 RESERVED PIC X(108) VALUE LOW-VALUES.