WebSphere Replication Server for z/OS Using Q Replication: High Availability Scenarios for the z/OS Platform

Chapter 4. WebSphere MQ shared queues and unidirectional replication 113

//SYSPRINT DD SYSOUT=*

//ARVP DD DSN=&&ARVP,DISP=(OLD,DELETE)

//LOGP DD DSN=&&LOGP,DISP=(OLD,DELETE)

//SYSP DD DSN=&&SYSP,DISP=(OLD,DELETE)

//*

//* LOAD LIBRARY containing the default system

//* parameter module (CSQZPARM).

//*

//OLDLOAD DD DSN=MQ531.SCSQAUTH,DISP=SHR

//SYSLIN DD *

INCLUDE SYSP

INCLUDE ARVP

INCLUDE LOGP

INCLUDE OLDLOAD(CSQZPARM)

ENTRY CSQZMSTR

NAME CSQZPARM(R) Your system parameter module name

/*

//

Each of the steps described in Figure 4-4 is discussed briefly in the following sections.

4.5.1 STEP SETSHQ1: Set up connectivity between the databases

In this step connectivity is established between the source and target databases. This

involves inserting rows into the SYSIBM.LOCATIONS, SYSIBM.IPNAMES, and

SYSIBM.USERNAMES tables on the primary server SC53, as shown in Example 4-6, and

secondary server SC59, as shown in Example 4-7.

Example 4-6 Create connectivity between the source and the target databases on the primary server

SC53

INSERT INTO SYSIBM.LOCATIONS (LOCATION, LINKNAME, IBMREQD, PORT, TPN)

VALUES (

-- ENTER VALUES BELOW COLUMN NAME DATA TYPE LENGTH NULLS

'DB8A ' , -- LOCATION CHAR 16 NO

'DB8A ' , -- LINKNAME CHAR 8 NO

' ' , -- IBMREQD CHAR 1 NO

'38100 ' , -- PORT CHAR 32 NO

' ' ); -- TPN VARCHAR 64 NO

INSERT INTO SYSIBM.IPNAMES (LINKNAME, SECURITY_OUT, USERNAMES, IBMREQD,IPADDR)

VALUES (

-- ENTER VALUES BELOW COLUMN NAME DATA TYPE LENGTH NULLS

'DB8A ' , -- LINKNAME CHAR 8 NO

'P' , -- SECURITY_OUT CHAR 1 NO

'O' , -- USERNAMES CHAR 1 NO

' ' , -- IBMREQD CHAR 1 NO

'9.12.4.10' ); -- IPADDR VARCHAR 254 NO

INSERT INTO SYSIBM.USERNAMES (TYPE, AUTHID, LINKNAME,

NEWAUTHID, PASSWORD,IBMREQD)

VALUES (

-- ENTER VALUES BELOW COLUMN NAME DATA TYPE LENGTH NULLS

'O' , -- TYPE CHAR 1 NO

' ' , -- AUTHID CHAR 8 NO

'DB8A ' , -- LINKNAME CHAR 8 NO

'MWIMAN' , -- NEWAUTHID CHAR 8 NO

'MWIMAN' , -- PASSWORD CHAR 8 NO

' ' ); -- IBMREQD CHAR 1 NO