OpenTP1 Version 7 Programming Reference COBOL Language

[Contents][Index][Back][Next]

CBLDCRPC('OPEN ') - Start an application program

Format

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.

Description

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 areas whose values are set in the UAP

data-name-A

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

data-name-C

Specify 0.

Data area whose value is returned from OpenTP1

data-name-B

A status code of 5 digits is returned.

Status codes

Status code Explanation
00000 Normal termination.
00301 The value specified for the data-name is invalid.
This error also occurs if the request code (data-name-A) is invalid.
00302 CBLDCRPC('OPEN ') has already been called.
00303 Initialization was unsuccessful. OpenTP1 COBOL-UAP creation programs can no longer be called.
00315 OpenTP1 of the node at which the UAP exists was not executed.
00369 The stand-by user server received a stand-by termination request.
00371 When OpenTP1 uses the security facility, an error occurred during initialization of security environment.