ART IMSによるZ/IMSでのトランザクションの呼出し

状況によっては、メイン・トランザクションがLinux上のART/IMSに移行されても、一部のサブトランザクションが、z/OS上に存在する他のメイン・トランザクションによって共有されているために、引き続きz/OS上に存在することがあります。この解決策は、代替PCB (これ以降ALTPCBと呼ぶ)を使用するなど、コードを変更することなく、ART/IMSのアプリケーションがz/OS上のサブトランザクションを起動できるようにすることを目的としています。

3270端末からARTIMSによって、またはARTIGWを介してTuxedoクライアントによって提供されるオンライン・トランザクション(これ以降メイン・トランザクションと呼ぶ)を呼び出すことができます。メイン・トランザクションがz/OS上のサブトランザクションを呼び出すようにするには、後ほど詳しく説明しますが、次のステップを実行する必要があります。

•	ステップ1: Z/OS上のサブトランザクションの構成

•	ステップ2: TMA SNA for IMSの構成とデプロイ

•	ステップ3: サブトランザクションのバッファ・コンバータ・プログラムの生成。

ステップ1: Z/OS上のサブトランザクションの構成

$ART_IMS_CONFIGのzostrans.descファイルでz/OS上のサブトランザクションを構成でき、それらはすべてサブトランザクションとしてのみ呼び出す必要があります。リスト11‑1に例を示します。

リスト11‑1 サブトランザクションの構成の例

[zostran]

NAME=SUBTRAN1

CONV=TMAA2Z

[zostran]

NAME=SUBTRAN2

 

NAMEはz/OSトランザクション名です。CONVは入力メッセージのバッファ・コンバータ・プログラムで、サブトランザクションの入力メッセージ/セグメント構造を記述するコピーブックに基づいてART Workbenchによって生成できます。

注意:	CONVは、z/OS上のサブトランザクションを呼び出す前にデータ変換を処理します。これを指定しない場合、ART/IMSはデフォルトでASCIIからEBCDICへの変換のみを行い、たとえば、入力メッセージのすべてのバイトを文字として処理します。

ステップ2: TMA SNA for IMSの構成とデプロイ

1.	Oracle Tuxedo Mainframe Adapter for SNAをインストールします。詳細は、『Oracle Tuxedo Mainframe Adapter for SNAインストレーション・ガイド』を参照してください。

2.	1つの行GWSNAX::::を$TUXDIR/udataobj/DMTYPEに追加します。

3.	VTAM構成を確立します。

CRMをメインフレーム上で実行する場合、CRMと通信するローカルのVTAM構成がメインフレームに装備されている必要があります。

詳細は、「CRM要件用のメインフレーム構成の準備」を参照してください。

4.	Oracle TMA SNA for IMSを構成します。

a.	UBBCONFIGファイルを構成します。リスト11-2に例を示します。

リスト11‑2 UBBCONFIGの構成の例

*RESOURCES

IPCKEY 40036

DOMAINID snax

MASTER SITE1

MAXACCESSERS 400

MAXSERVERS 80

MAXSERVICES 80

MAXCONV 120

MODEL SHM

LDBAL N

SCANUNIT 5

BLOCKTIME 4

DBBLWAIT 1

*MACHINES

DEFAULT:

"HOSTNAME"

LMID=SITE1

TUXDIR="TUXDIR"

APPDIR="APPDIR"

TUXCONFIG="APPDIR/tuxconfig"

TLOGDEVICE="APPDIR/TLOG"

*GROUPS

ADMGRP

LMID=SITE1 GRPNO=1

CRM12200

LMID=SITE1 GRPNO=10

APPGRP

LMID=SITE1 GRPNO=100 TMSCOUNT=2 TMSNAME=TMS

*SERVERS

DEFAULT: CLOPT="-A"

DMADM

SRVGRP=ADMGRP SRVID=1

GWADM

SRVGRP=CRM12200 SRVID=11

GWSNAX

SRVGRP=CRM12200 SRVID=12

RQADDR="GWSNAX"

REPLYQ=N RESTART=N GRACE=0

CLOPT="-A -- -t 1"

*SERVICES

 

b.	DMCONFIGファイルを構成します。リスト11-3に例を示します。

新しいdmconfigを作成する場合は、リスト11‑3をメインフレーム接続にあわせて調整する必要がある可能性があります。同じCRM接続についてそれがすでに存在する場合は、DM_SNASTACKS、DM_SNALINKSおよびDM_REMOTE_SERVICESセクションの関連するエントリを既存の構成にマージするだけで済みます。リスト11‑3では、環境に従って変更する必要がある箇所を太字で示しています。

