TBEND—close a table without saving

The TBEND service deletes the virtual storage copy of the specified table, making it unavailable for further processing. The permanent copy, if any, is not changed.

A TBEND request for a shared table causes the use count in the table for that logical screen to be decremented by one. If the use count for all logical screens is zero, the TBEND service is performed. Otherwise, no action occurs, and the table is available for continued processing in any screen that still has a use count greater than zero.

Command invocation format


>>-ISPEXEC--TBEND--table-name----------------------------------><

Call invocation format


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


>>-CALL--ISPLINK--('TBENDbbb'--,--table-name);-----------------><

Parameters

table-name: Specifies the name of the table to be ended.
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.
12: Table is not open.
20: Severe error.

Example

Delete the virtual storage copy table TELBOOK. Do not change any permanent copy in the table library.

ISPEXEC TBEND TELBOOK

Set the program variable BUFFER to contain:

TBEND TELBOOK

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

CALL ISPEXEC (BUFLEN, BUFFER);

or alternately

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