OpenTP1 Version 7 Programming Reference COBOL Language

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

CBLDCJUP('OPENRPT ') - Open the jnlrput output file

Format

PROCEDURE DIVISION specification

CALL  'CBLDCJUP'  USING  unique-name-1 unique-name-2
                         unique-name-3

DATA DIVISION specification

01  unique-name-1.
    02  data-name-A   PIC X(8) VALUE 'OPENRPT '.
    02  data-name-B   PIC X(5).
    02  FILLER       PIC X(3).
    02  data-name-Z   PIC S9(9) COMP VALUE ZERO.
01  unique-name-2.
    02  data-name-C   PIC X(256).
    02  data-name-D   PIC S9(9) COMP.
    02  FILLER       PIC 9(9) COMP.
    02  FILLER       PIC 9(9) COMP.
01  unique-name-3.
    02  data-name-E   PIC 9(9) COMP.
    02  data-name-F   PIC X(4).
    02  data-name-G   PIC X(8).
    02  data-name-H   PIC 9(9) COMP.
    02  data-name-I    PIC 9(9) COMP.
    02  data-name-J    PIC 9(9) COMP.
    02  data-name-K    PIC X(4).
    02  FILLER       PIC X(96).

Description

CBLDJUP('OPENRPT ') opens the execution file of the jnlrput command.

Specify the name created at execution of the jnlrput command as the name of the execution file to be opened.

If an input error or memory shortage occurs, CBLDJUP('OPENRPT ') closes the execution file of the jnlrput command and returns.

Data areas whose values are set in the UAP

data-name-A

Specify VALUE 'OPENRPT[Figure]' for the request code indicating that the jnlrput command output file is opened.

data-name-Z

Specify 0.

data-name-C

Specify the name of the jnlrput command output file, with a pathname which comprises 256 characters or less. If the specified name comprises less than 256 characters, pad the remaining portion with space.

Data areas to which values are returned from OpenTP1

data-name-B

A status code of 5 digits is returned.

data-name-D

The file descriptor is returned.

data-name-E

The length of unique-name-3 is returned.

data-name-F

The identifier of the jnlrput command output file, JUP, is returned.

data-name-G

The node identifier is returned.

data-name-H

The length of record management information of the jnlrput command output file is returned.

data-name-I

The length of record data header of the jnlrput command output file is returned.

data-name-J

The maximum record length of the jnlrput command output file is returned.

data-name-K

The format version of the jnlrput command output file is returned.

Status codes

Status code Explanation
00000 The file descriptor was set in data-name-D normally.
01101 The request code (data-name-A) is invalid.
01272 The jnlrput command output file whose name is specified for data-name-C is not found.
An input error (open error) occurred.
01273 The file whose name is specified for data-name-C is not the jnlrput command output file.
01274 An input error (read error) occurred.
01278 The jnlrput command output file whose name is specified for data-name-C has already been opened.
01270 The memory became insufficient.