OpenTP1 Version 7 Programming Reference COBOL Language
CBLDCDMB('PUT ') - Output 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 FILLER PIC S9(9) COMP. 02 data-name-E PIC S9(9) COMP. 02 data-name-G PIC S9(9) COMP. 02 FILLER PIC X(4). 01 unique-name-2. 02 data-name-D PIC X(4) VALUE 'PUT '. 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('PUT ') sequentially outputs data in blocks to a physical file created in the OpenTP1 file system. If the value specified for the data length is smaller than the value specified for the block length, the remaining part following the data is padded with space. If the value specified for the data length is greater than the value specified for the block length, an error is returned.
When outputting a physical file block, specify the physical file name and the file descriptor returned from CBLDCDMB('OPEN') or CBLDCDMB('CRAT').
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, with a path name which comprises 63 characters (special file name + 14 characters) or less. If the physical file name comprises 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-D
Specify VALUE 'PUT' for the request code indicating block output to the physical file.
data-name-F
Specify the data to be output.
data-name-Z
Specify 0.
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 data specified for data-name-F was output normally. |
01603 | The specified file descriptor 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 data length is greater than the value specified for the block length. |
01605 | The sequence for accessing the DAM file is invalid. |
01620 | An output error occurred. |
01628 | The DAM file to be accessed is protected by the security facility. The UAP attempting to output a physical file block has no access permission. |
01637 | The end of the file was reached. |
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.