OpenTP1 Version 7 Programming Reference COBOL Language

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

CBLDCJUP('CLOSERPT') - Close the jnlrput output file

Format

PROCEDURE DIVISION specification

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

DATA DIVISION specification

01  unique-name-1.
    02  data-name-A   PIC X(8) VALUE 'CLOSERPT'.
    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  FILLER       PIC X(256).
    02  data-name-C   PIC S9(9) COMP.
    02  FILLER       PIC 9(9) COMP.
    02  FILLER       PIC 9(9) COMP.

Description

CBLDJUP('CLOSERPT') closes the execution result file of the jnlrput command. Specify the file descriptor returned from CBLDCJUP('OPENRPT') for CBLDCJUP('CLOSERPT').

Data areas whose values are set in the UAP

data-name-A

Specify VALUE 'CLOSERPT' for the request code indicating that the jnlrput command output file is closed.

data-name-Z

Specify 0.

data-name-C

Specify the file descriptor.

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 jnlrput command output file was closed normally.
01101 The request code (data-name-A) is invalid.
01271 The file descriptor specified for data-name-C is not the one which was acquired by opening the jnlrput command output file normally.
The jnlrput command output file is not open.