サーバのコーディング

tpsvrinit(argc, argv)
int argc;
char **argv;
{
int c;
extern char *optarg;
extern int optind;
.
.
.
while((c = getopt(argc, argv, "f:x:")) != EOF)
switch(c){
.
.
.
}
.
.
.
}

tpsvrinit()
{

/* データベースのオープン */

if (tpopen() == -1) {
(void)userlog("tpsvrinit:failed to open database:");
switch (tperrno) {
case TPESYSTEM:
(void)userlog("System error¥n");
break;
case TPEOS:
(void)userlog("Unix error %d¥n",Uunixerr);
break;
case TPEPROTO:
(void)userlog("Called in improper context¥n");
break;
case TPERMERR:
(void)userlog("RM failure¥n");
break;
}
return(-1); /* サーバの終了 */
}
return(0);
}

void
tpsvrdone()
{

/* データベースのクローズ */
if(tpclose() == -1)
(void)userlog("tpsvrdone:failed to close database: ");
switch (tperrno) {
case TPESYSTEM:
(void)userlog("BEA TUXEDO error¥n");
break;
case TPEOS:
(void)userlog("Unix error %d¥n",Uunixerr);
break;
case TPEPROTO:
(void)userlog("Called in improper context¥n");
break;
case TPERMERR:
(void)userlog("RM failure¥n");
break;
}
return;
}
return;
}

フィールド	説明
name	要求元プロセスがサービスの呼び出しに使用した名前。この名前は、サービス・ルーチンに対して指定されます。
flags	サービスがトランザクション・モードであるかどうか、または呼び出し元が応答を要求しているかどうかをサービスに通知するための値。サービスをトランザクション・モードにする方法については、グローバル・トランザクションのコーディングを参照してください。 TPTRAN フラグは、サービスがトランザクション・モードであることを示します。tpcall() または tpacall() の flags パラメータに TPNOTRAN を設定してサービスを呼び出した場合、サービスは現在のトランザクションに参加できません。ただし、トランザクション・モードでサービスを実行することはできます。つまり、呼び出し元によって TPNOTRAN 通信フラグが設定されていても、TPTRAN を svcinfo->flags に設定できます。このような状況の例については、グローバル・トランザクションのコーディングを参照してください。 tpacall() で TPNOREPLY 通信フラグが設定されてサービスが呼び出された場合、flags メンバは TPNOREPLY に設定されます。ただし、呼び出されたサービスが、呼び出し元プロセスと同じトランザクションに含まれる場合、呼び出し元に応答を返す必要があります。
data	main() 内で tpalloc() を使用して既に割り当てられているバッファを指すポインタ。このバッファは、要求メッセージの受信に使用されます。応答メッセージの返信や要求メッセージの転送にも、このバッファを使用することをお勧めします。
len	data フィールドによって参照されるバッファ内の要求データの長さ。
cd	会話型通信での接続記述子。
appkey	アプリケーションで使用するために予約された値。アプリケーション固有の認証が設計に含まれている場合、認証サーバによって認証の成功または失敗を示す値、およびクライアント認証キーが返される必要があります。認証サーバは、クライアントがアプリケーションに参加するときに呼び出されます。BEA Tuxedo システムは、appkey をクライアントのために保持し、このフィールドに格納して以降のサービス要求に情報を渡します。appkey がサービスに渡されたときは、クライアントの認証は終了しています。ただし、サービス内で appkey フィールドを使用して、サービスを呼び出したユーザ、またはそのユーザに関するそのほかのパラメータを識別できます。このフィールドが使用されていない場合、デフォルト値の -1 が割り当てられます。
cltid	クライアントの識別子が保持された CLIENTID 型の構造体。この構造体は変更できません。

フィールド

説明

name

要求元プロセスがサービスの呼び出しに使用した名前。この名前は、サービス・ルーチンに対して指定されます。

flags

サービスがトランザクション・モードであるかどうか、または呼び出し元が応答を要求しているかどうかをサービスに通知するための値。サービスをトランザクション・モードにする方法については、グローバル・トランザクションのコーディングを参照してください。

