CBLDCIST('CLOS') - Close an internode shared table

Format

PROCEDURE DIVISION specification

CALL 'CBLDCIST' USING unique-name-1 unique-name-2

DATA DIVISION specification

01  unique-name-1.
   02 data-name-A  PIC X(8)  VALUE'DCISTSVC'.
   02 data-name-B  PIC X(5).
   02 FILLER      PIC X(3).
   02 data-name-C  PIC X(8).
   02 FILLER      PIC S9(9) COMP.
   02 FILLER      PIC S9(9) COMP.
   02 data-name-F  PIC S9(9) COMP.
   02 FILLER      PIC X(12).
01  unique-name-2.
   02 data-name-G  PIC X(4)  VALUE 'CLOS'.
   02 FILLER      PIC X(1).
   02 FILLER      PIC X(1).
   02 FILLER      PIC X(1).
   02 FILLER      PIC X(1).
   02 data-name-H  PIC S9(9) COMP VALUE ZERO.

Description

CBLDCIST('CLOS') closes the specified internode shared table.

Data areas whose values are set in the UAP

data-name-A

Specify VALUE 'DCISTSVC' for the interface code used with the internode shared table.

data-name-C

Specify the name of an internode shared table to be closed with up to 8 characters. If the specified name comprises less than 8 characters, pad the remaining portion with space.

data-name-F

Specify the table descriptor returned when the internode shared table is opened.

data-name-G

Specify VALUE 'CLOS' for the request code indicating that the internode shared table is closed.

data-name-H

Specify 0.

Data area to which a value is returned from OpenTP1

data-name-B

A status code of 5 digits is returned.

Status codes

Status codeExplanation
00000The internode shared table was closed normally.
03800The sequence of accessing the internode shared table is invalid.
03803The table descriptor specified for data-name-F is not the one which was acquired by opening the internode shared table normally.
The internode shared table is not open.
03811The value specified for data-name-H is invalid.
03890The interface code (data-name-A) is invalid.
03891The request code (data-name-G) is invalid.