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

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

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

ノート:

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

5.1 インストールの準備

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

親トピック: Oracle Tuxedo Mainframe Adapter for TCP (CICS)のインストール

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

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

親トピック: インストールの準備

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

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

親トピック: インストールの準備

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

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

親トピック: Oracle Tuxedo Mainframe Adapter for TCP (CICS)のインストール

5.2.1 手順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

親トピック: TMA TCP for CICSのインストール

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

TMA TCP for CICS製品はパッケージとして配布されます(Oracle TMA TCP製品の他のメンバーも同梱されています)。TMA TCP for CICSの配布ファイルは、次のディレクトリ構造のいずれかの下にまとめられています。

UNIXからメインフレームにFTPで転送する場合の配布ファイルの場所は次のとおりです。
unixmf/cicsディレクトリ
WindowsからメインフレームにFTPで転送する場合の配布ファイルの場所は次のとおりです。
ntmf\cics

「手順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.

親トピック: TMA TCP for CICSのインストール

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

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

ノート:

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

ユーザーの基準に合わせてJOBCARDを変更します。
変更したINSTALL JCLを実行します。このJCLを実行すると、JCLのJCLパラメータ(&HLQ)の値として指定した高位修飾子に基づいて、区分データ・セットが6つ作成されます。
変更した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 Oracle 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

親トピック: TMA TCP for CICSのインストール

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

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

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

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

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

元	先
`./control`	`CONTROL` (`YOURHLQ.BEATCPC.CONTROL`)用のPDS (ASCIIモード)
`./jcl`	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 controlファイルのアップロード

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)
.
.
.

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

親トピック: TMA TCP for CICSのインストール

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

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

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パラメータに指定されているままの値で問題なく機能しますが、必要に応じて値を大きくしてかまいません。
BLDVSAM JCLについては、次のステップに従います。
1. ユーザーの基準に合わせてJOBCARDを変更します。
2. YOURHLQ.BEATCPC.XXXXを変更します(XXXXはBEAVCON、BEAVREQ、BEAVSVC、BEAVUSRおよびBEAVISN)
3. BLDVSAMを実行します
結果を確認します。5つのVSAMファイルそれぞれに対応するデータ・セットが、YOURHLQ.BEATCPCの中に3つなければなりません。3つのデータ・セットは次に示すとおりです。
- 拡張のない1つのデータ・セット
- 拡張としてDATAを持つ1つのデータ・セット
- 拡張としてINDEXを持つ1つのデータ・セット
ノート:
DELETEステップでコンディション・コードが8になっても問題ありません。DEFINEステップでゼロ以外のコンディション・コードを受け取った場合は、潜在的な問題が発生していないか、そのコードを評価する必要があります。

親トピック: TMA TCP for CICSのインストール

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

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

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

CICSとTCP/IPのデータ・セット名に対するすべての参照。
STEPLIB、SYSMSGS、SYSXMSCS、SYSPATHに関連付けられているデータ・セットの名前と、SYSLIB DDの名前。
Unit = 参照。

親トピック: TMA TCP for CICSのインストール

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

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

ノート:

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

親トピック: TMA TCP for CICSのインストール

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

CSDU (PDS "YOURHLQ".BEATCPC.CONTROL内に収録)内のCICS表エントリの定義(PCT、PPT、FCT)を確認します。
CSDU (PDS "YOURHLQ".BEATCPC.CONTROL内に収録)のグループとリストの名前を変更します。
CSDUPD (PDS "YOURHLQ".BEATCPC.JCL内に収録)のJCLで、次のステップに従います。
1. ユーザーの基準に合わせてJOBCARDを変更します。
2. STEPLIBとDFHCSDのデータ・セット名を変更します。
3. SYSIN DSN=YOURHLQ.BEATPC.CONTROLを変更します
4. CSDUPDを実行します
5. 結果を確認します。
ノート:
存在しないCSDオブジェクトに対してDELETEコマンドを実行したために、「COND CODE 0004」という結果になることがあります。

親トピック: TMA TCP for CICSのインストール

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

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

