Oracle Tuxedo Mainframe Adapter for TCP (CICS)のインストール

Oracle Tuxedo Mainframe Adapter for TCP (CICS)(以後TMA TCP for CICSと呼ぶ)のインストールを、次の基本的な作業とトピックに分けて説明します。

•

インストールの準備

•	TMA TCP for CICSのインストール

注意:	以前のリリースのeLink for Mainframe TCPをアップグレードする場合は、『Oracle Tuxedo Mainframe Adapter for TCPリリース・ノート』を参照してください。

インストールの準備

TMA TCP for CICSをインストールする前に、次の手順に従ってください。

•	手順1: システム要件の確認

•	手順2: インストール前の注意事項の確認

手順1: システム要件の確認

インストールを開始する前に、ハードウェア要件とソフトウェア要件を確認します。システム要件の詳細は、『Oracle Tuxedo Mainframe Adapter for TCPリリース・ノート』を参照してください。インストール先のワークステーションがTCP/IPを介してz/OSに接続されていること、FTPを実行できることを確認します。

手順2: インストール前の注意事項の確認

付属のJCLのブロック・サイズがすべて、使用しているデバイスに適合することを確認します。デフォルトは、3380を想定しています。

TMA TCP for CICSのインストール

Oracle TMA TCP for CICSをインストールするには、次の手順に従います。

•	手順1: 一時データ・セットの割当て

•	手順2: インストールJCLの転送

•	手順3: PDSライブラリの作成

•	手順4: 配布ファイルのアップロード

•	手順5: CICS VSAMファイルの定義

•	手順6: PROCSの内容の確認

•	手順7: リソース名の変更(オプション)

•	手順8: CICSの表エントリの定義

•	手順9: TMA TCP for CICS実行可能ファイルのビルド

•	手順10: CICS設定の確認

•	手順11: CICS DCTのアセンブルとリンク

•	手順12: CICS起動JCLの変更

手順1: 一時データ・セットの割当て

次の例に示すように、インストール用のジョブに、z/OSの直接アクセス記憶装置上の一時データ・セットを割り当てます。

注意:	Volume SerialパラメータとGeneric Unitパラメータのいずれかを指定し、両方は指定しないようにします。

リスト5-1 インストール用のデータ・セットの割当て

Data Set Name: YOURHLQ.TEMP.INSTALL
Volume serial:nnnnn (Blank for authorized default volume)
Generic unit: (Generic group name or unit address)
Space units: TRACK (BLKS, TRKS, CYLS, KB, MB or BYTES)
Primary quantity: 1 (In above units)
Secondary quantity:1 (In above units)
Directory blocks:0 (Zero for sequential data set)
Record format: FB
Record length: 80
Block size: 6160
Expiration date: (YY/MM/DD, YYYY/MM/DD YY.DDD,
YYYY.DDD in Julian form DDDD for
retention period in days or blank)
Enter "/" to select option
Allocate Multiple Volumes

 

手順2: インストールJCLの転送

TMA TCP for CICS製品は1枚のCD-ROM (Oracle TMA TCP製品の他のメンバーも収録)に収録されて配布されます。TMA TCP for CICSの配布ファイルは、次のディレクトリ構造のいずれかの下にまとめられています。

•	UNIXからメインフレームにFTPで転送する場合の配布ファイルの場所は次のとおりです。

/cdrom/unixmf/cicsディレクトリ

/cdromは、ドライブがマウントされるディレクトリです。

•	WindowsからメインフレームにFTPで転送する場合の配布ファイルの場所は次のとおりです。

D:\ntmf\cics

D:はCD-ROMドライブです。

「手順1: 一時データ・セットの割当て」の項で作成した一時データ・セットにINSTALLというファイルをFTPで転送します。リスト3-2は、FTPを使用してINSTALLファイルをダウンロードするときの処理過程です。

リスト5-2 布ファイルのアップロード

% ftp zos-machine
Connected to zos-machine.
Name (zos-machine:unix-id): tso-id
331 Send password please.
Password: tso-password
230 tso-id is logged on.
Remote system type is z/OS.
ftp> quot site rec=fb
ftp> quot site lr=80
ftp> put INSTALL 'data set name allocated'
200 Port request OK.
125 Storing data set 'data set name allocated'
2749 bytes sent in 0.00 seconds (555.12 Kbytes/s)
ftp> quit
221 Quit command received. Goodbye.

 

手順3: PDSライブラリの作成

必要に応じて、ユーザーのインストールに関する基準やネーミング・ルールに合うようにJCLを変更します。ジョブを実行する前に、次の項目を確認して必要な変更を行ってください。

注意:	これは入力ストリームPROCです。変数はPROCの最後の方にあります。

1.	ユーザーの基準に合わせてJOBCARDを変更します。

2.	変数YOURHLQを変更します。名前を変更する必要がある場合は、変数JCL、OBJECTおよびSOURCEを変更します。

3.	変更したINSTALL JCLを実行します。このJCLを実行すると、JCLのJCLパラメータ(&HLQ)の値として指定した高位修飾子に基づいて、区分データ・セットが6つ作成されます。

