CBLDCDMB('DGET') - Input directly a physical file block

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 'DGET'.
    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).

CBLDCDMB('DGET') inputs a block corresponding to the specified relative block number from a physical file. Call CBLDCDMB('DGET') after opening a physical file with a re-creation output request.

If the block length is less than the buffer length, the length of the input block is returned to data-name-H. If the block length is greater than the buffer length, CBLDCDMB('DGET') returns with an error.

When directly inputting a physical file block, specify the file descriptor returned from CBLDCDMB('OPEN').

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 input buffer.

data-name-I

Specify the relative block number of the block to be input.

data-name-D

Specify VALUE 'DGET' for the request code indicating the direct input of a physical file block.

data-name-F

Specify the input buffer.

data-name-Z

Specify 0.

data-name-B

The status code of 5 digit is returned.

data-name-H

The length of the sought block is returned.

Status code	Explanation
00000	The input block length was set to data-name-H normally.
01603	The file descriptor specified for data-name-E is not the one which was acquired by opening the DAM file normally.
01603	The DAM file is not open.
01604	The value specified for data-name-G is less than the block length.
01605	The sequence of accessing the DAM file is invalid.
01606	The relative block number is invalid.
01620	An input 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.