OpenTP1 Version 7 Programming Reference COBOL Language

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

CBLDCIST('OPEN') - Open 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 'OPEN'.
    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('OPEN') opens the specified internode shared table. When the internode shared table is opened normally, the table descriptor is returned.

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 opened with up to 8 characters. If the specified name comprises less than 8 characters, pad the remaining portion with space.

data-name-G

Specify VALUE 'OPEN' for the request code indicating the internode shared table is opened.

data-name-H

Specify 0.

Data areas to which values are returned from OpenTP1

data-name-B

A status code of 5 digits is returned.

data-name-F

The table descriptor of the internode shared table is returned.

Status codes

Status code Explanation
00000 The table descriptor was returned in data-name-F normally.
03800 The sequence of accessing the internode shared table is invalid.
03801 The internode shared table name specified for data-name-C has not been defined.
03807 The memory became insufficient.
03808 The internode shared table whose name is specified for data-name-C has already been opened.
03810 The length of the value specified for the internode shared table name is invalid.
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.