OpenTP1 Version 7 Programming Reference COBOL Language
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:
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' 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. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.