OpenTP1 Version 7 Programming Reference COBOL Language

[Contents][Index][Back][Next]

CBLDCDAM('STRT') - Start using an unrecoverable DAM file

Format

PROCEDURE DIVISION specification

CALL  'CBLDCDAM'  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 'DCDAMSVC'.
    02  data-name-B    PIC X(5).
    02  FILLER        PIC X(3).
    02  FILLER        PIC X(8).
    02  FILLER        PIC S9(9) COMP.
    02  FILLER        PIC S9(9) COMP.
    02  FILLER        PIC S9(9) COMP.
    02  FILLER        PIC X(28).
01  unique-name-2.
    02  data-name-C    PIC X(4) VALUE 'STRT'.
    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.

Description

CBLDCDAM('STRT') declares that unrecoverable DAM files are used.

Whenever an unrecoverable DAM file is used, call CBLDCDAM('STRT') for each UAP process before opening a logical file.

When CBLDCDAM('STRT') returns normally, the environment for accessing an unrecoverable DAM file is prepared.

Data areas whose values are set in the UAP

data-name-A

Specify VALUE 'DCDAMSVC' for the interface code used with the DAM file.

data-name-C

Specify VALUE 'STRT' for the request code indicating that using the unrecoverable DAM file is started.

data-name-Z

Specify 0.

Data area to which a value is returned from OpenTP1

data-name-B

The status code of 5 digit is returned.

Status codes

Status code Explanation
00000 Normal termination. Unrecoverable DAM files can now be used.
01600 CBLDCRPC('OPEN ') was not called.
01607 The memory became insufficient.
01618 The version of the DAM library linked to the UAP does not allow the UAP to operate with the current DAM service.
01647 CBLDCDAM('STRT') has already been called.
01690 The interface code (data-name-A) is invalid.
01691 The request code (data-name-C) is invalid.