Dupliquer un IMS

Vous vous êtes peut être demandé comment on défini plusieurs IMS dans le même groupe XCF et comment on duplique un IMS pour avoir un backup

Dans l'exemple ci-dessous, on a dupliqué IVP1 en IVP2 en partageant le maximum de choses et en ne dupliquant que ce qui est nécessaire. Le but est de mettre en place un pooling des connexions depuis un connecteur JCA IMSConnect et de tester la continuité du service en cas de rupture d'un IMS avec reprise des pseudo conversations en cours dans l'autre IMS

Construction d’un nœud majeur VTAM

Modification du démarrage automatique de VTAM

ADCD.Z19.VTAMLST(IMS91AP2)

IMS91AP2 VBUILD TYPE=APPL

IRLM1 APPL AUTH=ACQ,DLOGMOD=IRLM,MODETAB=IMS91TAB

JRLM2 APPL AUTH=ACQ,DLOGMOD=IRLM,MODETAB=IMS91TAB

IMS3272 APPL AUTH=(PASS,ACQ,SPO),DLOGMOD=IMS,MODETAB=IMS91TAB,

PARSESS=YES,HAVAIL=YES,ACBNAME=IMS91CR2

Ajout d’un Datastore IMSConnect

EDIT IMS910.PROCLIB(HWSCFG00) - 01.28 Columns 00001 00080

Command ===> Scroll ===> CSR

****** ********************************* Top of Data **********************************

000001 HWS (ID=HWS,RACF=Y,XIBAREA=20)

000002 TCPIP (HOSTNAME=ZOS19,RACFID=RACFID,PORTID=(4004),MAXSOC=2000,

000003 TIMEOUT=8888,EXIT=(HWSSMPL0,HWSCSLO0,HWSCSLO1))

000004 DATASTORE (ID=IVP1,GROUP=DTSCIMS,MEMBER=HWSMEM,TMEMBER=DTSCOTMA,

000005 DRU=HWSYDRU0,APPL=TSTNETAG)

000006 DATASTORE (ID=IVP2,GROUP=DTSCIMS,MEMBER=HWSMEM2,TMEMBER=DTSCOTM2,

000007 DRU=HWSYDRU0,APPL=TSTNETAB)

000008 IMSPLEX (MEMBER=PLEX1,TMEMBER=PLEX1)

Nouvelle région de contrôle: seuls les fichiers dupliqués sont indiqués ici, les autres sont partagés avec IVP1

ADCD.Z19.PROCLIB(IMS91CR2)

// PROC RGN=64M,SOUT=A,DPTY='(14,15)', 00000010

// SYS=,SYS1=,SYS2=, 00000020

// RGSUF=IV2,PARM1='RRS=Y', 00000030

// PARM2='OTMA=Y,OTMASE=N,GRNAME=DTSCIMS,OTMANM=DTSCOTM2'

………..

//******** MESSAGE QUEUE STATEMENTS ****************** 00003680

//* 00003690

//QBLKS DD DSN=IMS910.IVP2.QBLKS,DISP=OLD 00003700

//SHMSG DD DSN=IMS910.IVP2.SHMSG,DISP=OLD 00003710

//LGMSG DD DSN=IMS910.IVP2.LGMSG,DISP=OLD 00003720

…………

//MODSTAT DD DSN=IMS910.IVP2.MODSTAT,DISP=SHR 00003800

……….

//DFSTCF DD DSN=IMS910.TCFSLIB2,DISP=SHR 00004060

Nouveau paramétrage de cette région de contrôle pointée par RGSUF=IV2

IMS910.PROCLIB(DFSPBIV2)

APPLID1=IMS91CR2,

APPLID1=IMS91CR2,

DBRCNM=IMS91RC2,

DBWP=024,

DLINM=IMS91DL2,

IMSID=IVP2,

OTMANM=DTSCOTM2,

PRDR=IMS91RD2,

Paramétrage des nouvelles régions attachées à IVP2

ADCD.Z19.PROCLIB(IMS91DL2)

// PROC RGN=64M,DPTY='(14,15)',SOUT=A, 00000010

// IMSID=IVP2,SYS2= 00000020

//IEFPROC EXEC PGM=DFSMVRC0,REGION=&RGN, 00000030

ADCD.Z19.PROCLIB(IMS91CR2)

// PROC RGN=64M,SOUT=A,DPTY='(14,15)', 00000010

// SYS=,SYS1=,SYS2=, 00000020

// RGSUF=IV2,PARM1='RRS=Y', 00000030

// PARM2='OTMA=Y,OTMASE=N,GRNAME=DTSCIMS,OTMANM=DTSCOTM2'

//IEFPROC EXEC PGM=DFSMVRC0,DPRTY=&DPTY, 00000040

ADCD.Z19.PROCLIB(IMS91RD2)

// PROC MBR=IMSMSG2,CLASS=A,SYS2= 00000010

//IEFPROC EXEC PGM=IEBEDIT 00000020

//SYSPRINT DD DUMMY 00000030

//SYSUT1 DD DDNAME=IEFRDER 00000040

//SYSUT2 DD SYSOUT=(&CLASS,INTRDR),DCB=BLKSIZE=80 00000050

//SYSIN DD DUMMY 00000060

//IEFRDER DD DISP=SHR, 00000070

// DSN=IMS910.&SYS2.JOBS(&MBR) 00000080

ADCD.Z19.PROCLIB(IMS91RC2)

// PROC RGN=64M,DPTY='(14,15)',SOUT=A, 00000010

// IMSID=IVP2,SYS2= 00000020

//IEFPROC EXEC PGM=DFSMVRC0,REGION=&RGN, 00000030

Ajout d'un nouveau membre IMSMSG pour démarrer les depedent regions

IMS910.JOBS(IMSMSG2)

//IMS91M21 JOB ACTINFO1,

...

//IMS91M21 EXEC PROC=DFSMPR,TIME=(1440),

...

// IMSID=IVP2, IMSID OF IMS CONTROL REGION

...

//IMS91F21 JOB ACTINFO1,

...

//IMS91F21 EXEC PROC=IMSFP,TIME=(1440),

...

// IMSID=IVP2, IMSID OF IMS CONTROL REGION

...

//IMS91F21 JOB ACTINFO1,

...

//IMS91F21 EXEC PROC=IMSFP,TIME=(1440),

...

// IMSID=IVP2, IMSID OF IMS CONTROL REGION

...

//IMS91F23 JOB ACTINFO1,

//IMS91F23 EXEC PROC=IMSFP,TIME=(1440),

...

// IMSID=IVP2, IMSID OF IMS CONTROL REGION