PROCEDURE DIVISION specification

CALL  'CBLDCRPC'  USING  unique-name-1

DATA DIVISION specification

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

CBLDCRPC('OPEN ') prepares to use the various types of OpenTP1 service programs. CBLDCRPC('OPEN ') must be called in the main program. Call CBLDCRPC('OPEN ') only once in the process before any other OpenTP1 COBOL-UAP creation program. To initialization procedure in the main program is as follows:

1. Open the entry point for communication between processes.
2. Acquire shared memory used with OpenTP1.
3. Report the UAP start to OpenTP1 to request OpenTP1 to supervise processes.
4. Initialize the OpenTP1 facilities to be used according to the user service definition.

If the transaction attribute is specified in the user service definition, the OpenTP1 transaction service and the process service must be in progress at the node. CBLDCRPC('OPEN ') can be called only after OpenTP1 starts normally when the OS starts or after OpenTP1 is started normally by entering the dcstart command. If CBLDCRPC('OPEN ') is called before the normal start of OpenTP1, the program returns with the status code 00315. In this case, SPP services cannot be requested.

UAP trace is acquired for all OpenTP1 COBOL-UAP creation programs called after CBLDCRPC('OPEN ') terminates normally. If CBLDCRPC('OPEN ') returns with an error, the UAP trace is not always acquired.

data-name-A

Specify VALUE 'OPEN' for the request code indicating UAP service start.

data-name-C

Specify 0.

data-name-B

A status code of 5 digits is returned.