TPGETUNSOL(3cbl)

名前

TPGETUNSOL() - 任意通知型メッセージの獲得

形式

01 TPTYPE-REC.
 COPY TPTYPE. 
 
01 DATA-REC.
 COPY User data. 
 
01 TPSTATUS-REC.
 COPY TPSTATUS. 
 
CALL "TPGETUNSOL" USING TPTYPE-REC DATA-REC TPSTATUS-REC.

機能説明

TPGETUNSOL() は、TPBROADCAST() または TPNOTIFY() によって送られた任意通知型メッセージを取得します。 このルーチンは、任意通知型メッセージ・ハンドラからのみ呼び出し可能です。

正常終了時には、DATA-REC に移動された実際のバイト数が TPTYPE_REC 内の LEN に入ります。 TPTYPE-REC 内の REC-TYPE および SUB-TYPE にはそれぞれデータのタイプおよびサブタイプが入ります。 メッセージが DATA-REC より大きい場合は、DATA-REC にはこのレコードに入るバイト数分のみが入ります。 メッセージの残りは破棄され、TPTRUNCATE() が設定されます。 正常終了時に LEN が 0 である場合は、メッセージにはデータ部がなく、DATA-REC は変更されていません。

入力時に LEN を 0 にすると、エラーになります。

戻り値

TPGETUNSOL() の正常終了時には、TP-STATUS に [TPOK] が設定されます。 着信メッセージの大きさが入力時に LEN に指定されたより大きい場合、TPTRUNCATE() が設定され、LEN 分のデータのみが DATA-REC に移動されて残りのデータは破棄されます。

エラー

次の条件が発生すると、TPGETUNSOL() は異常終了し、TP-STATUS に次の値を設定します。

関連項目