Windows 2000 プラットフォーム上での bankapp と Oracle 8 (XA 準拠の RM) の統合


	BEA ホーム \| イベント \| ソリューション \| パートナ \| 製品 \| サービス \| ダウンロード \| ディベロッパ・センタ \| WebSUPPORT
	e-docs \| サイトマップ \| 検索 \| PDF版 \| お問い合わせ \| 用語集

Tuxedo ホーム \| サンプルを使用した BEA Tuxedo アプリケーションの開発方法 \| 先頭へ \| 前へ \| 次へ \| 目次

nt¥bankvar.cmd を編集し、次の環境変数に適切な値を指定します。

TUXDIR: BEA TUXEDO システムのインストール先のルート・ディレクトリ

APPDIR: bankapp ファイルが置かれたアプリケーション・ディレクトリ

ORACLE_HOME: Oracle8 のインストール先のルート・ディレクトリ

ORACLE_SID: Oracle システム ID

BLK_SIZE: 論理ブロック・サイズ

DBNAME: データベース・ユーティリティおよびデータベース作成スクリプトによって使用されるデータベースのデフォルト名

DBPRIVATE: データベースを共用モードで開くか、またはプライベート・モードで開くかを指定 (yes または no)

FSCONFIG: データベースの汎用デバイス・リスト

PATH=%TUXDIR%¥bin;%TUXDIR%¥include;%TUXDIR%¥lib;%ORACLE_HOME%¥bin;%PATH%

INCLUDE=%ORACLE_HOME%¥rdbms80¥xa; %ORACLE_HOME%¥pro80¥c¥include;%include%

NLSPATH=%TUXDIR%¥locale¥C

PLATFORM=inwnt40

LIB=%TUXDIR%¥lib; %ORACLE_HOME%¥pro80¥lib¥msvc; %ORACLE_HOME%¥rdbms80¥xa; %lib%;

スクリプトを実行して、環境変数を設定します。
```
>bankvar
```
次のように、TUXDIR¥udataobj¥RM ファイルを編集します。
- $TUXDIR¥udataobj¥RM ファイルに次の行を追加します。
```
Oracle_XA;xaosw;%ORACLE_HOME%¥pro80¥lib¥msvc¥sqllib80.lib %ORACLE_HOME%¥RDBMS80¥XA¥xa80.lib
```
  Oracle がネットワーク上にある場合は、次のように編集します。
- マシンをドライブ (たとえば F ドライブ) にマップします。
- $TUXDIR¥udataobj¥RM ファイルに次の行を追加します。
```
Oracle_XA;xaosw;f:¥orant¥pro80¥lib¥msvc¥sqllib80.lib f:¥orant¥RDBMS80¥XA¥xa80.lib
```
- RM ファイルで、Oracle_XA の以前のエントリを削除します。
Oracle8 のトランザクション・マネージャ・サーバをビルドします。
```
cd $APPDIR
buildtms -r Oracle_XA -o TMS_ORA
```

次の表に従って、nt¥bankapp.mak ファイルを編集します。

作業

値

次の環境変数を指定します。

TUXDIR=BEA Tuxedo システムのインストール先のルート・ディレクトリ

APPDIR=bankapp ファイルが置かれたアプリケーション・ディレクトリ

RM=Oracle_XA

ORACLE_LIBS=$(ORACLE_HOME)¥PRO80¥LIB

RMNAME=Oracle_XA

SQLPUBLIC=$(ORACLE_HOME)¥PRO80¥C¥INCLUDE

CFLAGS=$(HOST) -DNOWHAT=1 $(CGFLAGS) $(DFML32)

CGFLAGS=-DWIN32 -W3 -MD -nologo

ORACLE_DIR=$(ORACLE_HOME)¥bin

INCDIR=$(TUXDIR)¥include

CC=cl

.ec.c セクションで、埋め込み型の SQL プログラムから C プログラムを作成する場合の規則を編集し、proc コンパイラを使用して次の値を設定します。

set TUXDIR=$(TUXDIR) & $(ORACLE_DIR)¥proc80 mode=ansi release_cursor=yes
include=$(SQLPUBLIC) include=$(INCDIR) $(SQL_PLATFORM_INC) -c iname=$*.ec

.c.obj セクションで、C プログラムからオブジェクト・ファイルを作成する場合の規則を編集し、次の値を設定します。

$(CC) -c $(CFLAGS) $(SQLPUBLIC) $(INCLUDE) $*.c

