Enterprise server rename, the works burger!

Here is a complete set of SQL for an enterprise server rename, well for me at least.  It takes the form of a PL/SQL block.  It does printers, job queues, OCM’s data sources, LDAP… the works!  Please enjoy (use at your own risk too btw!!!)

spool c:\shannon\sql\MachineRename_SY.txt 

SELECT ora_database_name from dual;

set time on
set echo on 
set flush on  
set feedback on
set timing on

--servermap

update svm812.f98611 set omsrvr = 'NEWSERVER' where omsrvr =
'OLDSERVER' ;

update svm812.f98611 set omdatp = 'NEWSERVER - 812 Server Map'
where omdatp = 'OLDSERVER - 812 Server Map' ;

update svm812.f98611 set omdatp = 'NEWSERVER'
where omdatp = 'OLDSERVER' ;

update svm812.f986101 set omdatp = 'NEWSERVER'
where omdatp = 'OLDSERVER' ;

--system

update sy812.f98611 set omdatp = 'NEWSERVER - Logic'
where omdatp = 'OLDSERVER - Logic' ;

update sy812.f98611 set omdatp = 'NEWSERVER - RTE'
where omdatp = 'OLDSERVER - RTE' ;

update sy812.f98611 set omdatp = 'NEWSERVER - XAPI'
where omdatp = 'OLDSERVER - XAPI' ;

update sy812.f98611 set omdatb = 'NEWSERVER - 812 Server Map '
where omdatb = 'OLDSERVER - 812 Server Map ' ;

update sy812.f98611 set omsrvr = 'NEWSERVER' where omsrvr =
'OLDSERVER' ;

update sy812.f98611 set omdatp = 'NEWSERVER - 812 Server Map'
where omdatp = 'OLDSERVER - 812 Server Map' ;

update sy812.f98611 set omdatp = 'NEWSERVER'
where omdatp = 'OLDSERVER' ;

update sy812.f986101 set omdatp = 'NEWSERVER'
where omdatp = 'OLDSERVER' ;

update sy812.f986101 set omdatp = 'NEWSERVER - Logic'
where omdatp = 'OLDSERVER - Logic' ;

update sy812.f986101 set omdatp = 'NEWSERVER - RTE'
where omdatp = 'OLDSERVER - RTE' ;

update sy812.f986101 set omdatp = 'NEWSERVER - XAPI'
where omdatp = 'OLDSERVER - XAPI' ;

update sy812.f9650 set mmmkey = 'NEWSERVER' where mmmkey = 'OLDSERVER' ;

update sy812.f9650 set mmdatp = 'NEWSERVER - 812 Server Map'
where mmdatp = 'OLDSERVER - 812 Server Map' ;

update sy812.f9651 set mdmkey = 'NEWSERVER' where mdmkey =
'OLDSERVER' ;

update sy812.f96511 set skmkey  = 'NEWSERVER' where skmkey =
'OLDSERVER' ;

--If you have LDAP enabled

update sy812.f00928 set lcentloc = 'NEWSERVER' where lcentloc = 'OLDSERVER' ;

update sy812.f00928 set lcentloc = 'NEWSERVER' where lcentloc = 'OLDSERVER' ;

--Printers

update sy812.f986167 set DPEXEHOST = 'NEWSERVER' where DPEXEHOST = 'OLDSERVER' ;

--Job Queues
update sy812.f986130 set qcexehost = 'NEWSERVER' where qcexehost = 'OLDSERVER' ;

spool off