INSTALL JCLには、BEATCPCという名前がデータ・セット名の一部として使用されています。次に例を示します。

リスト5-3 INSTALL JCLのサンプル

//JDOE1 JOB (INSTALL),'J DOE',NOTIFY=&SYSUID,
// CLASS=C,MSGCLASS=X,MSGLEVEL=(1,1),TIME=1440
//*
//INSTALL PROC HLQ=, ** YOUR HIGH LEVEL QUALIFIER
// DASD=, ** DASD DEVICE TYPE
// VOLUME=, ** SERIAL NUMBER OF TARGER VOLUME
// BLKFB=6160, ** BLKSIZE FOR FIXED BLOCK FILE
//*====================================================================
//* THESE JCL WILL CREATE THE PDS FILES REQUIRED FOR
//* THE INSTALLATION OF BEA TMA TCP FOR CICS
//*====================================================================
// PDSCNTL='CONTROL', ** 'YOURHLQ'.BEATCPC.CONTROL
// PDSINCL='INCLUDE', ** 'YOURHLQ'.BEATCPC.INCLUDE
// PDSJCL='JCL', ** 'YOURHLQ'.BEATCPC.JCL
// PDSOBJS='OBJECT', ** 'YOURHLQ'.BEATCPC.OBJECT
// PDSLKED='PLKED', ** 'YOURHLQ'.BEATCPC.PLKED
// PDSSRCE='SOURCE' ** 'YOURHLQ'.BEATCPC.SOURCE
// PDSLKED='PLKED', ** 'YOURHLQ'.BEATCPC.PLKED
// PDSSRCE='SOURCE' ** 'YOURHLQ'.BEATCPC.SOURCE
//*--------------------------------------------------------------------
//* WE RECOMMEND THAT YOU KEEP THE NODE 'BEATCPC' IN THE data set NAMES
//*--------------------------------------------------------------------
//EXEC PGM=IEFBR14
//PDSCNTL DD DSNAME=&HLQ..BEATCPC.&PDSCNTL.,DISP=(NEW,CATLG,DELETE),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=&BLKFB),
// UNIT=&DASD,VOL=SER=&VOLUME,SPACE=(CYL,(1,1,5))
//*
//PDSJCL DD DSNAME=&HLQ..BEATCPC.&PDSJCL.,DISP=(NEW,CATLG,DELETE),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=&BLKFB),
// UNIT=&DASD,VOL=SER=&VOLUME,SPACE=(CYL,(1,1,5))
//*
//PDSINCL DD DSNAME=&HLQ..BEATCPC.&PDSINCL.,DISP=(NEW,CATLG,DELETE),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=&BLKFB),
// UNIT=&DASD,VOL=SER=&VOLUME,SPACE=(CYL,(1,1,5))
//*
//PDSOBJS DD DSNAME=&HLQ..BEATCPC.&PDSOBJS.,DISP=(NEW,CATLG,DELETE),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=3200),
// UNIT=&DASD,VOL=SER=&VOLUME,SPACE=(CYL,(3,1,5))
//*
//PDSLKED DD DSNAME=&HLQ..BEATCPC.&PDSLKED.,DISP=(NEW,CATLG,DELETE),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=&BLKFB),
// UNIT=&DASD,VOL=SER=&VOLUME,SPACE=(CYL,(3,1,5))
//*
//PDSSRCE DD DSNAME=&HLQ..BEATCPC.&PDSSRCE.,DISP=(NEW,CATLG,DELETE),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=&BLKFB),
// UNIT=&DASD,VOL=SER=&VOLUME,SPACE=(CYL,(1,1,5))
//*
// PEND
//*--------------------------------------------------------------------
//* CUSTOMIZE THE PARAMETER ACCORDING TO YOUR INSTALLATION
//*--------------------------------------------------------------------
// EXEC PROC=INSTALL,
// DASD=3390, ** YOUR DEVICE TYPE
// VOLUME=MVS201, ** YOUR VOLUME SERIAL NUMBER
// HLQ='PRODUCTS.BEA.TMA', ** YOUR HIGH LEVEL QUALIFIER
// PDSCNTL='CONTROL', ** BEATCPC CONTROL
// PDSINCL='INCLUDE', ** BEATCPC INCLUDE
// PDSJCL='JCL', ** BEATCPC JCL
// PDSOBJS='OBJECT', ** BEATCPC OBJECT
// PDSLKED='PLKED', ** BEATCPC PLKED
// PDSSRCE='SOURCE '** BEATCPC SOURCE

 

手順4: 配布ファイルのアップロード

「手順3“ PDSライブラリの作成」の項で、ジョブINSTALLによって割り当てられた区分データセットに、配布メディアに収録されているすべてのファイルをアップロードします。

TMA TCP for CICSの配布ファイルは、次のディレクトリ構造のいずれかの下にまとめられています。

•	UNIXからメインフレームに配布ファイルをFTPで転送する場合のファイルの場所は次のとおりです。

/cdrom/unixmf/cics