TPTRAN フラグは、サービスがトランザクション・モードであることを示します。tpcall() または tpacall() の flags パラメータに TPNOTRAN を設定してサービスを呼び出した場合、サービスは現在のトランザクションに参加できません。ただし、トランザクション・モードでサービスを実行することはできます。つまり、呼び出し元によって TPNOTRAN 通信フラグが設定されていても、TPTRAN を svcinfo->flags に設定できます。このような状況の例については、グローバル・トランザクションのコーディングを参照してください。

tpacall() で TPNOREPLY 通信フラグが設定されてサービスが呼び出された場合、flags メンバは TPNOREPLY に設定されます。ただし、呼び出されたサービスが、呼び出し元プロセスと同じトランザクションに含まれる場合、呼び出し元に応答を返す必要があります。

data

main() 内で tpalloc() を使用して既に割り当てられているバッファを指すポインタ。このバッファは、要求メッセージの受信に使用されます。応答メッセージの返信や要求メッセージの転送にも、このバッファを使用することをお勧めします。

len

data フィールドによって参照されるバッファ内の要求データの長さ。

会話型通信での接続記述子。

appkey

アプリケーションで使用するために予約された値。アプリケーション固有の認証が設計に含まれている場合、認証サーバによって認証の成功または失敗を示す値、およびクライアント認証キーが返される必要があります。認証サーバは、クライアントがアプリケーションに参加するときに呼び出されます。BEA Tuxedo システムは、appkey をクライアントのために保持し、このフィールドに格納して以降のサービス要求に情報を渡します。appkey がサービスに渡されたときは、クライアントの認証は終了しています。ただし、サービス内で appkey フィールドを使用して、サービスを呼び出したユーザ、またはそのユーザに関するそのほかのパラメータを識別できます。

このフィールドが使用されていない場合、デフォルト値の -1 が割り当てられます。

cltid

クライアントの識別子が保持された CLIENTID 型の構造体。この構造体は変更できません。

#include <stdio.h> /* UNIX */
#include <atmi.h> /* BEA Tuxedo システム */
#include <sqlcode.h> /* BEA Tuxedo システム */
#include "bank.flds.h" /* bankdb フィールド */
#include "aud.h" /* 銀行業務アプリケーションの VIEW 定義 */

EXEC SQL begin declare section;
static long branch_id; /* 支店番号 */
static float bal; /* 残高 */
EXEC SQL end declare section;

/*
* あるサイトの口座残高の合計を算出するサービス
*/

void
#ifdef __STDC__
ABAL(TPSVCINFO *transb)

#else

ABAL(transb)
TPSVCINFO *transb;
#endif

{
struct aud *transv; /* 復号化されたメッセージの VIEW */

/* tpsvcinfo データ・バッファへのポインタの設定 */

transv = (struct aud *)transb->data;

set the consistency level of the transaction

/* メッセージから支店番号を受け取り、照会を行います。 */

EXEC SQL declare acur cursor for
select SUM(BALANCE) from ACCOUNT;
EXEC SQL open acur; /* オープン */
EXEC SQL fetch acur into :bal; /* フェッチ */
if (SQLCODE != SQL_OK) { /* 何もありません。 */
(void)strcpy (transv->ermsg,"abal failed in sql aggregation");
EXEC SQL close acur;
tpreturn(TPFAIL, 0, transb->data, sizeof(struct aud), 0);
}
EXEC SQL close acur;
transv->balance = bal;
tpreturn (TPSUCCESS, 0, transb->data, sizeof(struct aud), 0);
}

#define TMTYPERR 1 /* tptypes が失敗したことを示す戻りコード */
#define INVALMTY 2 /* 無効なメッセージ・タイプであることを示す戻りコード */

void
ABAL(transb)

TPSVCINFO *transb;

