× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. DOMINO400
  3. November 2001

Migration/merge of Domino

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 thread ...
Follow-Ups:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.