Hitachi

OpenTP1 Version 7 分散トランザクション処理機能 OpenTP1 プログラム作成リファレンス COBOL言語編


SEND − ユーザジャーナルの取得

〈このページの構成〉

名称

ユーザジャーナルの取得

形式

DATA DIVISION(通信記述項)の指定

CD  通信記述名
    FOR OUTPUT JOURNALSTATUS  KEY  IS データ名1〕.
 
01 一意名1.
   02 データ名2  PIC  9(4) COMP.
   02 データ名3  PIC  X(2).
   02 データ名4  PIC  X(1).
   02 データ名5  PIC  X(n).

PROCEDURE DIVISION(通信文)の指定

SEND 通信記述名 FROM 一意名1.

機能

次に示すCALLインタフェースの機能を実現します。

通信記述項に設定する項目

FOR句

OUTPUT JOURNALを指定します。

STATUS KEY句

ステータスコードを受け取りたいときに指定します。この指定を省略した場合は,ステータスコードを受け取れません。

通信文に指定する項目

一意名1

指定した領域にUAP履歴情報を格納します。この一意名1は,作業場所節,または連結節で定義した項目の名称を指定してください。

格納するUAP履歴情報(一意名1)の形式を次に示します。この領域は,UAPで作成・設定します。

[図データ]

ステータスコード

ステータスコード

意味

00000

正常に終了しました。

01101

パラメタの形式が間違っています。

01102

ユーザジャーナルの長さに,5バイト未満の値を設定しています。

01103

ユーザジャーナルの長さに,設定できる範囲以上の値を設定しています。

01104

ユーザジャーナルを取得するSEND文が,トランザクションでないUAPの処理で使っています。

01105

UAP開始の準備がされていません。