{
struct aud *transv; /* VIEW メッセージ */
FBFR *transf; /* フィールド化バッファ・メッセージ */
int repc; /* tpgetrply の戻りコード */
char typ[TMTYPELEN+1], subtyp[TMSTYPELEN+1]; /* メッセージのタイプとサブタイプ */
char *retstr; /* tptypes が失敗した場合に返される文字列 */

/* 送信されたバッファ・タイプを確認します。 */
if (tptypes((char *)transb->data, typ, subtyp) == -1) {
retstr=tpalloc("STRING", NULL, 100);
(void)sprintf(retstr,
"Message garbled; tptypes cannot tell what type message¥n");
tpreturn(TPFAIL, TMTYPERR, retstr, 100, 0);
}
/* タイプに基づいてサービス要求を処理する方法を決定します。 */
if (strcmp(typ, "FML") == 0) {
transf = (FBFR *)transb->data;
... フィールド化バッファのための abal サービスを実行するコード...
tpreturn が成功し、応答として FML バッファを送信します。
}
else if (strcmp(typ, "VIEW") == 0 && strcmp(subtyp, "aud") == 0) {
transv = (struct aud *)transb->data;
... aud 構造体のための abal サービスを実行するコード ...
tpreturn の実行が成功し、応答として aud VIEW バッファを送信します。
}
else {
retstr=tpalloc("STRING", NULL, 100);
(void)sprintf(retstr,
"Message garbled; is neither FML buffer nor aud view¥n");
tpreturn(TPFAIL, INVALMTY, retstr, 100, 0);
}
}

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

char *roundrobin();

PRINTER(pbuf)

TPSVCINFO *pbuf; /* 印刷バッファ */