/cdromは、ドライブがマウントされるディレクトリです。

•	WindowsからメインフレームにファイルをFTPで転送する場合のファイルの場所は次のとおりです。

D:\ntmf\cics

D:はCD-ROMドライブです。

前述のディレクトリ構造には次の区分データ・セットが格納されます。

 

表5-1 区分データ・セット

参照元	説明
./control	CONTROL (YOURHLQ.BEATCPC.CONTROL)用のPDS (ASCIIモード)
./jcl	(YOURHLQ.BEATCPC.JCL)用のPDS (ASCIIモード)
./source	SOURCE (YOURHLQ.BEATCPC.SOURCE)用のPDS (ASCIIモード)
./include	INCLUDE (YOURHLQ.BEATCPC.INCLUDE)用のPDS (ASCIIモード)
./object	OBJECT (YOURHLQ.BEATCPC.OBJECT)用のPDS (バイナリ・モード)
./plked	PLKED (YOURHLQ.BEATCPC.PLKED)用のPDS (バイナリ・モード)

リスト5-4 FTPを使用した配布ファイルのアップロード

% ftp zos-machine
Connected to zos-machine.
Name (beavs:tso-id):
331 Send password please.
Password: tso-password
230 tso-id is logged on.
Remote system type is z/OS.
ftp> prompt off
Interactive mode off
ftp> quot site rec=fb
200 SITE command was accepted
ftp> quot site lr=80
200 SITE command was accepted

 

CONTROLファイルをアップロードします。

注意:	ASCIIモードをオンに設定する必要があります。

リスト5-5 制御ファイルのアップロード

ftp> lcd /cdrom/unixmf/cics/control
Local directory now /cdrom/unixmf/cics/control
ftp> cd 'YOURHLQ.BEATCPC.CONTROL'
250 "'YOURHLQ.BEATCPC.CONTROL'" partitioned data set is working directory
ftp>ascii
200 Representation type is Ascii
ftp> mput *
local: CSDU remote: CSDU
200 Port request OK.
125 Storing data set "YOURHLQ".BEATCPC.CONTROL(CSDU)
250 Transfer completed successfully.
5740 bytes sent in 0.01 seconds (747.10 Kbytes/s)
.
.
.

 

JCLファイルをアップロードします。

注意:	ASCIIモードをオンに設定する必要があります。

リスト5-6 JCLファイルのアップロード

ftp> lcd /cdrom/unixmf/cics/jcl
Local directory now /cdrom/unixmf/cics/jcl
ftp> cd 'YOURHLQ.BEATCPC.JCL'
250 "'YOURHLQ.BEATCPC.JCL'" partitioned data set is working directory.
ftp>ascii
200 Representation type is Ascii
ftp> mput *
local: BLDVSAM remote: BLDVSAM
200 Port request OK.
125 Storing data set "YOURHLQ".BEATCPC.JCL(BLDVSAM)
250 Transfer completed successfully.
2214 bytes sent in 0.00 seconds (563.49 Kbytes/s)
.
.
.

 

SOURCEファイルをアップロードします。

注意:	ASCIIモードをオンに設定する必要があります。

リスト5-7 SOURCEファイルのアップロード

ftp> lcd /cdrom/unixmf/cics/source
Local directory now /cdrom/unixmf/cics/source
ftp> cd 'YOURHLQ.BEATCPC.SOURCE'
250 "'YOURHLQ.BEATCPC.SOURCE'" partitioned data set is working directory.
ftp>ascii
200 Representation type is Ascii
ftp> mput *
local: BEACCLN1 remote: BEACCLN1
200 Port request OK.
125 Storing data set YOURLHQ.BEATCPC.SOURCE(BEACCLN1)
250 Transfer completed successfully.
10578 bytes sent in 0.01 seconds (1013.85 Kbytes/s)
.
.
.

 

INCLUDEファイルをアップロードします。

注意:	ASCIIモードをオンに設定する必要があります。

リスト5-8 INCLUDEファイルのアップロード

ftp> ascii
ftp> lcd /cdrom/unixmf/cics/include
ftp> cd ’"YOURHLQ".BEATCPC.INCLUDE’
250 "’YOURHLQ.BEATCPC.INLUDE’" partitioned data set is working directory
ftp>ascii
200 Representation type is Ascii
ftp> mput *
200 Port request OK.
125 Storing data set "YOURHLQ".BEATCPC.INCLUDE’(CLIENT)
250 Transfer completed successfully.
local: CLIENT remote: CLIENT
3736 bytes sent in 0.0081 seconds (4.5e+02 Kbytes/s)
.
.
.

 

OBJECTファイルをアップロードします。

注意:	バイナリ・モードをオンにする必要があります。

リスト5-9 OBJECTファイルのアップロード

