CBLDCRPC('CLOSE ')

〈このページの構成〉

名称

アプリケーションプログラムの終了

形式

PROCEDURE DIVISIONの指定

CALL 'CBLDCRPC' USING 一意名1

DATA DIVISIONの指定

01 一意名1.
   02 データ名A  PIC X(8) VALUE 'CLOSE   '.
   02 データ名B  PIC X(5).
   02 FILLER    PIC X(3).
   02 データ名C  PIC S9(9) COMP VALUE ZERO.

ページの先頭へ

機能

OpenTP1のCOBOL-UAP作成用プログラムを使うための環境をクローズします。CBLDCRPC('CLOSE ')を呼び出したあとには，OpenTP1のCOBOL-UAP作成用プログラムは使えません。

CBLDCRPC('CLOSE ')は，メインプログラムで呼び出します。プロセスで1回だけ呼び出してください。

CBLDCRPC('CLOSE ')は，UAPの正常終了をOpenTP1に知らせます。

CBLDCRPC('CLOSE ')を呼び出さないでUAPを終了すると，UAPの異常終了と見なされて，サービスグループの閉塞やプロセスの再起動の対象になることがあります。また，OpenTP1で管理する各種資源が解放されないままになって，そのあとの処理に影響を与えることがあります。OpenTP1のUAPはすべて，CBLDCRPC('OPEN ')を呼び出したあとで，STOP RUNで終了する前に，必ずCBLDCRPC('CLOSE ')を呼び出してください。

CBLDCRPC('OPEN ')がエラーリターンした場合でも，必ずCBLDCRPC('CLOSE ')を呼び出してください。

CBLDCRPC('CLOSE ')を呼び出したあとは，CBLDCRPC('OPEN ')は呼び出せません。

ページの先頭へ

UAPで値を設定するデータ領域

●データ名A

アプリケーションプログラムの終了を示す要求コードを「VALUE 'CLOSE△△△'」と設定します。

●データ名C

0を設定します。

ページの先頭へ

OpenTP1から値が返されるデータ領域

●データ名B

ステータスコードが，5けたの数字で返されます。

ページの先頭へ

ステータスコード

ステータスコード	意味
00000	正常に終了しました。
00301	データ名に設定した値が間違っています。要求コード（データ名A）が間違っている場合も含みます。
上記以外	プログラムの破壊などによる，予期しないエラーが起こりました。

意味

00000

正常に終了しました。

00301

データ名に設定した値が間違っています。

要求コード（データ名A）が間違っている場合も含みます。

上記以外

プログラムの破壊などによる，予期しないエラーが起こりました。

ページの先頭へ