{
char prname[20], ocmd[30]; /* プリンタ名、出力コマンド */
long rlen; /* 応答バッファの長さ */
int prio; /* 要求の優先順位 */
FILE *lp_pipe; /* パイプ・ファイルへのポインタ */

prio=tpgprio();
if (prio <= 20)
(void)strcpy(prname,"bigjobs"); /* 優先順位の低い (冗長的) ジョブを
大型コンピュータの中央
レーザ・プリンタに送信します。そこで
出力をソートし、
bin に保存します。 */
else if (prio <= 60)
(void)strcpy(prname,roundrobin()); /* ローカルの小型レーザ・プリンタの 1 つに
プリンタを順に割り当てます。
そのプリンタで直ちに出力されます。
プリンタの
リストに従って、roundrobin() が
実行されます。 */
else
(void)strcpy(prname,"hispeed");
/* ジョブを高速レーザ・
プリンタに割り当てます。
冗長出力を毎日行う人のために
予約されています。 */

(void)sprintf(ocmd, "lp -d%s", prname); /* lp(1) 出力コマンド */
lp_pipe = popen(ocmd, "w"); /* コマンドへのパイプの作成 */
(void)fprintf(lp_pipe, "%s", pbuf->data); /* 出力の印刷 */
(void)pclose(lp_pipe); /* パイプのクローズ */

if ((pbuf->flags & TPNOREPLY))
tpreturn(TPSUCCESS, 0, NULL, 0, 0);
rlen = strlen(prname) + 1;
pbuf->data = tprealloc(pbuf->data, rlen); /* 名前のために十分な領域を確保します。 */
(void)strcpy(pbuf->data, prname);
tpreturn(TPSUCCESS, 0, pbuf->data, rlen, 0);

char *
roundrobin()

{
static char *printers[] = {"printer1", "printer2", "printer3", "printer4"};
static int p = 0;

if (p > 3)
p=0;
return(printers[p++]);
}

引数	説明
rval	サービスが正常に終了したかどうかをアプリケーション・レベルで示す値。この値は、シンボリック名で表される整数値です。有効な設定は、次のとおりです。 TPSUCCESS－関数呼び出しが成功したことを示します。関数は、応答メッセージを呼び出し元のバッファに格納します。つまり、応答メッセージがある場合は、呼び出し元のバッファ内にあります。 TPFAIL (デフォルト)－サービスが失敗したことを示します。関数は、応答を待つクライアント・プロセスにエラー・メッセージを通知します。その場合、クライアントが呼び出した tpcall() または tpgetrply() 関数が失敗し、変数 tperrno(5) にアプリケーション定義の失敗を示す TPESVCFAIL が設定されます。応答メッセージが要求されている場合、呼び出し元のバッファから取得できます。 TPEXIT－サービスが失敗したことを示します。関数は、応答を待つクライアント・プロセスにエラー・メッセージを通知して終了します。この引数の値がグローバル・トランザクションに与える影響については、グローバル・トランザクションのコーディングを参照してください。
rcode	アプリケーション定義の戻りコードを呼び出し元に返します。クライアントは、グローバル変数 tpurcode(5) を照会して、rcode に返された値にアクセスできます。成功または失敗に関係なく、このコードは関数から返されます。
data	クライアント・プロセスに返される応答メッセージを指すポインタ。メッセージ・バッファは、tpalloc() を使用して既に割り当てられていることが必要です。 SVCINFO 構造体のサービスに渡されたバッファと同じものを使用する場合は、バッファの割り当ておよび解放について意識する必要はありません。この 2 つの処理は、システムで提供される main() 関数で行われます。このバッファは、tpfree() コマンドを使用しても解放できません。このコマンドを使ってバッファの解放を試みると失敗します。tprealloc() 関数を使用すると、バッファのサイズを変更できます。サービス・ルーチンに渡されたバッファとは別のバッファを使ってメッセージを返す場合、自分でそのバッファを割り当てる必要があります。アプリケーション側で tpreturn() 関数が呼び出されると、バッファは自動的に解放されます。応答メッセージを返す必要がない場合は、この引数に NULL ポインタを設定します。注記クライアントに応答を返す必要がない場合、つまり TPNOREPLY が設定されている場合、tpreturn() 関数は data と len 引数を無視して main() に制御を戻します。
len	応答バッファの長さ。アプリケーションはこの引数の値に、tpcall() 関数の olen パラメータ、または tpgetrply() 関数の len パラメータを使用してアクセスできます。クライアントとして動作するプロセスは、この戻り値を使用して、応答バッファのサイズが大きくなったかどうか調べることができます。クライアントが応答を要求していて応答バッファにデータが存在していない場合、つまり data 引数に NULL ポインタが設定されている場合、クライアントのバッファを変更せずに長さがゼロの応答が返されます。 data 引数が指定されていない場合、この引数の値は無視されます。
flag	現在使用されていません。

#include <stdio.h> /* UNIX */
#include <string.h> /* UNIX */
#include "fml.h" /* BEA Tuxedo システム */
#include "atmi.h" /* BEA Tuxedo システム */
#include "Usysflds.h" /* BEA Tuxedo システム */
#include "userlog.h" /* BEA Tuxedo システム */
#include "bank.h" /* 銀行業務アプリケーションのマクロ定義 */
#include "bank.flds.h" /* bankdb フィールド */

/*
* 振替元口座から振替先口座に
* 振り替えるサービス
*/

void
#ifdef __STDC__
TRANSFER(TPSVCINFO *transb)

#else

TRANSFER(transb)
TPSVCINFO *transb;
#endif

{
FBFR *transf; /* 復号化されたメッセージのフィールド化バッファ */
long db_id, cr_id; /* 振替元口座と振替先口座の番号 */
float db_bal, cr_bal; /* 振替元口座と振替先口座の残高 */
float tamt; /* 振替額 */
FBFR *reqfb; /* 要求メッセージ用のフィールド化バッファ */
int reqlen; /* フィールド化バッファの長さ */
char t_amts[BALSTR]; /* 振替額を表す文字列 */
char db_amts[BALSTR]; /* 振替元の口座残高を表す文字列 */
char cr_amts[BALSTR]; /* 振替先の口座残高を示す文字列 */

/* tpsvcinfo データ・バッファを指すポインタを設定します。 */
transf = (FBFR *)transb->data;

/* 振替元と振替先の口座番号を取得します。 */

/* 振替元の口座番号が有効かどうかを確認します。 */
if (((db_id = Fvall(transf, ACCOUNT_ID, 0)) < MINACCT) || (db_id > MAXACCT)) {
(void)Fchg(transf, STATLIN, 0,"Invalid debit account number",(FLDLEN)0);
tpreturn(TPFAIL, 0, transb->data, 0L, 0);
}
/* 振替先の口座番号が有効かどうかを確認します。 */
if ((cr_id = Fvall(transf, ACCOUNT_ID, 1)) < MINACCT || cr_id > MAXACCT) {
(void)Fchg(transf,STATLIN, 0,"Invalid credit account number",(FLDLEN)0);
tpreturn(TPFAIL, 0, transb->data, 0L, 0);
}

/* 振替金額 (払い戻し金額) を取得します。 */
if (Fget(transf, SAMOUNT, 0, t_amts, < 0) 0 || strcmp(t_amts,"") == 0) {
(void)Fchg(transf, STATLIN, 0, "Invalid amount",(FLDLEN)0);
tpreturn(TPFAIL, 0, transb->data, 0L, 0);
}
(void)sscanf(t_amts,"%f",tamt);

/* 振替金額が妥当かどうかを確認します。 */
if (tamt = 0.0) {
(void)Fchg(transf, STATLIN, 0,
"Transfer amount must be greater than $0.00",(FLDLEN)0);
tpreturn(TPFAIL, 0, transb->data, 0L, 0);
}

/* 引出要求バッファを作成します。 */
if ((reqfb = (FBFR *)tpalloc("FML",NULL,transb->len)) == (FBFR *)NULL) {
(void)userlog("tpalloc failed in transfer¥n");
(void)Fchg(transf, STATLIN, 0,

"unable to allocate request buffer", (FLDLEN)0);
tpreturn(TPFAIL, 0, transb->data, 0L, 0);
}
reqlen = Fsizeof(reqfb);

/* 要求バッファに口座番号を格納します。 */
(void)Fchg(reqfb,ACCOUNT_ID,0,(char *)&db_id, (FLDLEN)0);

/* 要求バッファに振替金額を格納します。 */
(void)Fchg(reqfb,SAMOUNT,0,t_amts, (FLDLEN)0);

/* 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);
}

/* 応答バッファから振替元口座の残高を取得します。 */

(void)strcpy(db_amts, Fvals((FBFR *)reqfb,SBALANCE,0));
void)sscanf(db_amts,"%f",db_bal);
if ((db_amts == NULL) || (db_bal < 0.0)) {
(void)Fchg(transf, STATLIN, 0,
"illegal debit account balance", (FLDLEN)0);
tpfree((char *)reqfb);
tpreturn(TPFAIL, 0, transb->data, 0L, 0);
}

/* 要求バッファに振替先の口座番号を格納します。 */
(void)Fchg(reqfb,ACCOUNT_ID,0,(char *)&cr_id, (FLDLEN)0);

/* 要求バッファに振替金額を格納します。 */
(void)Fchg(reqfb,SAMOUNT,0,t_amts, (FLDLEN)0);

/* 振替 (預入) の関数の呼び出しの優先順位を上げます。 */
if (tpsprio(PRIORITY, 0L) == -1)
(void)userlog("Unable to increase priority of deposit¥n");

/* 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);
tpreturn(TPFAIL, 0,transb->data, 0L, 0);
}

/* 応答バッファから振替先口座の残高を取得します。 */

(void)strcpy(cr_amts, Fvals((FBFR *)reqfb,SBALANCE,0));
(void)sscanf(cr_amts,"%f",&cr_bal);
if ((cr_amts == NULL) || (cr_bal 0.0)) {
(void)Fchg(transf, STATLIN, 0,
"Illegal credit account balance", (FLDLEN)0);
tpreturn(TPFAIL, 0, transb->data, 0L, 0);
}

/* 振替の成功を示す値を格納する応答バッファを設定します。 */
(void)Fchg(transf, FORMNAM, 0, "CTRANSFER", (FLDLEN)0);
(void)Fchg(transf, SAMOUNT, 0, Fvals(reqfb,SAMOUNT,0), (FLDLEN)0);
(void)Fchg(transf, STATLIN, 0, "", (FLDLEN)0);
(void)Fchg(transf, SBALANCE, 0, db_amts, (FLDLEN)0);
(void)Fchg(transf, SBALANCE, 1, cr_amts, (FLDLEN)0);
tpfree((char *)reqfb);
tpreturn(TPSUCCESS, 0,transb->data, 0L, 0);
}