ftp> binary
200 Representation type is IMAGE.
ftp> lcd /cdrom/unixmf/cics/object
Local directory now /cdrom/unixmf/cics/object
ftp> cd 'YOURHLQ.BEATCPC.OBJECT'
250 "'YOURHLQ.BEATCPC.OBJECT'" partitioned data set is working directory.
ftp>binary
200 Representation type is Image
ftp> mput *
local: BEACFGSV remote: BEACFGSV
200 Port request OK.
125 Storing data set "YOURHLQ".BEATCPC.OBJECT(BEACFGSV)
250 Transfer completed successfully.
6240 bytes sent in 0.00 seconds (1466.96 Kbytes/s)
.
.
.

 

PLKEDファイルをアップロードします。

注意:	バイナリ・モードをオンにする必要があります。

リスト5-10 PLKEDファイルのアップロード

ftp> binary
200 Representation type is Image
ftp> lcd /cdrom/unixmf/plked
ftp> cd ’"YOURHLQ".BEATCPC.PLKED’
250 "’"YOURHLQ.BEATCPC.PLKED’" partitioned data set is working directory
ftp>binary
200 Representation type is Image
ftp> mput *
200 Port request OK.
125 Storing data set "YOURHLQ.BEATCPC.PLKED(BEACIC00)
250 Transfer completed successfully.
local: BEACIC00 remote: BEACIC00
64560 bytes sent in 0.7 seconds (90 Kbytes/s)
.
.
.

 

配布ライブラリがアップロードされたことを確認します。システム上になければならないファイルのリストについては、「配布ファイルとメンバーのリスト」の項を参照してください。

手順5: CICS VSAMファイルの定義

CICS VSAMファイル(接続、リクエスタ、サービス名、ユーザー接続、着信サービス)を定義します。

1.	PDS "YOURHLQ".BEATCPC.CONTROL内のDELETE//DEFINE制御カードのVCON、VREQ、VSVC、VUSRおよびVISNを変更します。リスト5-11は、DELETE/DEFINEの変更の例です。

リスト5-11 DELETE/DEFINE制御カードのサンプル

DELETE YOURHLQ.BEATCPC.BEAVSVC -
CLUSTER PURGE -
DEFINE CLUSTER ( -
NAME (YOURHLQ.BEATCPC.BEAVSVC) -
SHAREOPTIONS (2 3) -
KEYS (16 0) -
CISZ (1024) -
TRACKS (5 1) -
VOLUMES (CICS01)) -
DATA ( -
RECORDSIZE (56, 56) -
NAME (YOURHLQ.BEATCPC.BEAVSVC.DATA)) -
INDEX ( _
NAME (YOURHLQ.BEATCPC.BEAVSVC.INDEX))

 

YOURHLQ.BEATCPC.BEAVSVCのすべてのインスタンスを、ユーザーの基準に適合する物理データ・セット名に変更します。TRACKSパラメータとVOLUMESパラメータをインストールに適した値に変更します。ほとんどのインストール環境で、TRACKSパラメータに指定されているままの値で問題なく機能しますが、必要に応じて値を大きくしてかまいません。

2.	BLDVSAM JCLについては、次の手順に従います。

a.	ユーザーの基準に合わせてJOBCARDを変更します。

b.	YOURHLQ.BEATCPC.XXXXを変更します(XXXXはBEAVCON、BEAVREQ、BEAVSVC、BEAVUSRおよびBEAVISN)。

c.	BLDVSAMを実行します。

3.	結果を確認します。5つのVSAMファイルそれぞれに対応するデータ・セットが、YOURHLQ.BEATCPCに3つなければなりません。3つのデータ・セットは次に示すとおりです。

•	拡張のない1つのデータ・セット

•	拡張としてDATAを持つ1つのデータ・セット

•	拡張としてINDEXを持つ1つのデータ・セット

注意:	DELETEステップでコンディション・コードが8になっても問題ありません。DEFINEステップでゼロ以外のコンディション・コードを受け取った場合は、潜在的な問題が発生していないか、そのコードを評価する必要があります。

手順6: PROCSの内容の確認

次の手順に進む前に、PDS YOURHLQ.BEATCPC.JCL内ののPROCS CMPBC、CMPLMAP、CMPLKEDおよびLNKIBMに関して次の事項を確認することをお薦めします。

ユーザーの基準に合うように、それらの変更が必要になることがあります。次の事項を確認する必要があります。

•	CICSとTCP/IPのデータ・セット名に対するすべての参照。

•	STEPLIB、SYSMSGS、SYSXMSCS、SYSPATHに関連付けられているデータ・セットの名前と、SYSLIB DDの名前。

•	Unit = 参照。

手順7: リソース名の変更(オプション)

Oracle TMA TCP for CICSのマップセット、プログラム、トランザクションIDおよびVSAMデータ・セットのデフォルト名は、付録「リソース名の変更」で説明しているとおりです。違うネーミング・ルールを使用する場合は、各表の後に記述されている、名前の変更手順に従ってください。

注意:	リソース名をカスタマイズするには、C 370コンパイラが必要です。

手順8: CICSの表エントリの定義

1.	CSDU (PDS "YOURHLQ".BEATCPC.CONTROL内に収録)内のCICS表エントリの定義(PCT、PPT、FCT)を確認します。

2.	CSDU (PDS "YOURHLQ".BEATCPC.CONTROL内に収録)のグループとリストの名前を変更します。