リスト11‑3 DMCONFIGの構成の例

*DM_LOCAL_DOMAINS

SNAXDOM

GWGRP=CRM12200 // Same as GWSNAX group name

TYPE=SNAX

DOMAINID="SNAXDOM"

DMTLOGDEV="APPDIR/DMLOG"

*DM_REMOTE_DOMAINS

MVSDOM

TYPE=SNAX

DOMAINID="MVSDOM"

*DM_SNACRM

SIMPCRM

SNACRMADDR="//hostname:port" // The port must be same as listening port of CRM

NWDEVICE="/dev/tcp"

LDOM="SNAXDOM"

*DM_SNASTACKS

SIMPSTK

SNACRM="SIMPCRM"

STACKTYPE="VT210" // Do not change if CRM is deployed on Mainframe

LOCALLU="CRMLU74" //LU name defined in VTAM

LTPNAME="*"

STACKPARMS="wasa"

*DM_SNALINKS

SIMPLK

STACKREF="SIMPSTK"

RDOM="MVSDOM"

LSYSID="CR63" // VTAM Connection name for this link

RSYSID="IMSD"

RLUNAME="IMSDAPPC" // VTAM netname

MODENAME="SMSNA100"

SECURITY="LOCAL"

STARTTYPE="COLD"

MAXSESS=8

MINWIN=4

MAXSYNCLVL=2

*DM_LOCAL_SERVICES

*DM_REMOTE_SERVICES

TSTNCON1

LDOM="SNAXDOM" //Reference to DOMAINID in DM_LOCAL_DOMAINS

RDOM="MVSDOM" //Reference to DOMAINID in DM_REMOTE_DOMAINS

AUTOTRAN=N

CONV=N

RNAME="TSTNCON1" //Reference to program name defined in remote CICS region

INBUFTYPE="CARRAY"

OUTBUFTYPE="CARRAY"

FUNCTION="APPC"

*DM_ROUTING

 

5.	tmloadcfとdmloadcfを実行して、UBBCONFIGファイルとDMCONFIGファイルをロードします。

6.	次のコマンドを使用して、メインフレームでCRMを起動します。

CRM [ -t 0|1|2|3 ] [-p<nbr>] [-s] [-n <type>:#:#] [-u <keyfile>] [-V] [-P [interval]] [-R [interval]] [-F [trcsz]] <addr> <group>

addrのポート番号は、DMCONFIGで構成されているSNACRMADDRのものと同じである必要があります。グループ名は、UBBCONFIGで構成されているGWSNAXのものと同じである必要があり、UBBCONFIGの例ではCRM12200です。

詳細は、「CRM」を参照してください。

7.	GWSNAX tmbootを開始して、GWSNAXを含むすべてのATMIサーバーを起動します。

ステップ3: サブトランザクションのバッファ・コンバータ・プログラムの生成

ART Workbenchでこの機能を有効にするには、ファイルを変換するためのWorkbenchプロジェクトを作成する必要があります。その後、プロジェクトに基づいて、次の手順に従ってバッファ・コンバータ・プログラムを生成する必要があります。

1.	system.descファイルでenable-buffer-converterを構成します(特殊なオプション)。

2.	入力コピーブック・ファイルをsource/COPYディレクトリに配置します。

3.	次の行をparam/file/Datamap-xxx.reファイルに追加します。

file A.FILE1

organization Sequential

4.	次の行をparam/file/mapper-xxx.reファイルに追加します。

file A.FILE1 transferred

include "COPY/ODCSF0.cpy"

map record RECORD defined in "COPY/ODCSF0.cpy"

source record RECORD defined in "COPY/ODCSF0.cpy"

logical name ODCSF0Q

converter name ODCSF0Q

5.	Workbenchファイル・コンバータ・プロジェクトを再度実行します。

次の2つの出力ファイルが生成され、最初のもののみが必要なコンバータ・プログラムです。

trf/reload/file/STFILEORA/ODCSF0Q1.cbl (ASCIIからEBCDIC)

trf/reload/file/STFILEORA/ODCSF0Q2.cbl (EBCDIRからASCII)

詳細は、『Oracle Tuxedo Application Rehosting Workbenchユーザーズ・ガイド』を参照してください。

前述の手順をすべて実行したら、TMAゲートウェイ環境でARTIMSを構成および設定します。ARTIMSドメインを起動し、オンライン・トランザクションを呼び出してz/OS上のサブトランザクションを起動します。