int cd1;
.
.
.
if ((cd1=tpacall(sname, (char *)audv, sizeof(struct aud),
TPNOTRAN)) == -1) {
.
.
.
}
if (tpgetrply(cd1, (char **)&audv,&audrl, 0) == -1) {
if (tperrno == TPETIME) {
tpcancel(cd1);
.
.
.
}
}
tpreturn(TPSUCCESS, 0,NULL, 0L, 0);

引数	説明
svc	要求が転送されるサービス名を指す文字型のポインタ。
data	クライアント・プロセスに返される応答メッセージを指すポインタ。メッセージ・バッファは、tpalloc() を使用して事前に割り当てられていることが必要です。 SVCINFO 構造体のサービスに渡されたバッファと同じものを使用する場合は、バッファの割り当ておよび解放について意識する必要はありません。この 2 つの処理は、システムで提供される main() 関数で行われます。このバッファは、tpfree() コマンドを使用しても解放できません。このコマンドを使ってバッファの解放を試みると失敗します。tprealloc() 関数を使用すると、バッファのサイズを変更できます。サービス・ルーチンに渡されたバッファとは別のバッファを使ってメッセージを返す場合、自分でそのバッファを割り当てる必要があります。アプリケーション側で tpreturn() 関数が呼び出されると、バッファは自動的に解放されます。応答メッセージを返す必要がない場合は、この引数に NULL ポインタを設定します。注記クライアントに応答を返す必要がない場合、つまり TPNOREPLY が設定されている場合、tpreturn() 関数は data と len 引数を無視して main() に制御を戻します。
len	応答バッファの長さ。アプリケーションはこの引数の値に、tpcall() 関数の olen パラメータ、または tpgetrply() 関数の len パラメータを使用してアクセスできます。クライアントとして動作するプロセスは、この戻り値を使用して、応答バッファのサイズが大きくなったかどうか調べることができます。クライアントが応答を要求していて応答バッファにデータが存在していない場合、つまり data 引数に NULL ポインタが設定されている場合、クライアントのバッファを変更せずに長さがゼロの応答が返されます。 data 引数が指定されていない場合、この引数の値は無視されます。
flag	現在使用されていません。

