OpenTP1 Version 7 Programming Reference COBOL Language
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. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.