クライアントおよびサーバへの要求/応答のコーディング

引数	説明
svc	アプリケーションで提供されるサービス名を指すポインタ。
idata	要求のデータ部分のアドレスを含むポインタ。このポインタは、tpalloc() の以前の呼び出しで割り当てられた型付きバッファを参照しなければなりません。idata の type (および指定されている場合は subtype) は、サービス・ルーチンで使用できる type (および指定されている場合は subtype) と合致する必要があります。タイプが合致しない場合、tperrno に TPEITYPE が設定され、関数の呼び出しが失敗します。データが要求されていない場合、idata に NULL ポインタを設定します。NULL ポインタが設定されていると、パラメータは無視されます。要求でデータが送信されない場合、idata のバッファを割り当てる必要はありません。
ilen	idata で参照されるバッファ内の要求データの長さ。バッファが自己記述型の場合、つまり FML、FML32、VIEW、VIEW32、X_COMMON、X_C_TYPE、または STRING 型バッファの場合、この引数にゼロを設定すると引数が無視されます。
*odata	応答を受信する出力バッファを指すポインタのアドレス。tpalloc() 関数を使用して、出力バッファを割り当てておく必要があります。tpcall() から正常に制御が戻ったときに、応答メッセージにデータが含まれていないと、*olen にゼロが設定されます。ポインタと出力バッファの内容は変更されません。要求メッセージと応答メッセージの両方に同じバッファを使用できます。その場合、*odata には、入力バッファを割り当てたときに返されたポインタのアドレスを設定します。このパラメータが NULL を指している場合は、エラーになります。
olen	応答データの長さを指すポインタ。このパラメータが NULL を指している場合は、エラーになります。
flags	フラグのオプション。論理演算子 OR を使用すると、複数のフラグをリストできます。この値にゼロを設定すると、デフォルトの方法で通信が行われます。有効なフラグとデフォルト値については、『BEA Tuxedo C リファレンス』の tpcall(3c) を参照してください。

. . .
/* バッファを作成し、データ・ポインタを設定します。 */

audv = (struct aud *)tpalloc("VIEW", "aud", sizeof(struct aud));

/* aud 構造体を用意します。 */

audv->b_id = q_branchid;
audv->balance = 0.0;
(void)strcpy(audv->ermsg, "");

/* tpcall の実行 */

if (tpcall(svc_name,(char *)audv,sizeof(struct aud),
(char **)&audv,(long *)&audrl,0)== -1){
(void)fprintf (stderr, "%s service failed¥n %s:%s¥n",
svc_name, svc_name, audv->ermsg);
retc = -1;
}
else
(void)printf ("Branch %ld %s balance is $%.2f¥n",
audv->b_id, hdr_type, audv->balance);
. . .

char *svc, *idata, *odata;
long ilen, olen, bef_len, aft_len;
. . .
if (idata = tpalloc("STRING", NULL, 0) == NULL)
error

if (odata = tpalloc("STRING", NULL, 0) == NULL)
error

place string value into idata buffer

ilen = olen = strlen(idata)+1;
. . .
bef_len = olen;
if (tpcall(svc, idata, ilen, &odata, &olen, flags) == -1)
error

aft_len = olen;

if (aft_len > bef_len){ /* メッセージ・バッファのサイズが大きくなっている場合 */

if (idata = tprealloc(idata, olen) == NULL)
error
}

/* tpcall を実行して、振替元の口座から引き出します。 */

if (tpcall("WITHDRAWAL", (char *)reqfb,0, (char **)&reqfb,
(long *)&reqlen,TPSIGRSTRT) == -1) {
(void)Fchg(transf, STATLIN, 0,
"Cannot withdraw from debit account", (FLDLEN)0);
tpfree((char *)reqfb);
}
...
/* tpcall を実行して、振替先口座に振替金額を移動します。 */

if (tpcall("DEPOSIT", (char *)reqfb, 0, (char **)&reqfb,
(long *)&reqlen, TPSIGRSTRT) == -1) {
(void)Fchg(transf, STATLIN, 0,
"Cannot deposit into credit account", (FLDLEN)0);
tpfree((char *)reqfb);
}

#include <stdio.h>
#include "atmi.h"

main()

{
char *rbuf; /* レポート用バッファ */
long r1len, r2len, r3len; /* レポート用の送信バッファ、最初の応答バッファ、
および 2 番目の応答バッファの長さ */
join application

if (rbuf = tpalloc("STRING", NULL, 0) == NULL) /* レポート用の領域の割り当て */
leave application and exit program
(void)strcpy(rbuf,
"REPORT=accrcv DBNAME=accounts"); /* レポートのパラメータの送信 */
r1len = strlen(rbuf)+1; /* 要求の長さ */

start transaction

if (tpcall("REPORT", rbuf, r1len, &rbuf,
&r2len, 0) == -1) /* レポート印刷ストリームの取得 */
error routine
if (tpcall("PRINTER", rbuf, r2len, &rbuf,
&r3len, TPNOTRAN) == -1) /* プリンタへのレポートの送信 */
error routine
(void)printf("Report sent to %s printer¥n",
rbuf); /* プリンタの識別 */

terminate transaction
free buffer
アプリケーションを終了
}

