TBERASE—erase a table

The TBERASE service deletes a table from the table output library. The table output library must be allocated before invoking this service.

The table must not be open in WRITE mode when this service is invoked.

Command invocation format


>>-ISPEXEC--TBERASE--table-name--+------------------+----------><
                                 '-LIBRARY(library)-'

Call invocation format


>>-CALL--ISPEXEC--(buf-len,--buffer);--------------------------><


>>-CALL--ISPLINK--('TBERASEb'--,--table-name-------------------->

>--,-+-library-+-);--------------------------------------------><
     '-'b'-----'

Parameters

table-name: Specifies the name of the table to be erased.
library: Specifies the name of a DD statement or LIBDEF lib-type that defines the library in which the table exists. If this parameter is omitted, the default is ISPTABL.
buf-len: Specifies a fullword fixed binary integer containing the length of "buffer".
buffer: Specifies a buffer containing the name of the service and its parameters in the same form as they would appear in an ISPEXEC call for a command procedure.

Return codes

These return codes are possible:

0: Normal completion.
8: Table does not exist in the output library.
12: Table in use; ENQ failed.
16: Table output library not allocated.
20: Severe error.

Example

Erase the table TELBOOK from the table library.

ISPEXEC TBERASE TELBOOK

Set the program variable BUFFER to contain:

TBERASE TELBOOK

Set program variable BUFLEN to the length of the variable BUFFER. Enter the command:

CALL ISPEXEC (BUFLEN, BUFFER);

or alternately

CALL ISPLINK ('TBERASE ','TELBOOK ');