OpenTP1 Version 7 Programming Reference COBOL Language

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

CBLDCIST('WRIT') - Output 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 'WRIT'.
    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('WRIT') outputs record(s) in the specified range to the specified internode shared table. When multiple records are specified at a time and the specified records contain an error, CBLDCIST('WRIT') does not output any record to the output buffer and returns with an error.

When CBLDCIST('WRIT') terminates normally, the contents of record(s) at the local node are updated. The contents of record(s) at other nodes are updated presently after normal termination of CBLDCIST('WRIT').

When outputting internode shared table record(s), 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 output buffer with a value which is greater than or equal to (output record length x number of output records).

data-name-F

Specify the table descriptor returned when the internode shared table is opened.

data-name-G

Specify VALUE 'WRIT' for the request code indicating an internode shared table record(s) is output.

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 output.

data-name-K

Specify the output 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 output 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 output 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.
03841 The output buffer length is too much longer than the total length of the record(s) to be output.
03890 The interface code (data-name-A) is invalid.
03891 The request code (data-name-G) is invalid.