*.ec ファイルを更新します。Oracle SQL コマンドを使用します。

作業	値
次の環境変数を指定します。	TUXDIR=BEA Tuxedo システムのインストール先のルート・ディレクトリ
	APPDIR=bankapp ファイルが置かれたアプリケーション・ディレクトリ
	RM=Oracle_XA
	ORACLE_LIBS=$(ORACLE_HOME)¥PRO80¥LIB
	RMNAME=Oracle_XA
	SQLPUBLIC=$(ORACLE_HOME)¥PRO80¥C¥INCLUDE
	CFLAGS=$(HOST) -DNOWHAT=1 $(CGFLAGS) $(DFML32)
	CGFLAGS=-DWIN32 -W3 -MD -nologo
	ORACLE_DIR=$(ORACLE_HOME)¥bin
	INCDIR=$(TUXDIR)¥include
	CC=cl
.ec.c セクションで、埋め込み型の SQL プログラムから C プログラムを作成する場合の規則を編集し、proc コンパイラを使用して次の値を設定します。	set TUXDIR=$(TUXDIR) & $(ORACLE_DIR)¥proc80 mode=ansi release_cursor=yes include=$(SQLPUBLIC) include=$(INCDIR) $(SQL_PLATFORM_INC) -c iname=$*.ec
.c.obj セクションで、C プログラムからオブジェクト・ファイルを作成する場合の規則を編集し、次の値を設定します。	$(CC) -c $(CFLAGS) $(SQLPUBLIC) $(INCLUDE) $*.c

makefile を実行します。

copy nt¥bankapp.mak to %APPDIR%
nmake -f bankapp.mak

次のように、nt¥ubbshm を編集します。

USER_ID=0
GROUP_ID=0
UNAME_SITE1=ホスト名で返されるノード名
TUXDIR=bankvar で指定された値
APPDIR=bankvar で指定された値

次のように、コンフィギュレーション・ファイルの GROUPS セクションを変更します。

TMSNAME=TMS_ORA
BANKB1 	GRPNO=1         OPENINFO="Oracle_XA:Oracle_XA+Acc=P/user1/PaSsWd1+SesTm=0+LogDir=."
[
Oracle_XA +
 required fields:
 Acc=P/oracle_user_id/oracle_password +
 SesTm=Session_time_limit (maximum time a transaction can be inactive) +
 optional fields:
 LogDir=logdir (where XA library trace file is located) +
 MaxCur=maximum_#_of_open cursors +
 SqlNet=connect_string (if Oracle exists over the network)
 (eg. SqlNet=hqfin@NEWDB indicates the database with sid=NEWDB accessed at host hqfin by TCP/IP)
]
BANKB2 	GRPNO=2
	OPENINFO="Oracle_XA:Oracle_XA+Acc=P/user2/PaSsWd2+SesTm=0+LogDir=."
BANKB3 	GRPNO=3
OPENINFO="Oracle_XA:Oracle_XA+Acc=P/user3/PaSsWd3+SesTm=0+LogDir=."

バイナリ形式の BEA Tuxedo コンフィギュレーション・ファイルを作成します。
```
tmloadcf -y nt/ubbshm
```
マスタ・マシン上にデバイス・リストと TLOG デバイスを作成します。
```
crtlog -m
```
Oracle データベース・インスタンスが起動されていない場合は起動します。
BEA Tuxedo システム・サーバを起動します。
```
tmboot -y
```
v$XATRANS$ ビューがデータベースにあることを確認します。V$XATRANS$ ビューは、XA ライブラリのインストール時に作成されます。
v$XATRANS$ ビューが作成されていない場合は、次のように作成します。
- 環境変数 ORACLE_HOME および ORACLE_SID が設定されていることを確認します。
- SYS としてデータベースにログインします。
```
Execute the sql script ${ORACLE_HOME}/RDBMS80/ADMIN/XAVIEW.sql
```
- XA ライブラリを使用するすべての Oracle アカウント・アプリケーションのビューに対する SELECT 権限を認めます。

bankapp データベースと Oracle RM のデータベース・オブジェクトを作成します。

Oracle ユーティリティ SQL*plus または SQL*DBA に、任意の Oracle ユーザとしてログインします。
notepad crbank-ora8.sql
Oracle 8 のインストール時にサンプル・データベースが作成されます。bankapp アプリケーションでこのデータベースを使用できます。sql スクリプトによってデータベース内に新しいテーブル・スペースが作成され、bankapp のすべてのデータベース・オブジェクトを格納できます。新しいテーブル・スペースを使用するには、Oracle システム・ユーザ・パスワードとファイルの絶対パス名を入力する必要があります。

