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  FILLER        PIC S9(9) COMP.
    02  data-name-I    PIC S9(9) COMP.
01  unique-name-2.
    02  data-name-D    PIC X(4) VALUE 'BSEK'.
    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.

CBLDCDMB('BSEK') specifies a relative block number of the physical file to locate the corresponding block. Call CBLDCDMB('BSEK') after opening a physical file with a re-creation output request.

When the relative block number exists in the file, the relative block number is returned.

When seeking 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-I

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

data-name-D

Specify VALUE 'BSEK' for the request code indicating that a physical file is sought.

data-name-Z

Specify 0.

data-name-B

The status code of 5 digit is returned.

data-name-H

The relative block number of the sought block is returned.