CICSリージョン用の実行可能ファイルを収容する割当て済のPDSがない場合は、実行可能ファイルをビルドする任意のJCLを実行する前に、そのようなPDSを割り当てます。
CICSの管理マップ(メイン・メニュー、接続、リクエスタ、発信サービス名、着信サービス名、ユーザー接続アカウント、ハンドラ構成)をリンクします。MAKLMAP (PDS "YOURHLQ".BEATCPC.JCL"内に収録)のJCLで、次のステップに従います:
1. ユーザーの基準に合わせてJOBCARDを変更します。
2. 正しいHLQを指定するように、PROCS JCLLIBカードを変更します。
3. PDSに合わせて変数YOURHLQ、PDSOBJSおよびLNKLIBを変更します。
  
  ノート:
  LNKLIBはCICSリージョンの実行可能ファイルのバイナリ・ファイルを格納する場所です。
4. マップセットの名前を変更した場合は、変数PROGを変更します。
5. MAKLMAPを実行します。
6. 結果を確認します。
コンパイラに応じて次の手順に従います。

親トピック: TMA TCP for CICSのインストール

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

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

ノート:

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

親トピック: 手順9: TMA TCP for CICS実行可能ファイルのビルド

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

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

ユーザーの基準に合わせてJOBCARDを変更します。
正しいHLQを指定するように、PROCS JCLLIBカードを変更します
PDSに合わせて変数YOURHLQ、PDSOBJS、TCPLIBおよびLNKLIBを変更します。

ノート:
LNKLIBはCICSリージョンの実行可能ファイルのバイナリ・ファイルを格納する場所です。
プログラムの名前を変更した場合は、LKED.SYSINプログラムの名前を変更します。
MAKL1を実行します。
結果を確認します。

ノート:
COND CODE = 004という結果は正常です。

親トピック: TMA TCP for CICSの事前リンク/リンク

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

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

ユーザーの基準に合わせてJOBCARDを変更します。
正しいHLQを指定するように、PROCS JCLLIBカードを変更します
PDSに合わせて変数YOURHLQ、PDSOBJS、TCPLIBおよびLNKLIBを変更します。

ノート:
LNKLIBはCICSリージョンの実行可能ファイルのバイナリ・ファイルを格納する場所です。
プログラムの名前を変更した場合は、LKED.SYSINプログラムの名前を変更します。
MAKL0を実行します
結果を確認します。

ノート:
“COND CODE = 004”は正常です。

親トピック: TMA TCP for CICSの事前リンク/リンク

5.2.9.1.3 CICS TCPプログラムのリンク

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

ユーザーの基準に合わせてJOBCARDを変更します。
PDSに合わせて変数YOURHLQ、PDSOBJS、TCPLIBおよびLNKLIBを変更します。

ノート:
LNKLIBはCICSリージョンの実行可能ファイルのバイナリ・ファイルを格納する場所です
プログラムの名前を変更した場合は、INCLUDE OBJECTプログラムの名前を変更します。
プログラムの名前を変更した場合は、LKED.SYSINプログラムの名前を変更します。
MAKL3を実行します。
結果を確認します。

ノート:
“COND CODE = 004”は正常です。

親トピック: TMA TCP for CICSの事前リンク/リンク

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

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

CICS TCPプログラム(リクエスタとハンドラ)。
CICSユーティリティ・プログラム(前処理リクエスタ、アプリケーション・ハンドラ、停止、構成コンバータ)。
CICS管理プログラム(メイン・メニュー、接続、リクエスタ、サービス名)。

MAKLKED (PDS "YOURHLQ.BEATCPC.JCL"内に収録)のJCLで、次のステップに従います。

ユーザーの基準に合わせてJOBCARDを変更します。
PDSに合わせて変数YOURHLQ、TCPLIBおよびLNKLIBを変更します。

ノート:
LNKLIBはCICSリージョンの実行可能ファイルのバイナリ・ファイルを格納する場所です。
MAKLKEDを実行します。
結果を確認します。

親トピック: 手順9: TMA TCP for CICS実行可能ファイルのビルド

5.2.10 手順10: CICS設定の確認

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

CEDA INSTALL GROUP(____)
これはCSDUで使用したグループ名です。
CEMT INQUIRE PROG(____)
マップセットとプログラムを確認します。
CEMT INQUIRE TRAN (____)
トランザクションIDを確認します
CEMT INQUIRE FILE(____)
VSAMファイルを確認します。

親トピック: TMA TCP for CICSのインストール

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

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

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`

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

親トピック: TMA TCP for CICSのインストール

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

Oracle Tuxedo Mainframe Adapterロード・ライブラリ(LNKLIB)をDFHRPL連結に追加します。
次のDD文をCICSファイル連結に追加します。
//BEALOG DD SYSOUT=*,DCB=(DSORG=PS,RECFM=V,BLKSIZE=136)
VSAMファイルの論理名とDSNを結び付けるDD文を追加します。

ノート:
DSN文がすでにCSDUに追加されている場合、このステップは必要ありません。
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

親トピック: TMA TCP for CICSのインストール