引数

説明

svc

要求が転送されるサービス名を指す文字型のポインタ。

data

クライアント・プロセスに返される応答メッセージを指すポインタ。メッセージ・バッファは、tpalloc() を使用して事前に割り当てられていることが必要です。

SVCINFO 構造体のサービスに渡されたバッファと同じものを使用する場合は、バッファの割り当ておよび解放について意識する必要はありません。この 2 つの処理は、システムで提供される main() 関数で行われます。このバッファは、tpfree() コマンドを使用しても解放できません。このコマンドを使ってバッファの解放を試みると失敗します。tprealloc() 関数を使用すると、バッファのサイズを変更できます。

サービス・ルーチンに渡されたバッファとは別のバッファを使ってメッセージを返す場合、自分でそのバッファを割り当てる必要があります。アプリケーション側で tpreturn() 関数が呼び出されると、バッファは自動的に解放されます。

応答メッセージを返す必要がない場合は、この引数に NULL ポインタを設定します。

注記クライアントに応答を返す必要がない場合、つまり TPNOREPLY が設定されている場合、tpreturn() 関数は data と len 引数を無視して main() に制御を戻します。

len

応答バッファの長さ。アプリケーションはこの引数の値に、tpcall() 関数の olen パラメータ、または tpgetrply() 関数の len パラメータを使用してアクセスできます。

