OpenTP1 Version 7 Programming Reference COBOL Language
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. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.