|
midrange.com
We have two iSeries involved in this situation.
One is currently our ERP box.
The other is our Domino box.
We are going to merge the two machines by moving the data from the Domino
box onto the ERP box.
Actually I think I have the steps down pat, thanks to IBM/Lotus websites
and what not. And, much of the restore and configurations can be done
hands off with a simple CL program.
I am open for comments on this program:
PGM
/*
+
| Much of this is based from:
+
| http://www.iseries.ibm.com/tstudio/domino/migrate/indexmig.htm
+
| We've already installed the following:
+
| 5769LNT-Lotus Domino For AS/400 - V5R0M8
+
| 5769LNP-Lotus Enterprise Integrator - V3R1M0
+
| 1TSMN99-ScanMail for Lotus Notes - V1R9MC
+
| 5733FXD-Domino Fax for iSeries - V4R4M0
+
| 5722SS1-Operating System/400 - V5R1M0
+
| and tcpip and whatnot.
+
|
+
*/
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Restoring data for server DOMFAX01') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
RST DEV('/QSYS.LIB/TAP03.DEVD') OBJ( +
('/DOMFAX01') +
) OUTPUT(*PRINT) +
ENDOPT(*LEAVE)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Restoring data for server GDDATA') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
RST DEV('/QSYS.LIB/TAP03.DEVD') OBJ( +
('/GDDATA') +
) OUTPUT(*PRINT) +
ENDOPT(*LEAVE)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Restoring data for server GDSHELP') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
RST DEV('/QSYS.LIB/TAP03.DEVD') OBJ( +
('/GDSHELP') +
) OUTPUT(*PRINT) +
ENDOPT(*LEAVE)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Restoring data for server GDSSALES') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
RST DEV('/QSYS.LIB/TAP03.DEVD') OBJ( +
('/GDSSALES') +
) OUTPUT(*PRINT) +
ENDOPT(*LEAVE)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Restoring data for server INTERNOTES') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
RST DEV('/QSYS.LIB/TAP03.DEVD') OBJ( +
('/INTERNOTES') +
) OUTPUT(*PRINT) +
ENDOPT(*LEAVE)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Restoring data for server LEISERVE') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
RST DEV('/QSYS.LIB/TAP03.DEVD') OBJ( +
('/LEISERVE') +
) OUTPUT(*PRINT) +
ENDOPT(*LEAVE)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Restoring data for server NOTES01') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
RST DEV('/QSYS.LIB/TAP03.DEVD') OBJ( +
('/NOTES01') +
) OUTPUT(*PRINT) +
ENDOPT(*LEAVE)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Restoring data for server QUALITY') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
RST DEV('/QSYS.LIB/TAP03.DEVD') OBJ( +
('/QUALITY') +
) OUTPUT(*PRINT) +
ENDOPT(*LEAVE)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Adding IP interface for DOMFAX01') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
ADDTCPIFC INTNETADR('10.10.1.147') LIND(LANLINSYS) SUBNETMASK
('255.255.255.0')
ADDTCPHTE INTNETADR('10.10.1.147') HOSTNAME
((DOMFAX01.DEKKO.COM)) +
TEXT('Domino server DOMFAX01')
STRTCPIFC INTNETADR('10.10.1.147')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Adding IP interface for GDDATA') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
ADDTCPIFC INTNETADR('10.10.1.182') LIND(LANLINSYS) SUBNETMASK
('255.255.255.0')
ADDTCPHTE INTNETADR('10.10.1.182') HOSTNAME
((GDDATA.DEKKO.COM)) +
TEXT('Domino server GDDATA')
STRTCPIFC INTNETADR('10.10.1.182')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Adding IP interface for GDSHELP') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
ADDTCPIFC INTNETADR('10.10.1.186') LIND(LANLINSYS) SUBNETMASK
('255.255.255.0')
ADDTCPHTE INTNETADR('10.10.1.186') HOSTNAME
((GDSHELP.DEKKO.COM)) +
TEXT('Domino server GDSHELP')
STRTCPIFC INTNETADR('10.10.1.186')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Adding IP interface for GDSSALES') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
ADDTCPIFC INTNETADR('10.10.1.152') LIND(LANLINSYS) SUBNETMASK
('255.255.255.0')
ADDTCPHTE INTNETADR('10.10.1.152') HOSTNAME
((GDSSALES.DEKKO.COM)) +
TEXT('Domino server GDSSALES')
STRTCPIFC INTNETADR('10.10.1.152')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Adding IP interface for INTERNOTES') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
ADDTCPIFC INTNETADR('10.10.1.141') LIND(LANLINSYS) SUBNETMASK
('255.255.255.0')
ADDTCPHTE INTNETADR('10.10.1.141') +
HOSTNAME((INTERNOTES) (INTERNOTES.dekko-1)
(INTERNOTES.DEKKO.COM)) +
TEXT('Domino server INTERNOTES')
STRTCPIFC INTNETADR('10.10.1.141')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Adding IP interface for LEISERVE') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
ADDTCPIFC INTNETADR('198.1.1.219') LIND(LANLINSYS) SUBNETMASK
('255.255.255.0')
ADDTCPHTE INTNETADR('198.1.1.219') +
HOSTNAME((LEISERVE) (LEISERVE.DEKKO.COM)) +
TEXT('Domino server LEISERVE')
STRTCPIFC INTNETADR('198.1.1.219')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Adding IP interface for NOTES01') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
ADDTCPIFC INTNETADR('10.10.1.189') LIND(LANLINSYS) SUBNETMASK
('255.255.255.0')
ADDTCPHTE INTNETADR('10.10.1.189') +
HOSTNAME((NOTES01.DEKKO.COM)) +
TEXT('Domino server NOTES01')
STRTCPIFC INTNETADR('10.10.1.189')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Adding IP interface for QUALITY') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
ADDTCPIFC INTNETADR('10.10.1.81') LIND(LANLINSYS) SUBNETMASK
('255.255.255.0')
ADDTCPHTE INTNETADR('10.10.1.81') +
HOSTNAME((QUALITY.DEKKO.COM)) +
TEXT('Domino server QUALITY')
STRTCPIFC INTNETADR('10.10.1.81')
/*
+
| NOTES01 was our primary server back on GDIMAIL. Also, on GDIMAIL,
we +
| used to use SMTP(*DOMINO). But on this 400 we also want to be able
to +
| use SNDDST like commands to send out email, so we'll use SMTP(*MSF).
+
*/
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Configuring Domino Server DOMFAX01') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
CFGDOMSVR SERVER('DOMFAX01') OPTION(*FIRST) DTADIR
('/DOMFAX01/NOTES/DATA') +
ORG(DEKKO) +
ADM(admin *N *N orange 5) TIMEZONE(EST)
DAYSAVTIME(*NO) WEB(*HTTP) +
MAIL(*SMTP) SMTP(*MSF) DIRSRV(*NONE) ADVSRV
(*PARTITION *CLUSTER) +
RPLCFG(*NO) DOMAIN(DEKKO) NETWORK(TCPIP) +
CERTID('/DOMFAX01/NOTES/DATA/cert.id') +
ADMID('/DOMFAX01/NOTES/DATA/user.id') +
SVRID('/DOMFAX01/NOTES/DATA/domfax01.id')
SBS(DOMFAX01)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Configuring Domino Server GDDATA') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
CFGDOMSVR SERVER('GDDATA') OPTION(*FIRST) DTADIR
('/GDDATA/NOTES/DATA') ORG(DEKKO) +
ADM(admin *N *N orange 5) TIMEZONE(EST)
DAYSAVTIME(*NO) WEB(*HTTP) +
MAIL(*SMTP) SMTP(*MSF) DIRSRV(*NONE) ADVSRV
(*PARTITION *CLUSTER) +
RPLCFG(*NO) DOMAIN(DEKKO) NETWORK(TCPIP) +
CERTID('/GDDATA/NOTES/DATA/cert.id') ADMID
('/GDDATA/NOTES/DATA/user.id') +
SVRID('/GDDATA/NOTES/DATA/gddata.id') SBS(GDDATA)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Configuring Domino Server GDSHELP') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
CFGDOMSVR SERVER('GDSHELP') OPTION(*FIRST) DTADIR
('/GDSHELP/NOTES/DATA') ORG(DEKKO) +
ADM(admin *N *N orange 5) TIMEZONE(EST)
DAYSAVTIME(*NO) WEB(*HTTP) +
MAIL(*SMTP) SMTP(*MSF) DIRSRV(*NONE) ADVSRV
(*PARTITION *CLUSTER) +
RPLCFG(*NO) DOMAIN(DEKKO) NETWORK(TCPIP) +
CERTID('/GDSHELP/NOTES/DATA/cert.id') +
ADMID('/GDSHELP/NOTES/DATA/user.id') +
SVRID('/GDSHELP/NOTES/DATA/gdshelp.id')
SBS(GDSHELP)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Configuring Domino Server GDSSALES') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
CFGDOMSVR SERVER('GDSSALES') OPTION(*FIRST) DTADIR
('/GDSSALES/NOTES/DATA') +
ORG(DEKKO) +
ADM(admin *N *N orange 5) TIMEZONE(EST)
DAYSAVTIME(*NO) WEB(*HTTP) +
MAIL(*SMTP) SMTP(*MSF) DIRSRV(*NONE) ADVSRV
(*PARTITION *CLUSTER) +
RPLCFG(*NO) DOMAIN(DEKKO) NETWORK(TCPIP) +
CERTID('/GDSSALES/NOTES/DATA/cert.id') +
ADMID('/GDSSALES/NOTES/DATA/user.id') +
SVRID('/GDSSALES/NOTES/DATA/gdssales.id')
SBS(GDSSALES)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Configuring Domino Server INTERNOTES') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
CFGDOMSVR SERVER('INTERNOTES') OPTION(*FIRST) DTADIR
('/INTERNOTES/NOTES/DATA') +
ORG(DEKKO) +
ADM(admin *N *N orange 5) TIMEZONE(EST)
DAYSAVTIME(*NO) WEB(*HTTP) +
MAIL(*SMTP) SMTP(*MSF) DIRSRV(*NONE) ADVSRV
(*PARTITION *CLUSTER) +
RPLCFG(*NO) DOMAIN(DEKKO) NETWORK(TCPIP) +
CERTID('/INTERNOTES/NOTES/DATA/cert.id') +
ADMID('/INTERNOTES/NOTES/DATA/user.id') +
SVRID('/INTERNOTES/NOTES/DATA/internot.id')
SBS(INTERNOTES)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Configuring Domino Server LEISERVE') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
CFGDOMSVR SERVER('LEISERVE') OPTION(*FIRST) DTADIR
('/LEISERVE/NOTES/DATA') +
ORG(DEKKO) +
ADM(admin *N *N orange 5) TIMEZONE(EST)
DAYSAVTIME(*NO) WEB(*HTTP) +
MAIL(*SMTP) SMTP(*MSF) DIRSRV(*NONE) ADVSRV
(*PARTITION *CLUSTER) +
RPLCFG(*NO) DOMAIN(DEKKO) NETWORK(TCPIP) +
CERTID('/LEISERVE/NOTES/DATA/cert.id') +
ADMID('/LEISERVE/NOTES/DATA/user.id') +
SVRID('/LEISERVE/NOTES/DATA/leiserve.id')
SBS(LEISERVE)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Configuring Domino Server NOTES01') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
CFGDOMSVR SERVER('NOTES01') OPTION(*FIRST) DTADIR
('/NOTES01/NOTES/DATA') +
ORG(DEKKO) +
ADM(admin *N *N orange 5) TIMEZONE(EST)
DAYSAVTIME(*NO) WEB(*HTTP) +
MAIL(*SMTP) SMTP(*MSF) DIRSRV(*NONE) ADVSRV
(*PARTITION *CLUSTER) +
RPLCFG(*NO) DOMAIN(DEKKO) NETWORK(TCPIP) +
CERTID('/NOTES01/NOTES/DATA/cert.id') +
ADMID('/NOTES01/NOTES/DATA/user.id') +
SVRID('/NOTES01/NOTES/DATA/server.id')
SBS(NOTES01)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Configuring Domino Server QUALITY') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
CFGDOMSVR SERVER('NOTES01') OPTION(*FIRST) DTADIR
('/QUALITY/NOTES/DATA') +
ORG(DEKKO) +
ADM(admin *N *N orange 5) TIMEZONE(EST)
DAYSAVTIME(*NO) WEB(*HTTP) +
MAIL(*SMTP) SMTP(*MSF) DIRSRV(*NONE) ADVSRV
(*PARTITION *CLUSTER) +
RPLCFG(*NO) DOMAIN(DEKKO) NETWORK(TCPIP) +
CERTID('/QUALITY/NOTES/DATA/cert.id') +
ADMID('/QUALITY/NOTES/DATA/user.id') +
SVRID('/QUALITY/NOTES/DATA/quality.id')
SBS(QUALITY)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Configuring Lotus Domino LEI server') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
ADDLEISVR SERVER(LEISERVE) LCLDOMSVR(LEISERVE)
DOMSVRDB(LEISERVE) CRTDB(*NO)
/*
+
| Do we need to run ADDDOMAPP?
+
*/
ADDDOMAPP SVRPATH((DOMFAX01 *NONE)) LICPGM(5733FXD)
/*
+
| I realize that we will probably have to reconfigure the fax devices
+
| since all of the resource names are probably different.
+
*/
ENDPGM
Rob Berendt
==================
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
