OpenTP1 Version 7 Programming Reference COBOL Language
CBLDCIST('READ') - Input an internode shared table record
Format
PROCEDURE DIVISION specification
CALL 'CBLDCIST' USING unique-name-1 unique-name-2 unique-name-n |
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 data-name-D PIC S9(9) COMP. 02 data-name-E 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 'READ'. 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. 02 unique-name-3. 03 data-name-I PIC S9(9) COMP. 03 data-name-J PIC S9(9) COMP. 02 unique-name-4. 03 data-name-I PIC S9(9) COMP. 03 data-name-J PIC S9(9) COMP. : : 02 unique-name-m. 03 data-name-I PIC S9(9) COMP. 03 data-name-J PIC S9(9) COMP. 01 data-name-n. 02 data-name-K PIC X(n). |
Description
CBLDCIST('READ') inputs record(s) in the specified range from the specified internode shared table for reference. When multiple records are specified at a time and the specified records contain an error, CBLDCIST('READ') does not input any record to the input buffer and returns with an error.
When inputting an internode shared table record, specify the internode shared table name and the table descriptor returned from CBLDCIST('OPEN').
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 accessed with up to 8 characters. If the specified name comprises less than 8 characters, pad the remaining portion with space.
data-name-D
Specify the number of records from unique-name-2 to unique-name-m (the number of sets of data-name-I and data-name-J).
data-name-E
Specify the length of the input buffer with a value which is greater than or equal to (input record length x number of input records).
data-name-F
Specify the table descriptor returned when the internode shared table is opened.
data-name-G
Specify VALUE 'READ' for the request code indicating that an internode shared table record(s) is input.
data-name-H
Specify 0.
data-name-I
Specify the relative record number of the first record to be accessed.
data-name-J
Specify the relative record number of the last record to be accessed. If 0 is specified, only the record whose relative record number is specified for data-name-I is input.
data-name-K
Specify the input data area (buffer).
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 entire specified record(s) was input 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. | |
03804 | The input buffer length specified for data-name-E is less than the total length of the record(s). |
03806 | The relative record number is invalid. |
03807 | The memory became insufficient. |
03809 | The value specified for data-name-D is less than 1. |
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.