OpenTP1 Version 7 Programming Reference COBOL Language
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' 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. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.