TPACALL(3cbl)

名前

TPACALL() - サービスへのメッセージの非同期送信を行うルーチン

形式

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

機能説明

TPACALL() は、TPSVCDEF-REC 内の SERVICE-NAME で指定されているサービスに要求メッセージを送ります。 この要求は、以前になされた TPSPRIO() の呼び出しで変更されていないかぎり、SERVICE-NAME に定義されている優先順位で送信されます。 DATA-REC は、送信するメッセージであり、TPTYPE-REC 内の LEN は、DATA-REC に入るデータの大きさを指定します。 ただし、DATA-REC が長さの指定を必要としないタイプのレコードである場合 LEN は無視されます (0 でかまいません)。 TPTYPE-REC 内の REC-TYPE が SPACES の場合は、DATA-REC および LEN は無視され、要求はデータ部なしで送信されます。 REC-TYPE が STRING で、LEN が 0 の場合は、要求はデータ部なしで送信されます。 DATA-REC の REC-TYPE および SUB-TYPE は、SERVICE-NAME が認識する REC-TYPE および SUB-TYPE のいずれかと一致しなければなりません。 トランザクション・モードにあるときに送信される要求ごとに、最終的には対応する応答が受信されなければなりません。

次に、TPSVCDEF-REC の有効な設定の一覧を示します。

戻り値

TPACALL() は正常終了時には、TP-STATUS に [TPOK] を設定します。 また、TPSVCDEF-REC に TPREPLY が設定されている場合には、TPACALL() は、COMM-HANDLE に通信ハンドルを返します。このハンドルは、送信した要求に対する応答を受信する際に使用できる有効なハンドルです。

エラー

次の条件が発生すると、TPACALL() は異常終了し、TP-STATUS に次の値を設定します。特に説明がなければ、この障害は呼び出し元のトランザクションには影響しません。

関連項目