CBLDCLCK('RELALL ') - Release all resources from lock

OpenTP1 Version 7 Programming Reference COBOL Language

CBLDCLCK('RELALL ') - Release all resources from lock

Format

PROCEDURE DIVISION specification

CALL  'CBLDCLCK'  USING  unique-name-1  unique-name-2

DATA DIVISION specification

01  unique-name-1.
    02  data-name-A    PIC X(8) VALUE 'RELALL  '.
    02  data-name-B    PIC X(5).
    02  FILLER        PIC X(3).
    02  data-name-Z    PIC S9(9) COMP VALUE ZERO.
01  unique-name-2.
    02  data-name-C    PIC X(7) VALUE 'MIGRATE'.
    02  FILLER        PIC X(1).

Description

BLDCLCK('RELALL ') releases all the resources from lock which was specified in CBLDCLCK('GET '). Use this program when releasing the resources from lock before the synchronization point is acquired.

When the global transaction with lock specified terminates, the OpenTP1 lock service automatically releases the resources from lock. In this case, there is no need to specify release from lock in the UAP.

Data areas whose values are set in the UAP

data-name-A

Specify VALUE 'RELALL [Figure] ' for the request code indicating that all resources are released from lock.

data-name-Z

Specify 0.

data-name-C

Specify VALUE 'MIGRATE'.

Data area to which a value is returned from OpenTP1

data-name-B

A status code of 5 digits is returned.

Status codes

Status code	Explanation
00000	Normal termination.
00401	The value specified for the data-name is invalid. This error also occurs if the request code (data-name-A) is invalid.
00455	CBLDCLCK('RELALL ') was called from a UAP which was not operating as a transaction.
00456	The resource could not be acquired in the transaction that called this program.
00457	The OpenTP1 library version does not match the lock service version.