Oracle Tuxedo Mainframe Adapter for TCP (CICS)(以後TMA TCP for CICSと呼ぶ)のインストールを、次の基本的な作業とトピックに分けて説明します。
注意: | 以前のリリースのeLink for Mainframe TCPをアップグレードする場合は、『Oracle Tuxedo Mainframe Adapter for TCPリリース・ノート』を参照してください。 |
TMA TCP for CICSをインストールする前に、次の手順に従ってください。
インストールを開始する前に、ハードウェアとソフトウェアの要件を確認します。システム要件については、『Oracle Tuxedo Mainframe Adapter for TCPリリース・ノート』を参照してください。インストール先のワークステーションがTCP/IPを介してz/OSに接続されていること、FTPを実行できることを確認します。
付属のJCLのブロック・サイズがすべて、使用しているデバイスに適合することを確認します。デフォルトは、3380を想定しています。
Oracle TMA TCP for CICSをインストールするには、次の手順に従います。
次の例に示すように、インストール用のジョブに、z/OSの直接アクセス記憶装置上の一時データ・セットを割り当てます。
注意: | Volume SerialパラメータとGeneric Unitパラメータのいずれかを指定し、両方は指定しないようにします。 |
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製品は1枚のCD-ROM(Oracle TMA TCP製品の他のメンバーも収録)に収録されて配布されます。TMA TCP for CICSの配布ファイルは、次のディレクトリ構造のいずれかの下にまとめられています。
「手順1: 一時データ・セットの割当て」の項で作成した一時データ・セットにINSTALL
というファイルをFTPで転送します。リスト3-2は、FTPを使用してINSTALL
ファイルをダウンロードするときの処理過程です。
% 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.
必要に応じて、ユーザーのインストールに関する基準やネーミング・ルールに合うようにJCLを変更します。ジョブを実行する前に、次の項目を確認して必要な変更を行ってください。
注意: | これは入力ストリームPROC です。変数はPROC の最後の方にあります。 |
INSTALL
JCLには、BEATCPC
という名前がデータ・セット名の一部として使用されています。次に例を示します。
//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
「手順3: PDSライブラリの作成」の項で、ジョブINSTALL
によって割り当てられた区分データセットに、配布メディアに収録されているすべてのファイルをアップロードします。
TMA TCP for CICSの配布ファイルは、次のディレクトリ構造のいずれかの下にまとめられています。
前述のディレクトリ構造には次の区分データ・セットが格納されます。
% 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
注意: | ASCIIモードをオンに設定する必要があります。 |
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)
.
.
.
注意: | ASCIIモードをオンに設定する必要があります。 |
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)
.
.
.
注意: | ASCIIモードをオンに設定する必要があります。 |
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)
.
.
.
注意: | ASCIIモードをオンに設定する必要があります。 |
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)
.
.
.
注意: | バイナリ・モードをオンにする必要があります。 |
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)
.
.
.
注意: | バイナリ・モードをオンにする必要があります。 |
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)
.
.
.
配布ライブラリがアップロードされたことを確認します。システム上になければならないファイルのリストについては、「配布ファイルとメンバーのリスト」の項を参照してください。
CICS VSAM
ファイル(接続、リクエスタ、サービス名、ユーザー接続、着信サービス)を定義します。
"YOURHLQ".BEATCPC.CONTROL
内のDELETE/DEFINE
制御カードのVCON
、VREQ
、VSVC
、VUSR
およびVISN
を変更します。リスト4-11は、DELETE/DEFINE
の変更の例です。DELETEYOURHLQ.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については、次の手順に従います。VSAM
ファイルそれぞれに対応するデータ・セットが、YOURHLQ.BEATCPC
の中に3つなければなりません。3つのデータ・セットは次に示すとおりです。 次の手順に進む前に、PDS YOURHLQ.BEATCPC.JCL
内のPROCS
のCMPBC
、CMPLMAP
、CMPLKED
およびLNKIBM
に関して次の事項を確認することをお薦めします。
ユーザーの基準に合うように、それらの変更が必要になることがあります。次の事項を確認する必要があります。
Oracle TMA TCP for CICSのマップセット、プログラム、トランザクションIDおよびVSAMデータ・セットのデフォルト名は、付録Aの「リソース名の変更」で説明しているとおりです。違うネーミング・ルールを使用する場合は、各表の後に記述されている、名前の変更手順に従ってください。
注意: | リソース名をカスタマイズするには、C 370コンパイラが必要です。 |
注意: | 存在しないCSDオブジェクトに対して という結果になることがあります。 |
Oracle TMA TCP for CICS用の実行可能ファイルをビルドするには、次の手順に従う必要があります。
次の項から、Oracle TMA TCP for CICS製品を実行する前にプログラムとマップセットをリンクする手順について説明します。
注意: | 次からの項の適用対象は、C 370コンパイラです。 |
CICS管理プログラム(メイン・メニュー、接続、リクエスタ、発信サービス名、着信サービス名、ユーザー接続アカウント、ハンドラ構成)を事前リンク/リンクします。MAKL1
(PDS "YOURHLQ".BEATCPC.JCL"
内に収録)のJCLで、次の手順に従います。
注意: | 「COND CODE = 004」 という結果は正常です。 |
CICSユーティリティ・プログラム(前処理リクエスタ、アプリケーション・ハンドラ、停止および構成コンバータ)を事前リンク/リンクします。MAKL0
(PDS "YOURHLQ".BEATCPC.JCL"
内に収録)のJCLで、次の手順に従います。
注意: | 「COND CODE = 004」 という結果は正常です。 |
CICS TCPプログラム(リクエスタとハンドラ)を事前リンク/リンクします。MAKL3
(PDS "YOURHLQ".BEATCPC.JCL"
内に収録)のJCLで、次の手順に従います。
注意: | 「COND CODE = 004」 という結果は正常です。 |
C 370コンパイラを所有していない場合は、次の手順に従って、事前リンク済オブジェクトをリンクエディットします。次のプログラムの事前リンク済オブジェクトをリンクします。
MAKLKED
(PDS "YOURHLQ.BEATCPC.JCL"
内に収録)のJCLで、次の手順に従います。
Oracle TMA TCP for CICS用に設定するコンポーネントをインストールし確認するために、CICSリージョンにログオンします。
注意: | 最近のリリースのCICSでは、この方法ではなく、CSDを使用してこの手順を実施できます。 |
//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
次の表で、それぞれの配布区分データ・セットを構成するメンバーについて説明します。
Oracle TMA TCP for CICSによって次のメンバーがインストールされていることを確認します。
Oracle TMA TCP for CICSによって次のメンバーがインストールされていることを確認します。
Oracle TMA TCP for CICSによって次のメンバーがインストールされていることを確認します。
Oracle TMA TCP for CICSによって次のメンバーがインストールされていることを確認します。
Oracle TMA TCP for CICSによって次のメンバーがインストールされていることを確認します。
Oracle TMA TCP for CICSによって次のメンバーがインストールされていることを確認します。