6.3.2 CBLDCRPS('CLOSE ') − UAPの終了
(1) 形式
(a) マルチスレッド環境の場合
■ PROCEDURE DIVISIONの指定
CALL 'CBLDCRPS' USING 一意名1 一意名2 一意名3
■ 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. 02 データ名D PIC 9(9) COMP-X. 01 一意名2. 02 FILLER PIC X(1). 01 一意名3. 02 FILLER PIC X(1).
(b) シングルスレッド環境の場合
■ 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.
(2) 機能
OpenTP1のSPPを呼び出すための環境,またはTCP/IP通信機能を使用するための環境を解除します。
CBLDCRPS('CLOSE ')は,CBLDCRPS('OPEN ')と対になるように実行する必要があります。
CBLDCRPS('CLOSE ')を実行したあとに発行できるプログラムを次に示します。
-
CBLDCRPS('OPEN ')
-
CBLDCCLS('CLTOUT ')
(3) UAPで値を設定するデータ領域
-
データ名A
UAPの終了を示す要求コードを「VALUE 'CLOSE△△△'」と設定します。
-
データ名C
0を設定します。
-
データ名D
CBLDCCLS('CLTIN '),またはCBLDCCLS('EXCLTIN ')で受け取ったクライアントIDを指定します。
(4) 値が返されるデータ領域
-
データ名B
ステータスコードが,5けたの数字で返されます。
(5) ステータスコード
ステータスコード |
意味 |
---|---|
00000 |
正常に終了しました。 |
02401 |
要求コード(データ名A)に指定した値が間違っています。 |