クライアントとして動作するプロセスは、この戻り値を使用して、応答バッファのサイズが大きくなったかどうか調べることができます。

クライアントが応答を要求していて応答バッファにデータが存在していない場合、つまり data 引数に NULL ポインタが設定されている場合、クライアントのバッファを変更せずに長さがゼロの応答が返されます。

data 引数が指定されていない場合、この引数の値は無視されます。

flag

現在使用されていません。

...
/* tpsvcinfo データ・バッファへのポインタを設定します。 */
transf = (FBFR *)transb->data;
...
/* account に新規口座レコードを挿入します。 */
account_id = ++last_acct; /* 新規口座番号を取得します。 */
tlr_bal = 0.0; /* 一時的に残高をゼロにします。 */
EXEC SQL insert into ACCOUNT (ACCOUNT_ID, BRANCH_ID, BALANCE,
ACCT_TYPE, LAST_NAME, FIRST_NAME, MID_INIT, ADDRESS, PHONE) values
(:account_id, :branch_id, :tlr_bal, :acct_type, :last_name,
:first_name, :mid_init, :address, :phone);
if (SQLCODE != SQL_OK) { /* レコードの挿入が失敗しました。 */
(void)Fchg(transf, STATLIN, 0,
"Cannot update ACCOUNT", (FLDLEN)0);
tpreturn(TPFAIL, 0, transb->data, 0L, 0);
}

/* 新規 last_acct で支店レコードを更新します。 */

EXEC SQL update BRANCH set LAST_ACCT = :last_acct where BRANCH_ID = :branch_id;
if (SQLCODE != SQL_OK) { /* レコードの更新が失敗しました。 */
(void)Fchg(transf, STATLIN, 0,
"Cannot update BRANCH", (FLDLEN)0);
tpreturn(TPFAIL, 0, transb->data, 0L, 0);
}
/* 振替 (預金) の関数の呼び出しの優先順位を上げます。 */
if (tpsprio(PRIORITY, 0L) == -1)
(void)userlog("Unable to increase priority of deposit\n");

/* tpforward を使用して同じバッファを預金サービスに転送し、最初の残高を設定します。 */
tpforward("DEPOSIT", transb->data, 0L, 0);

引数	説明
svcname	宣言するサービス名を指すポインタ。サービス名は 15 文字以下の文字列で指定します。15 文字を超える名前は切り捨てられます。NULL 文字列は指定できません。NULL 文字列が指定されると、エラー (TPEINVAL) になります。
func	サービスを実行するために呼び出される BEA Tuxedo システム関数のアドレスを指すポインタ。通常、この名前とサービス名は同じです。NULL 文字列は指定できません。NULL 文字列が指定されると、エラーになります。

引数

説明

svcname

宣言するサービス名を指すポインタ。サービス名は 15 文字以下の文字列で指定します。15 文字を超える名前は切り捨てられます。NULL 文字列は指定できません。NULL 文字列が指定されると、エラー (TPEINVAL) になります。

func

サービスを実行するために呼び出される BEA Tuxedo システム関数のアドレスを指すポインタ。通常、この名前とサービス名は同じです。NULL 文字列は指定できません。NULL 文字列が指定されると、エラーになります。

引数	説明
svcname	宣言するサービス名を指すポインタ。サービス名は 15 文字以下の文字列で指定します。15 文字を超える名前は切り捨てられます。NULL 文字列は指定できません。NULL 文字列が指定されると、エラー (TPEINVAL) になります。

引数

説明

svcname

extern void tlr_funcs()
.
.
.
if (tpadvertise("DEPOSIT", (tlr_funcs)(TPSVCINFO *)) == -1)
check for errors;
if (tpadvertise("WITHDRAW", (tlr_funcs)(TPSVCINFO *)) == -1)
check for errors;
if (tpunadvertise("TLR_INIT") == -1)
check for errors;
tpreturn(TPSUCCESS, 0, transb->data,0L, 0);

