Hitachi

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


SEND − 一時記憶データの更新

〈このページの構成〉

名称

一時記憶データの更新

形式

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

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

PROCEDURE DIVISION(通信文)の指定

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

機能

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

アプリケーション属性定義(mcfaalcap -n)のtempsizeオペランドには,更新する一時記憶データ長(データ名2から6を減算した値)以上の値を指定してください。

更新する領域(一意名1で示す領域)の形式を次に示します。

[図データ]

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

FOR句

一時記憶データの更新であることを示す,I-O STORAGE を設定します。

STATUS KEY句

ステータスコードを受け取りたい場合に設定します。省略した場合は ,ステータスコードを受け取れません。データ名1にステータスコードが返されます。

通信文に指定する項目

●データ名2

一意名1の長さ(データ名2の長さ(2)+データ名3の長さ(4)+データ名4の長さ)を設定します。

●データ名3

MCFで使用する領域です。

●データ名4

一時記憶データが格納されている領域を設定します。

ステータスコード

ステータスコード

意味

00000

正常に終了しました。

71103

一時記憶データを更新するための領域をメモリ上に確保できませんでした。

72000

SPPではSEND(一時記憶データの更新)文を呼び出せません。

72024

FOR句に設定した値が間違っています。

72035

データ名2に設定した更新データの長さが,アプリケーション属性定義(mcfaalcap -n)のtempsizeオペランドで定義した長さを超えています。

データ名2に0から6バイト,またはマイナス値を設定しています。

72042

通信記述項にSYMBOLIC TERMINAL句の設定があり,空白以外が設定されています。

72101

継続問い合わせ応答型でないアプリケーションで,SEND(一時記憶データの更新)文を呼び出しました。

72105

RECEIVE(一時記憶データの受け取り)文を呼び出す前に,SEND(一時記憶データの更新)文を呼び出しました。

72106

先頭セグメントを受信するRECEIVE文を呼び出す前に,SEND(一時記憶データの更新)文を呼び出しました。

72107

DISABLE(継続問い合わせ応答の終了)文を呼び出したあとで,SEND(一時記憶データの更新)文を呼び出しました。

上記以外

プログラムの破壊などによる,予期しないエラーが発生しました。