次のように、crbank-ora8.sql を編集します。

WHENEVER OSERROR EXIT ;
/*システムのユーザのパスワードを取得します。 */
PROMPT
PROMPT
PROMPT -- Some of the operations require "system" user privileges
PROMPT -- Please specify the Oracle "system" user password
PROMPT
ACCEPT syspw CHAR PROMPT 'system passwd:'HIDE ;
CONNECT system/&syspw ;
SHOW user ;
PROMPT
/*デフォルトのデータベースに、「bankapp」で使用する新しいテーブル・スペースを作成します。*/
DROP TABLESPACE bank1
    INCLUDING CONTENTS
CASCADE CONSTRAINTS;
PROMPT
PROMPT
PROMPT -- Will create a 3MB tablespace for bankapp ;
PROMPT -------- Please specify full pathname below for Datafile ;
PROMPT -------- Ex:%ORACLE_HOME%/dbs/bankapp.dbf
PROMPT
ACCEPT datafile CHAR PROMPT 'Datafile:' ;

CREATE TABLESPACE bank1
    DATAFILE '&datafile'  SIZE 3M REUSE
    DEFAULT STORAGE (INITIAL 10K   NEXT 50K
            MINEXTENTS 1           MAXEXTENTS 120
            PCTINCREASE 5)
    ONLINE;

/************* 「user1」というユーザを作成します。 ***************/

DROP USER user1 CASCADE;

PROMPT Creating user "user1"

CREATE USER user1 IDENTIFIED by PaSsWd1
    DEFAULT TABLESPACE bank1
    QUOTA UNLIMITED ON bank1 ;

GRANT CREATE SESSION TO user1 ;
GRANT CREATE TABLE TO user1 ;

CONNECT user1/PaSsWd1 ;
SHOW user ;

PROMPT Creating database objects for user "user1" ;
PROMPT Creating table "branch" ;

    CREATE TABLE branch (
          branch_id       NUMBER NOT NULL PRIMARY KEY,
          balance         NUMBER,
          last_acct       NUMBER,
          last_teller     NUMBER,
          phoneCHAR(14),
          address         CHAR(60)

 )
          STORAGE         (INITIAL 5K   NEXT 2K
                          MINEXTENTS 1  MAXEXTENTS 5    PCTINCREASE 5) ;
PROMPT Creating table "account" ;

    CREATE TABLE account (
          account_id      NUMBER NOT NULL PRIMARY KEY,
          branch_id       NUMBER NOT NULL,
          ssn             CHAR(12) NOT NULL,
          balance         NUMBER,
          acct_type       CHAR,
          last_name       CHAR(20),
          first_name      CHAR(20),
          mid_init        CHAR,
          phoneCHAR(14),
          address         CHAR(60)

 )
          STORAGE         (INITIAL 50K   NEXT 25K
                          MINEXTENTS 1  MAXEXTENTS 50   PCTINCREASE 5) ;

PROMPT Creating table "teller" ;
     CREATE TABLE teller (
          teller_id       NUMBER NOT NULL PRIMARY KEY,
          branch_id       NUMBER NOT NULL,
          balance         NUMBER,
          last_name       CHAR(20),
          first_name      CHAR(20),
          mid_init        CHAR
 )
          STORAGE         (INITIAL 5K   NEXT 2K
                          MINEXTENTS 1  MAXEXTENTS 5     PCTINCREASE 5) ;
PROMPT Creating table "history" ;
    CREATE TABLE history (
          account_id      NUMBER NOT NULL,
          teller_id       NUMBER NOT NULL,
          branch_id       NUMBER NOT NULL,
          amount          NUMBER

 )
          STORAGE         (INITIAL 400K   NEXT 200K
                          MINEXTENTS 1  MAXEXTENTS 5     PCTINCREASE 5) ;

前述の手順に従って、パスワードが PaSsWd2 である user2、およびパスワードが PaSsWd3 である user3 を作成します。
```
SQL*plus> start $APPDIR/ crbank-ora8.sql
```
データベースにデータを追加します。
```
nt¥populate
```
データベースに対してトランザクションを生成します。
```
driver
```
bankapp クライアントを実行します。
```
run
```
アプリケーションをシャットダウンします。
```
tmshutdown -y
```