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