3.	CSDUPD (PDS "YOURHLQ".BEATCPC.JCL内に収録)のJCLで、次の手順に従います。

a.	ユーザーの基準に合わせてJOBCARDを変更します。

b.	STEPLIBとDFHCSDのデータ・セット名を変更します。

c.	SYSIN DSN=YOURHLQ.BEATPC.CONTROLを変更します。

d.	CSDUPDを実行します。

e.

結果を検証します。

注意:	存在しないCSDオブジェクトに対してDELETEコマンドを実行したために、「COND CODE 0004」という結果になることがあります。

手順9: TMA TCP for CICS実行可能ファイルのビルド

Oracle TMA TCP for CICS用の実行可能ファイルをビルドするには、次の手順に従う必要があります。

1.	CICSリージョン用の実行可能ファイルを収容する割当て済のPDSがない場合は、実行可能ファイルをビルドする任意のJCLを実行する前に、そのようなPDSを割り当てます。

2.	CICSの管理マップ(メイン・メニュー、接続、リクエスタ、発信サービス名、着信サービス名、ユーザー接続アカウント、ハンドラ構成)をリンクします。MAKLMAP (PDS "YOURHLQ".BEATCPC.JCL"内に収録)のJCLで、次の手順に従います。

a.	ユーザーの基準に合わせてJOBCARDを変更します。

b.	正しいHLQを指定するように、PROCS JCLLIBカードを変更します。

c.	PDSに合わせて変数YOURHLQ、PDSOBJSおよびLNKLIBを変更します。

注意:	LNKLIBはCICSリージョンの実行可能ファイルのバイナリ・ファイルを格納する場所です。

d.	マップセットの名前を変更した場合は、変数PROGを変更します。

e.	MAKLMAPを実行します。

f.

結果を検証します。

3.	コンパイラに応じて次の手順に従います。

•	TMA TCP for CICSの事前リンク/リンク

•	C 370コンパイラなしのリンク

TMA TCP for CICSの事前リンク/リンク

次の項から、Oracle TMA TCP for CICS製品を実行する前にプログラムとマップセットをリンクする手順について説明します。

注意:	次からの項の適用対象は、C 370コンパイラです。

CICS管理プログラムのリンク

CICSの管理プログラム(メイン・メニュー、接続、リクエスタ、発信サービス名、着信サービス名、ユーザー接続アカウント、ハンドラ構成)を事前リンク/リンクします。MAKL1 (PDS "YOURHLQ".BEATCPC.JCL"内に収録)のJCLで、次の手順に従います。

1.	ユーザーの基準に合わせてJOBCARDを変更します。

2.	正しいHLQを指定するように、PROCS JCLLIBカードを変更します。

3.	PDSに合わせて変数YOURHLQ、PDSOBJS、TCPLIBおよびLNKLIBを変更します。

注意:	LNKLIBはCICSリージョンの実行可能ファイルのバイナリ・ファイルを格納する場所です。

4.	プログラムの名前を変更した場合は、LKED.SYSINプログラムの名前を変更します。

5.	MAKL1を実行します。

6.

結果を検証します。

注意:	「COND CODE = 004」という結果は正常です。

CICSユーティリティ・プログラムのリンク

CICSユーティリティ・プログラム(前処理リクエスタ、アプリケーション・ハンドラ、停止および構成コンバータ)を事前リンク/リンクします。MAKL0 (PDS "YOURHLQ".BEATCPC.JCL"内に収録)のJCLで、次の手順に従います。

1.	ユーザーの基準に合わせてJOBCARDを変更します。

2.	正しいHLQを指定するように、PROCS JCLLIBカードを変更します。

3.	PDSに合わせて変数YOURHLQ、PDSOBJS、TCPLIBおよびLNKLIBを変更します。

注意:	LNKLIBはCICSリージョンの実行可能ファイルのバイナリ・ファイルを格納する場所です。

4.	プログラムの名前を変更した場合は、LKED.SYSINプログラムの名前を変更します。

5.	MAKL0を実行します。

6.

結果を検証します。

注意:	「COND CODE = 004」という結果は正常です。

CICS TCPプログラムのリンク

CICS TCPプログラム(リクエスタおよびハンドラ)を事前リンク/リンクします。MAKL3 (PDS "YOURHLQ".BEATCPC.JCL"内に収録)のJCLで、次の手順に従います。

1.	ユーザーの基準に合わせてJOBCARDを変更します。

2.	PDSに合わせて変数YOURHLQ、PDSOBJS、TCPLIBおよびLNKLIBを変更します。

注意:	LNKLIBはCICSリージョンの実行可能ファイルのバイナリ・ファイルを格納する場所です。

3.	プログラムの名前を変更した場合は、INCLUDE OBJECTプログラムの名前を変更します。

4.	プログラムの名前を変更した場合は、LKED.SYSINプログラムの名前を変更します。

5.	MAKL3を実行します。

6.

結果を検証します。

注意:	「COND CODE = 004」という結果は正常です。

C 370コンパイラなしのリンク

C 370コンパイラを所有していない場合は、次の手順に従って、事前リンク済オブジェクトをリンクエディットします。次のプログラムの事前リンク済オブジェクトをリンクします。

•	CICS TCPプログラム(リクエスタとハンドラ)。

•	CICSユーティリティ・プログラム(前処理リクエスタ、アプリケーション・ハンドラ、停止、構成コンバータ)。

•	CICS管理プログラム(メイン・メニュー、接続、リクエスタ、サービス名)。

MAKLKED (PDS "YOURHLQ".BEATCPC.JCL"内に収録)のJCLで、次の手順に従います。

1.	ユーザーの基準に合わせてJOBCARDを変更します。

2.	PDSに合わせて変数YOURHLQ、TCPLIBおよびLNKLIBを変更します。

注意:	LNKLIBはCICSリージョンの実行可能ファイルのバイナリ・ファイルを格納する場所です。

3.	MAKLKEDを実行します。

4.

結果を検証します。

手順10: CICS設定の確認

Oracle TMA TCP for CICS用に設定するコンポーネントをインストールし確認するために、CICSリージョンにログオンします。

•	CEDA INSTALL GROUP(____)

これはCSDUで使用したグループ名です。

•	CEMT INQUIRE PROG(____)

マップセットとプログラムを確認します。

•	CEMT INQUIRE TRAN (____)

トランザクションIDを確認します。

•	CEMT INQUIRE FILE(____)

VSAMファイルを確認します。

手順11: CICS DCTのアセンブルとリンク

注意:	最近のリリースのCICSでは、この方法ではなく、CSDを使用してこの手順を実施できます。

1.	CICS DCTに次のエントリを追加します。

 

エントリ

BEALOG DFHDCT TYPE=SDSCI,

DSCNAME=BEALOG,

BLKSIZE=136,

RECSIZE=132,

RECFORM=VARUNB,

TYPEFLE=OUTPUT,

BUFNO=1

BEAL DFHDCT TYPE=EXTRA,

DESTID=BEAL,

DSCNAME=BEALOG

2.	DCTをアセンブルしリンクします。

手順12: CICS起動JCLの変更

1.	Oracle Tuxedo Mainframe Adapterロード・ライブラリ(LNKLIB)をDFHRPL連結に追加します。

2.	次のDD文をCICSファイル連結に追加します。

//BEALOG DD SYSOUT=*,DCB=(DSORG=PS,RECFM=V,BLKSIZE=136)

3.	VSAMファイルの論理名とDSNを結び付けるDD文を追加します。

注意:	DSN文がすでにCSDUに追加されている場合、この手順は必要ありません。

4.	CICS起動手順とCICS TCPIPリソースのDFHRPL連結でCICS TCPIPライブラリが定義されていることを確認します。CICS TCPIPリソースの定義の詳細は、『IBM z/OS Communications Server: IP CICS Sockets Guide』を参照してください。

CICS起動JCLの例を次に示します。

リスト5-12 TMA TCP用の定義を追加したCICS起動JCLのサンプル

//CICSREG JOB
//CICSCNTL EXEC PGM=IDCAMS,REGION=1M
//SYSPRINT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=CICSTS31.SYSIN(DFHRCYES)
//DTCNTL EXEC PGM=IDCAMS,REGION=1M
//SYSPRINT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=CICSTS31.SYSIN(DFHRCNO)
//*
//CICS EXEC PGM=DFHSIP, REGION=32M, TIME=1439, COND=(1,NE,CICSCNTL),
// =START=COLD,SYSIN,SEC=NO,GRPLIST=ETPLIST
//STEPLIB DD DISP=SHR,DSN=CICSTS31.SVTSC.SDFHAUTH
// DD DISP=SHR,DSN=CICSTS31.SDFHAUTH
// DD DISP=SHR,DSN=MASTCAT.MQM112.SCSQAUTH
// DD DISP=SHR,DSN=COB2140.COB2CICS.MODLIB
// DD DISP=SHR,DSN=C370.SEDCLINK
// DD DISP=SHR,DSN=ADLE370.V1R3M0.SCEECICS
// DD DISP=SHR,DSN=ADLE370.V1R3M0.SCEERUN
//DFHRPL DD DISP=SHR,DSN=CICSTS31.SVTSC.SDFHLOAD
// DD DISP=SHR,DSN=CICSTS31.SDFHLOAD
// DD DISP=SHR,DSN=BEA.BEA100.BEALOAD
// DD DISP=SHR,DSN=TCPIP.V3R1.SEZALINK
// DD DISP=SHR,DSN=TCPIP.V3R1.SEZATCP
// DD DISP=SHR,DSN=MQM112.SCSQCICS
// DD DISP=SHR,DSN=MQM112.SCSQLOAD
// DD DISP=SHR,DSN=COB2140.COB2CICS
// DD DISP=SHR,DSN=MASTCAT.COB2140.COB2LIB
// DD DISP=SHR,DSN=MASTCAT.PLI230.PLILINK
// DD DISP=SHR,DSN=C370.SEDCLINK
// DD DISP=SHR,DSN=ERW121.SERWLOAD
// DD DISP=SHR,DSN=ADLE370.V1R3M0.SCEECICS
// DD DISP=SHR,DSN=ADLE370.V1R3M0.SCEERUN
//SYSIN DD DISP=SHR,DSN=CICSTS31.CICS.SYSIN(TCICS)
//DFHCSD DD DISP=SHR,DSN=CICSTS31.DFHCSD
//DFHCMACD DD DISP=SHR,DSN=CICSTS31.DFHCMACD
//DFHJ01A DD DISP=SHR,DSN=CICSTS31.CICS.DFHJ01A
//DFHJ01B DD DISP=SHR,DSN=CICSTS31.CICS.DFHJ01B
//DFHJ01X DD DISP=SHR,DSN=CICSTS31.CICS.DFHJ01X
//DFHAUXT DD DISP=SHR, DSN=CICSTS31.CICS.DFHAUXT,
//DFHBUXT DD DISP=SHR, DSN=CICSTS31.CICS.DFHBUXT,
//DFHDMPA DD DISP=SHR,DSN=CICSTS31.CICS.DFHDMPA
//DFHDMPB DD DISP=SHR,DSN=CICSTS31.CICS.DFHDMPB
//DFHRSD DD DISP=SHR,DSN=CICSTS31.CICS.DFHRSD
//DFHGCD DD DISP=SHR,DSN=CICSTS31.CICS.DFHGCD
//DFHLCD DD DISP=SHR,DSN=CICSTS31.CICS.DFHLCD
//DFHXRMSG DD DISP=SHR, DSN=CICSTS31.CNTL.CICS.DFHXRMSG
//DFHXRCTL DD DISP=SHR,DSN=CICSTS31.CNTL.CICS.DFHXRCTL
//DFHTEMP DD DISP=SHR,DSN=CICSTS31.CNTL.CICS.DFHTEMP
//DFHINTRA DD DISP=SHR,DSN=CICSTS31.CNTL.CICS.DFHINTRA
//DFHJACD DD DISP=SHR,DSN=CICSTS31.CICS.DFHJACD
//DFHJPDS DD DISP=SHR,DSN=CICSTS31.DFHJPDS
//DFHJOUT DD SYSOUT=(A,INTRDR)
//DFHCXRF DD SYSOUT=X
//MQMMSG DD SYSOUT=*
//LOGUSR DD SYSOUT=*, DCB=(DSORG=PS,RECFM=V, BLKSIZE=136)
//MSGUSR DD SYSOUT=*, DCB=(DSORG=PS,RECFM=V, BLKSIZE=136)
//TCPDATA DD SYSOUT=*, DCB=(DSORG=PS,RECFM=V, BLKSIZE=136)
//BEALOG DD SYSOUT=*, DCB=(DSORG=PS,RECFM=V, BLKSIZE=136) ** BEA Connect
//COUT DD SYSOUT=*, DCB=(DSORG=PS,RECFM=V, BLKSIZE=137)
//PLIMSG DD SYSOUT=*, DCB=(DSORG=PS,RECFM=V, BLKSIZE=137)
//COUT DD SYSOUT=*, DCB=(DSORG=PS,RECFM=V, BLKSIZE=137)
//SYSABEND DD SYSOUT=*
//TRACEOUT DD SYSOUT=*
//PRINTER DD SYSOUT=*,DCB=BLKSIZE=121
//*
//PRTDMPA EXEC PGM=DFHDUP, PARM=SINGLE, REGION=0M, COND=(1,NE,DTCNTL)
//STEPLIB DD DSN=CICSTS31.SDFHLOAD,DISP=SHR
//SYSIN DD DUMMY
//DFHDMPDS DD DISP=SHR,DSN=CICSTS31.CICS.DFHDMPA
//DFHTINDX DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DFHPRINT DD SYSOUT=*
//*
//PRTDMPB EXEC PGM=DFHDUP, PARM=SINGLE, REGION=0M, COND=(1,NE,DTCNTL)
//STEPLIB DD DSN=CICSTS31.SDFHLOAD,DISP=SHR
//SYSIN DD DUMMY
//DFHDMPDS DD DISP=SHR,DSN=CICSTS31.CICS.DFHDMPB
//DFHTINDX DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DFHPRINT DD SYSOUT=*
//*
//* PRTAUXT EXEC PGM=DFHTUP, REGION=0M, COND=(1,NE,DTCNTL)
//* STEPLIB DD DSN=CICSTS31.SDFHLOAD,DISP=SHR
//* DFHAUXT DD DISP=OLD,DSN=CICSTS31.CICS.DFHAUXT
//* DFHAXPRT DD SYSOUT=*
//* DFHAXPRM DD DUMMY
//*
//PRTBUXT EXEC PGM=DFHTUP, REGION=0M, COND=(1,NE,DTCNTL)
//STEPLIB DD DSN=CICSTS31.SDFHLOAD,DISP=SHR
//DFHAUXT DD DISP=SHR,DSN=CICSTS31.CICS.DFHBUXT
//DFHAXPRT DD SYSOUT=*
//DFHAXPRM DD DUMMY

 

配布ファイルとメンバーのリスト

次の表で、それぞれの配布区分データ・セットを構成するメンバーについて説明します。

BEATCPC.DIST.CONTROL

Oracle TMA TCP for CICSによって次のメンバーがインストールされていることを確認します。

 

メンバー	説明
CSDU	(PCT、PPT、FCT)用の削除/定義パラメータ
VCON	(VSAM接続)用の削除/定義パラメータ
VISN	(VSAM着信サービス)用の削除/定義パラメータ
VREQ	(VSAMリクエスタ)用の削除/定義パラメータ
VSVC	(VSAMサービス名)用の削除/定義パラメータ
VUSR	(VSAMユーザー接続)用の削除/定義パラメータ

BEATCPC.DIST.JCL

Oracle TMA TCP for CICSによって次のメンバーがインストールされていることを確認します。

 

メンバー	説明
BLDVSAM	VSAMファイル(BEAVCON、BEAVREQ、BEAVSVC、BEAVUSR、BEAVISN)を削除/定義するためのJCL
CMPBC	Cプログラム(構成)をコンパイル/リンクするためのPROC
CMPLKED	事前リンク済のPLKEDをリンクするためのPROC
CMPLMAP	CICSマップセット(TCP管理)をリンクするPROC
CSDUPD	CICS (PCT、PPT、FCT)を削除/定義するためのJCL
LNKIBM	プログラム・オブジェクトを事前リンク/リンクするためのPROC
MAKBC	Cプログラム(構成)をコンパイル/リンクするためのJCL
MAKL0	プログラム・オブジェクト(前処理リクエスタ、停止)を事前リンク/リンクするためのJCL
MAKL1	プログラム・オブジェクト(TCP管理)を事前リンク/リンクするためのJCL
MAKL3	プログラム・オブジェクト(リクエスタ、ハンドラ)を事前リンク/リンクするためのJCL
MAKLKED	事前リンク済のPLKEDをリンクするためのJCL
MAKLMAP	CICSマップセット(TCP管理)をリンクするためのJCL

 

BEATCPC.DIST.SOURCE

Oracle TMA TCP for CICSによって次のメンバーがインストールされていることを確認します。

 

メンバー	説明
BEACCLN1	テスト・クライアント用のサンプル・プログラム
BEACSVR1	テスト・サーバー用のサンプル・プログラム
BEACFGSV	プログラム名の構成(ファイル、マップ、プログラム、トランザクション)

BEATCPC.DIST.INCLUDE

Oracle TMA TCP for CICSによって次のメンバーがインストールされていることを確認します。

 

メンバー	説明
BEACFGSV	名前の構成(ファイル、マップ、プログラム、トランザクション)用のインクルード
CLIENT	COBOL CICSクライアント/レスポンスのヘッダー用のコピーブック
CLIENTH	C CICSクライアント・リクエスト/レスポンスのヘッダー用のインクルード
TWACOPY	COBOL CICSサーバーのTWAメッセージ・サイズ用のコピーブック
TWAINCL	C CICSサーバーのTWAメッセージ・サイズ用のインクルード

BEATCPC.DIST.PLKED

Oracle TMA TCP for CICSによって次のメンバーがインストールされていることを確認します。

 

メンバー	説明
BEAAPPLC	アプリケーション・ハンドラの事前リンク済オブジェクト
BEACIC00	ハンドラの事前リンク済オブジェクト
BEAPCON	管理接続の事前リンク済オブジェクト
BEAPISN	管理(着信サービス名)の事前リンク済オブジェクト
BEAPMNU	管理(メイン・メニュー)の事前リンク済オブジェクト
BEAPREQ	管理(リクエスタ)の事前リンク済オブジェクト
BEAPRERQ	前処理リクエスタの事前リンク済オブジェクト
BEAPSVC	管理(発信サービス名)の事前リンク済オブジェクト
BEAPUSR	管理(ユーザー接続アカウント)の事前リンク済オブジェクト
BEAREQST	リクエスタの事前リンク済オブジェクト
BEASHUT	停止の事前リンク済オブジェクト
CNVTISNC	構成コンバータの事前リンク済オブジェクト

BEATCPC.DIST.OBJECT

Oracle TMA TCP for CICSによって次のメンバーがインストールされていることを確認します。

•

BEAAPPLC

•

BEACFGSV

•

BEACIC00

•

BEAERRNO

•

BEAEVT2

•

BEALOGC

•

BEAMCON

•

BEAMMNU

•

BEAMREQ

•

BEAMSUB

•

BEAMSVC

•

BEAMUSR

•

BEAMISN

•

BEAPCON

•

BEAPMNU

•

BEAPREQ

•

BEAPRERQ

•

BEAPSVC

•

BEAPUSR

•

BEAPISN

•

BEAREQST

•

BEARQSUB

•

BEASHUT

•

EBCASC

•

BEASUBS

•

BEAGHBN

•

BEASKIBM

•

BEASKVAR

•

CNVTISNC