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. |
The jnlrput command output file is not open. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.