OpenTP1 Version 7 Programming Reference COBOL Language
CBLDCDAM('END ') - Terminate 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 'END '. 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('END ') declares that use of an unrecoverable DAM file is terminated.
Call CBLDCDAM('END ') whenever calling CBLDCDAM('STRT'). Otherwise, the resource used to access an unrecoverable DAM file remains unreleased until the UAP terminates.
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 'END' for the request code indicating that use of an unrecoverable DAM file is terminated.
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. Use of an unrecoverable DAM file is terminated. |
01600 | CBLDCRPC('OPEN ') was not called. |
01605 | CBLDCDAM('STRT') was not 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.