#include <stdio.h>
#include "atmi.h"
#include "rview1.h"

main(argc, argv)
int argc;
char * argv[];

{
char *rbuf; /* レポート用バッファ */
struct rview1 *rrbuf; /* 応答バッファの通知 */
long rlen, rrlen; /* レポート用の送信バッファと
受信バッファの長さ */
if (tpinit((TPINIT *) tpinfo) == -1)
fprintf(stderr, "%s:failed to join application¥n", argv[0]);

if (rbuf = tpalloc("STRING", NULL, 0) == NULL) { /* レポート用の領域の割り当て */
tpterm();
exit(1);
}
/* 応答バッファ用の領域の割り当て */
if (rrbuf = (struct rview1 *)tpalloc("VIEW", "rview1", sizeof(struct rview1)) ¥ == NULL{
tpfree(rbuf);
tpterm();
exit(1);
}
(void)strcpy(rbuf, "REPORT=accrcv DBNAME=accounts FORMAT=rview1");
rlen = strlen(rbuf)+1; /* 要求の長さ */
/* rview1 構造体でのレポートの取得 */
if (tpcall("REPORT", rbuf, rlen, (char **)&rrbuf, &rrlen, TPNOCHANGE) == -1) {
fprintf(stderr, "accounts receivable report failed in service call¥n");
if (tperrno == TPEOTYPE)
fprintf(stderr, "report returned has wrong view type¥n");
tpfree(rbuf);
tpfree(rrbuf);
tpterm();
exit(1);
}
(void)printf("Total accounts receivable %6d¥n", rrbuf->total);
(void)printf("Largest three outstanding %-20s %6d¥n", rrbuf->name1, rrbuf->amt1);
(void)printf("%-20s %6d¥n", rrbuf->name2, rrbuf->amt2);
(void)printf("%-20s %6d¥n", rrbuf->name3, rrbuf->amt3);
tpfree(rbuf);
tpfree(rrbuf);
tpterm();
}

引数

説明

svc

アプリケーションで提供されるサービス名を指すポインタ。

data

要求のデータ部分のアドレスを含むポインタ。このポインタは、tpalloc() の以前の呼び出しで割り当てられた型付きバッファを参照しなければなりません。idata の type (および指定されている場合は subtype) は、サービス・ルーチンで使用できる type (および指定されている場合は subtype) と合致する必要があります。タイプが合致しない場合、tperrno に TPEITYPE が設定され、関数の呼び出しが失敗します。

データが要求されていない場合、data に NULL ポインタを設定します。NULL ポインタが設定されていると、パラメータは無視されます。要求でデータが信されていない場合は、data のバッファを割り当てる必要はありません。

len

data で参照されるバッファ内の要求データの長さ。バッファが自己記述型の場合、つまり FML、FML32、VIEW、VIEW32、X_COMMON、X_C_TYPE、または STRING 型バッファの場合、この引数にゼロを設定すると引数が無視されます。

flags

フラグのオプション。論理演算子 OR を使用すると、複数のフラグをリストできます。この値にゼロを設定すると、デフォルトの方法で通信が行われます。有効なフラグとデフォルト値については、『BEA Tuxedo C リファレンス』の tpacall(3c) を参照してください。

#include <stdio.h>
#include "atmi.h"

main()

{
char *rbuf; /* レポート用バッファ */
long rlen, rrlen; /* レポート用の送信バッファと受信バッファの長さ */

join application

if (rbuf = tpalloc("STRING", NULL, 0) == NULL) /* レポート用の領域の割り当て */
error
(void)strcpy(rbuf, "REPORT=accrcv DBNAME=accounts");/* レポートのパラメータの送信 */
rlen = strlen(rbuf)+1; /* 要求の長さ */

start transaction

if (tpcall("REPORT", rbuf, rlen, &rbuf, &rrlen, 0)
== -1) /* レポート印刷ストリームの取得 */

audv->balance = 0.0;
(void)strcpy(audv->ermsg, "");

for (i=0; i<NSITE; i++) {

/* aud 構造体を用意します。 */

audv->b_id = sitelist[i]; /* このフィールドでルーティングを行います。 */

/* tpacall の実行 */

if ((cd[i]=tpacall(sname, (char *)audv, sizeof(struct aud), 0))
== -1) {
(void)fprintf (stderr,
"%s: %s service request failed for site rep %ld¥n",
pgmname, sname, sitelist[i]);
tpfree((char *)audv);
return(-1);
}
}

引数	説明
cd	tpacall() が返す呼び出し記述子を指すポインタ。
*data	応答を受信する出力バッファを指すポインタのアドレス。tpalloc() 関数を使用して、出力バッファを割り当てておく必要があります。tpcall() から正常に制御が戻ったときに、応答メッセージにデータが含まれていないと、*data にゼロが設定されます。ポインタと出力バッファの内容は変更されません。要求メッセージと応答メッセージの両方に同じバッファを使用できます。その場合、odata には、入力バッファを割り当てたときに返されたポインタのアドレスを設定します。このパラメータが NULL を指している場合は、エラーになります。
len	応答データの長さを指すポインタ。このパラメータが NULL を指している場合は、エラーになります。
flags	フラグのオプション。論理演算子 OR を使用すると、複数のフラグをリストできます。この値にゼロを設定すると、デフォルトの方法で通信が行われます。有効なフラグとデフォルト値については、『BEA Tuxedo C リファレンス』の tpcall(3c) を参照してください。

引数

説明

tpacall() が返す呼び出し記述子を指すポインタ。

*data

応答を受信する出力バッファを指すポインタのアドレス。tpalloc() 関数を使用して、出力バッファを割り当てておく必要があります。tpcall() から正常に制御が戻ったときに、応答メッセージにデータが含まれていないと、*data にゼロが設定されます。ポインタと出力バッファの内容は変更されません。

要求メッセージと応答メッセージの両方に同じバッファを使用できます。その場合、odata には、入力バッファを割り当てたときに返されたポインタのアドレスを設定します。このパラメータが NULL を指している場合は、エラーになります。

len

応答データの長さを指すポインタ。このパラメータが NULL を指している場合は、エラーになります。

flags

フラグのオプション。論理演算子 OR を使用すると、複数のフラグをリストできます。この値にゼロを設定すると、デフォルトの方法で通信が行われます。有効なフラグとデフォルト値については、『BEA Tuxedo C リファレンス』の tpcall(3c) を参照してください。

引数	説明
prio	新しい優先順位を示す整数値。この引数の持つ意味は、flags パラメータによって異なります。flags にゼロが設定されている場合、prio は相対値を示し、値の符号は現在の優先順位を上げることまたは下げることを示します。ほかの値が設定されている場合、指定された値は絶対値を示し、prio には 0 ～ 100 の範囲の値を設定する必要があります。この範囲外の値を指定すると、値が自動的に 50 に設定されます。
flags	prio の値を相対値 (0) または絶対値 (TPABSOLUTE) のどちらの値として処理するのかを示すフラグ。デフォルトは相対値です。

引数

説明

prio

新しい優先順位を示す整数値。この引数の持つ意味は、flags パラメータによって異なります。flags にゼロが設定されている場合、prio は相対値を示し、値の符号は現在の優先順位を上げることまたは下げることを示します。ほかの値が設定されている場合、指定された値は絶対値を示し、prio には 0 ～ 100 の範囲の値を設定する必要があります。この範囲外の値を指定すると、値が自動的に 50 に設定されます。

flags

prio の値を相対値 (0) または絶対値 (TPABSOLUTE) のどちらの値として処理するのかを示すフラグ。デフォルトは相対値です。

/* WITHDRAWAL サービス呼び出しの優先順位を上げます。 */
if (tpsprio(PRIORITY, 0L) == -1)
(void)userlog("Unable to increase priority of withdraw¥n");

if (tpcall("WITHDRAWAL", (char *)reqfb,0, (char **)&reqfb, (long *)
¥
&reqlen,TPSIGRSTRT) == -1) {
(void)Fchg(transf, STATLIN, 0, "Cannot withdraw from debit account", ¥
(FLDLEN)0);
tpfree((char *)reqfb);
tpreturn(TPFAIL, 0,transb->data, 0L, 0);
}

#include <stdio.h>
#include "atmi.h"

main ()
{
int cd1, cd2; /* 呼び出し記述子 */
int pr1, pr2; /* 2 つの呼び出しに対する優先順位 */
char *buf1, *buf2; /* バッファ */
long buf1len, buf2len; /* バッファの長さ */

join application

if (buf1=tpalloc("FML", NULL, 0) == NULL)
error
if (buf2=tpalloc("FML", NULL, 0) == NULL)
error

populate FML buffers with send request

if ((cd1 = tpacall("service1", buf1, 0, 0)) == -1)
error
if ((pr1 = tpgprio()) == -1)
error
if ((cd2 = tpacall("service2", buf2, 0, 0)) == -1)
error

if ((pr2 = tpgprio()) == -1)¥
error

if (pr1 >= pr2) { /* 呼び出しの優先順位に基づいて、tpgetreply の順序を設定します。 */
if (tpgetrply(&cd1, &buf1, &buf1len, 0) == -1)
error
if (tpgetrply(&cd2, &buf2, &buf2len, 0) == -1)
error
}
else {
if (tpgetrply(&cd2, &buf2, &buf2len, 0) == -1)
error
if (tpgetrply(&cd1, &buf1, &buf1len, 0) == -1)
error
}
. . .
}