OpenTP1 Version 7 Programming Reference COBOL Language

[Contents][Index][Back][Next]

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 code Explanation
00000 The internode shared table was closed normally.
03800 The sequence of accessing the internode shared table is invalid.
03803 The 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.
03811 The value specified for data-name-H is invalid.
03890 The interface code (data-name-A) is invalid.
03891 The request code (data-name-G) is invalid.