シスプレックスで複数のシステムに動的 VIPA (DVIPA) を実装するのに必要な TCP/IP プロファイルを 以下の例に示します。VIPADEFINE および VIPABACKUP ステートメントを使用すると、必要に応じて automatic dynamic VIPA テークオーバーが可能になり (複数アプリケーション・インスタンス・シナリオの構成を参照)、VIPARANGE ステートメントを使用すると、アプリケーションまたは MODDVIPA ユーティリティーにより、動的 VIPA を動的に作成することができます (固有アプリケーション・インスタンス・シナリオの構成を参照)。VIPADISTRIBUTE ステートメントは、単一の VIPA を複数の TCP/IP スタックで共用できるようにします。 同じ動的 VIPA が指定された各ターゲット・スタック上で、IPCONFIG ステートメントおよび IPCONFIG6 ステートメントに SOURCEVIPA および TCPSTACKSOURCEVIPA パラメーターを含めると、アウトバウンド TCP 接続に対するシスプレックス全体にわたるソース DVIPA アドレスとして、単一 DVIPA アドレスが使用できるようになります。 次の例は、IPv4 および IPv6 の両方の DVIPA を示し、 出力は、IPv6 対応の長いフォーマットで示されています。
TCPCS
IPCONFIG SYSPLEXROUTING SOURCEVIPA TCPSTACKSOURCEVIPA 201.2.10.11
DYNAMICXCF 193.9.200.1 255.255.255.240 1
IPCONFIG6 DYNAMICXCF 2001:0DB8::151:0001 INTFID 6:7:8:9
SOURCEVIPAINT SVIPA1 SOURCEVIPA TCPSTACKSOURCEVIPA DVIPA1
VIPADYNAMIC
VIPADEFINE 255.255.255.240 201.2.10.11 201.2.10.12
VIPADEFINE 255.255.255.240 201.2.10.14 201.2.10.15
VIPADEFINE 255.255.255.240 201.2.10.23
VIPADISTRIBUTE SYSPLEXPORTS DISTM SERVERWLM 201.2.10.11
PORT 20 21 DESTIP ALL
VIPADISTRIBUTE 201.2.10.12 PORT 20 21 DESTIP 193.9.200.2
VIPADISTRIBUTE DISTMETHOD ROUNDROBIN 201.2.10.14 DESTIP 193.9.200.2
VIPADISTRIBUTE DISTM WEIGHTEDActive 201.2.10.15 PORT 5000
DESTIP 193.9.200.2 WEIGHT 10
193.9.200.3 WEIGHT 20
VIPADISTRIBUTE TIMEDAFF 30 201.2.10.15 PORT 23 DESTIP ALL
PROCTYPE CP 20 ZAAP 80 ZIIP 0
VIPADISTRIBUTE 201.2.10.23 PORT 4000 DESTIP ALL
VIPABACKUP 100 201.2.10.13
VIPABACKUP 80 201.2.10.21 201.2.10.22
VIPARANGE DEFINE 255.255.255.192 201.2.10.192
VIPADEFINE DVIPA1 2001:0DB8:1::1
VIPADISTRIBUTE SYSPLEXPORTS DISTMETHOD SERVERWLM DVIPA1 DESTIP ALL
VIPADEFINE DVIPA2 2001:0DB8:2::2
VIPADISTRIBUTE TIMEDAFF 45 DISTM ROUNDROBIN DVIPA2 PORT 23 DESTIP ALL
VIPARANGE VRANGE1 2001:0DB8:3::1/100
ENDVIPADYNAMIC
TCPCS2
IPCONFIG SYSPLEXROUTING SOURCEVIPA TCPSTACKSOURCEVIPA 201.2.10.11
DYNAMICXCF 193.9.200.2 255.255.255.240 1
IPCONFIG6 DYNAMICXCF 2001:0DB8::151:0002
SOURCEVIPA TCPSTACKSOURCEVIPA DVIPA1
VIPADYNAMIC
VIPADEFINE 255.255.255.192 201.2.10.13
VIPABACKUP 100 201.2.10.11 201.2.10.21
VIPABACKUP 75 201.2.10.12 201.2.10.22
VIPARANGE DEFINE 255.255.255.192 201.2.10.192
VIPADEFINE DVIPA3 2001:0DB8:3::3
VIPABACKUP 200 DVIPA2
VIPABACKUP 220 DVIPA1
VIPADISTRIBUTE SYSPLEXPORTS DVIPA1 PORT 23 DESTIP ALL
VIPABACKUP 10 DVIPA4
ENDVIPADYNAMIC
TCPCS3
IPCONFIG SYSPLEXROUTING SOURCEVIPA TCPSTACKSOURCEVIPA 201.2.10.11
DYNAMICXCF 193.9.200.3 255.255.255.240 1
IPCONFIG6 DYNAMICXCF 2001:0DB8::151:0003
SOURCEVIPA TCPSTACKSOURCEVIPA DVIPA1
VIPADYNAMIC
VIPADEFINE MOVE IMMED 255.255.255.192 201.2.10.21 201.2.10.22
VIPABACKUP 10 201.2.10.11 201.2.10.12 201.2.10.13
VIPARANGE DEFINE 255.255.255.192 201.2.10.192
VIPADEFINE DVIPA4 2001:0DB8:4::4
VIPABACKUP 110 DVIPA2
VIPABACKUP 100 DVIPA1
ENDVIPADYNAMIC
TCPCS6
IPCONFIG SYSPLEXROUTING SOURCEVIPA TCPSTACKSOURCEVIPA 201.2.10.11
DYNAMICXCF 193.9.200.6 255.255.255.240 1
IPCONFIG6 DYNAMICXCF 2001:0DB8::151:0006
SOURCEVIPA TCPSTACKSOURCEVIPA DVIPA1
TCPCS6 does not have dynamic VIPAs defined so it does not
contain a VIPADYNAMIC definition. It has DYNAMICXCF specified
for IPv4 and IPv6 to enable XCF dynamic support and to allow
TCPCS6 to be a target for dynamic VIPA distribution.
//TCPDVP PROC
//*
//*
//TCPDVP EXEC PGM=MODDVIPA ,REGION=0K,TIME=1440, x
// PARM='POSIX(ON) ALL31(ON)/-p TCPCS -c 201.2.10.193'
//SYSPRINT DD SYSOUT=*,DCB=(RECFM=FB,LRECL=132,BLKSIZE=132)
//SYSERR DD SYSOUT=*
//SYSERROR DD SYSOUT=*
//SYSDEBUG DD SYSOUT=*
//SYSUDUMP DD SYSOUT=A
//SYSABEND DD SYSOUT=*
//*
//*Run program here
//*
//TCPDVP EXEC PGM=MODDVIPA ,REGION=0K,TIME=1440, x
// PARM='POSIX(ON) ALL31(ON)/-p TCPCS -d 201.2.10.193'
PARM フィールドは、作成の場合は -c、アフィニティーを使用して作成する場合は -a、または削除の場合は -d になります。 この例では、TCPCS という名前の TCP/IP に対して DVIPA 201.2.10.193 が作成されます。中間プログラムの完了後 (コメント文字が削除された後)、 DVIPA が削除されます。
V TCPIP,TCPCS,SYSPLEX,DEACTIVATE,DVIPA=201.2.10.23