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

OpenTP1 Version 7 Programming Reference COBOL Language

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.
01271	The jnlrput command output file is not open.