Eliminate Table (XT)

Eliminate Table

This command deletes all generations of a table from the directory of the first of the libraries in the current search list in which the table is found.

MOVE 'XT'                   TO xxxx-COMMAND.
CALL 'TBLBASE' USING        TB-PARM
                            xxxx-COMMAND-AREA
                            [PASSWORD].

memcpy( tbCommArea.tbCommand, "XT", 2 );
TBLBASE( &tbParm, &tbCommArea, pWritePassword );

PASSWORD (optional)

None

ERROR 0009 subcode 1 occurs when the table is not found.

ERROR 0003 subcode 1 occurs when attempting the command on a table that is open for read or write in the TSR of record.

Error 0003 subcode 10 occurs when attempting the command on a table that is open for read or write in the local TSR when the TSR of record is a VTS-TSR.

ERROR 0030 occurs when the wrong password is supplied.

ERROR 0072 occurs if the table is open for write in a VTS-TSR or in a different region, when the TSR or record is the local TSR and the ‘Wait for Enqueued Table’ SWITCHES setting is set to N.

The table must be closed in the TSR of record for this command.

If a write password has been set, then a write password is required for this command.

If the ‘Wait for Enqueued Table’ SWITCHES setting is set to Y and the command is executed with the TSR of record being the local TSR and after the table has been opened for write in a VTS-TSR, it is possible that the application will never stop waiting as the enqueue was created by the same application.

None