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 codeExplanation
00000The jnlrput command output file was closed normally.
01101The request code (data-name-A) is invalid.
01271The 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.