This parameter is a general communication area for tableBASE. It contains tableBASE release information, Date-Sensitive Processing controls, and pointers to transaction specific save areas for online environments.
01 TB-PARM.
10 TB-PARM-ID PIC X(2) VALUE 'TB'.
10 FILLER PIC X(2) VALUE LOW-VALUES.
10 TB-VERSION PIC X VALUE '5'.
10 TB-FORMAT PIC X VALUE '0'.
10 FILLER PIC X(10) VALUE LOW-VALUES.
* TPVM reserved for VTS Manager
10 TB-TPVM PIC X(8) VALUE LOW-VALUES.
10 TB-SUBSYSTEM PIC X(8) VALUE LOW-VALUES.
10 FILLER PIC X(4) VALUE LOW-VALUES.
10 TB-TURBO-ANCHOR PIC X(8) VALUE LOW-VALUES.
10 FILLER PIC X(20) VALUE LOW-VALUES.