オプション . .	説明 . .
-o filename	実行可能な出力ファイル名。デフォルト値は a.out です。
-f filenames	BEA Tuxedo システム・ライブラリより先にリンクされるファイルのリスト。-f オプションは複数回指定できます。また、各 -f オプションに複数のファイル名を指定することもできます。C プログラム・ファイル (file.c) を指定すると、リンクされる前にコンパイルが行われます。ほかのオブジェクト・ファイル (file.o) を個別に、またはアーカイブ・ファイル (file.a) にまとめて指定することもできます。
-l filenames	Tuxedo システム・ライブラリの後でリンクされるファイルのリスト。-l オプションは複数回指定できます。また、各 -l に複数のファイル名を指定できます。C プログラム・ファイル (file.c) を指定すると、リンクされる前にコンパイルが行われます。ほかのオブジェクト・ファイル (file.o) を個別に、またはアーカイブ・ファイル (file.a) にまとめて指定することもできます。
-r rmname	実行可能サーバにリンクされるリソース・マネージャのアクセス・ライブラリのリスト。アプリケーション管理者は、buildtms(1) コマンドを使用して、すべての有効なリソース・マネージャ情報を $TUXDIR/updataobj/RM ファイルに事前に定義しておく必要があります。リソース・マネージャは 1 つしか指定できません。詳細については、『BEA Tuxedo アプリケーションの設定』を参照してください。
-s [service:]function	サーバに提供されるサービス名、および各サービスを実行する関数名。-s オプションは複数回指定できます。また、各 -s に複数のサービスを指定できます。サーバは指定されたサービス名を使用して、クライアントにサービスを宣言します。通常、サービスとそのサービスを実行する関数には同じ名前を割り当てます。ただし、別の名前を指定することもできます。名前の割り当てには、service:function という構文を使用します。
-t	サーバがスレッドセーフな方法でコーディングされており、コンフィギュレーション・ファイルでマルチスレッドとして指定されている場合は、マルチスレッドとして起動することを示す値。

オプション . .

説明 . .

-o filename

実行可能な出力ファイル名。デフォルト値は a.out です。

-f filenames

BEA Tuxedo システム・ライブラリより先にリンクされるファイルのリスト。-f オプションは複数回指定できます。また、各 -f オプションに複数のファイル名を指定することもできます。C プログラム・ファイル (file.c) を指定すると、リンクされる前にコンパイルが行われます。ほかのオブジェクト・ファイル (file.o) を個別に、またはアーカイブ・ファイル (file.a) にまとめて指定することもできます。

-l filenames

Tuxedo システム・ライブラリの後でリンクされるファイルのリスト。-l オプションは複数回指定できます。また、各 -l に複数のファイル名を指定できます。C プログラム・ファイル (file.c) を指定すると、リンクされる前にコンパイルが行われます。ほかのオブジェクト・ファイル (file.o) を個別に、またはアーカイブ・ファイル (file.a) にまとめて指定することもできます。

-r rmname

実行可能サーバにリンクされるリソース・マネージャのアクセス・ライブラリのリスト。アプリケーション管理者は、buildtms(1) コマンドを使用して、すべての有効なリソース・マネージャ情報を $TUXDIR/updataobj/RM ファイルに事前に定義しておく必要があります。リソース・マネージャは 1 つしか指定できません。詳細については、『BEA Tuxedo アプリケーションの設定』を参照してください。

-s [service:]function

サーバに提供されるサービス名、および各サービスを実行する関数名。-s オプションは複数回指定できます。また、各 -s に複数のサービスを指定できます。サーバは指定されたサービス名を使用して、クライアントにサービスを宣言します。

通常、サービスとそのサービスを実行する関数には同じ名前を割り当てます。ただし、別の名前を指定することもできます。名前の割り当てには、service:function という構文を使用します。

-t

サーバがスレッドセーフな方法でコーディングされており、コンフィギュレーション・ファイルでマルチスレッドとして指定されている場合は、マルチスレッドとして起動することを示す値。