OpenTP1 Version 7 Programming Reference COBOL Language
CBLDCDMB('DPUT') - Output directly a physical file block
Format
PROCEDURE DIVISION specification
CALL 'CBLDCDMB' 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 'DCDAMINT'. 02 data-name-B PIC X(5). 02 FILLER PIC X(1). 02 data-name-C PIC X(63). 02 FILLER PIC X(3). 02 data-name-H PIC S9(9) COMP. 02 data-name-E PIC S9(9) COMP. 02 data-name-G PIC S9(9) COMP. 02 data-name-I PIC S9(9) COMP. 01 unique-name-2. 02 data-name-D PIC X(4) VALUE 'DPUT'. 02 FILLER PIC X(1). 02 FILLER PIC X(1). 02 FILLER PIC X(1). 02 FILLER PIC X(1). 02 data-name-Z PIC S9(9) COMP VALUE ZERO. 01 unique-name-3. 02 data-name-F PIC X(n). |
Description
CBLDCDMB('DPUT') outputs a block corresponding to the specified relative block number to a physical file. Call CBLDCDMB('DPUT') after opening a physical file with a re-creation output request.
If the length of the data to be output is less than the block length, some blocks are filled with the output data, and the remaining blocks are padded with null characters. Then, the block length is returned to data-name-H. If the length of the data to be output is greater than the block length, CBLDCDMB('DPUT') returns with an error.
When directly outputting a physical file block, specify the file descriptor returned from CBLDCDMB('OPEN').
Data areas whose values are set in the UAP
data-name-A
Specify VALUE 'DCDAMINT' for the interface code used with the DAM file.
data-name-C
Specify the physical file name which comprises 63 characters (special file name + 14 characters) or less. If the specified physical file name has less than 63 characters, pad the remaining portion with space.
data-name-E
Specify the file descriptor.
data-name-G
Specify the length of the data to be output.
data-name-I
Specify the relative block number of the block to be output.
data-name-D
Specify VALUE 'DPUT' for the request code indicating the direct output of a physical file block.
data-name-F
Specify the data to be output.
data-name-Z
Specify 0.
Data areas to which values are returned from OpenTP1
data-name-B
The status code of 5 digit is returned.
data-name-H
The length of the output block is returned.
Status codes
Status code | Explanation |
---|---|
00000 | Normal termination. |
01603 | The file descriptor specified for data-name-E is not the one which was acquired by opening the DAM file normally. |
The DAM file is not open. | |
01604 | The value specified for the length of the data to be output is greater than the block length. |
01605 | The sequence of accessing the DAM file is invalid. |
01606 | The relative block number is invalid. |
01620 | An output error occurred. |
01628 | The DAM file to be accessed is protected by the security facility. The UAP attempting to input a physical file block has no access permission. |
01646 | The DAM file to be accessed is protected by the security facility. No ACL exists for the file. |
01690 | The interface code (data-name-A) is invalid. |
01691 | The request code (data-name-D) is invalid. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.