PROCEDURE DIVISION specification

CALL  'CBLDCRPC'  USING  unique-name-1

DATA DIVISION specification

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

CBLDCRPC('CLOSE ') closes the environment for using various types of OpenTP1 COBOL-UAP creation programs. OpenTP1 COBOL-UAP creation programs cannot be called after CBLDCRPC('CLOSE ').

CBLDCRPC('CLOSE ') must be called from the main program. Call it only once in the process.

CBLDCRPC('CLOSE ') also informs OpenTP1 of normal termination of a UAP. If a UAP terminates without CBLDCRPC('CLOSE ') called, OpenTP1 assumes that the UAP terminated abnormally. Consequently, the service group might be shut down or the process might be restarted. To make matters worse, various OpenTP1 resources might not be released, which affects the subsequent processing. If CBLDCRPC('OPEN ') is called from any UAP used with OpenTP1, CBLDCRPC('CLOSE ') must be called before the UAP terminates with STOP RUN.

Call CBLDCRPC('CLOSE ') even if CBLDCRPC('OPEN ') returns with an error.

After CBLDCRPC('CLOSE ') is called, CBLDCRPC('OPEN ') cannot be called.

data-name-A

Specify VALUE 'CLOSE' for the request code indicating UAP termination.

data-name-C

Specify 0.

data-name-B

A status code of 5 digits is returned.