[Home] [Help]
213: delete from fnd_tns_alias_address_lists a
214: where a.Tns_Alias_Description_Guid
215: = l_descRec.Tns_Alias_Description_Guid ;
216:
217: fnd_app_system.register_tns_description
218: ( Alias_Name => p_alias_name,
219: Sequence_number=> l_descRec.sequence_number,
220: Failover => l_descRec.failover,
221: Load_Balance => l_descRec.load_balance,
277:
278: -- l_descRec.Service_Name := l_sourceDesc.Service_name;
279: -- l_descRec.Instance_Name := l_sourceDesc.Instance_name;
280:
281: fnd_app_system.register_tns_description
282: ( Alias_Name => p_alias_name,
283: Sequence_number=> l_descRec.sequence_number,
284: Failover => l_descRec.failover,
285: Load_Balance => l_descRec.load_balance,
308: for f_addrlist in c1(l_sourceDesc.Tns_Alias_Description_Guid) loop
309:
310: l_address_list_guid := sys_guid();
311:
312: fnd_app_system.register_tns_address_list
313: ( TNS_ALIAS_DESCRIPTION_GUID =>
314: l_descRec.Tns_Alias_Description_Guid,
315: Sequence_Number => f_addrlist.sequence_number,
316: Failover => f_addrlist.failover,
321:
322:
323: for f_addr in c2(f_addrlist.Tns_Alias_Address_List_Guid) loop
324:
325: fnd_app_system.register_tnsalias_address
326: ( TNS_ALIAS_ADDRESS_LIST_GUID => l_address_list_guid,
327: Listener_port_GUID=> f_addr.Listener_Port_GUID
328: );
329:
399: and abs(a.Sequence_Number) > p_actual_count;
400:
401: begin
402:
403: fnd_app_system.register_tnsalias
404: ( Alias_Name => p_alias_name,
405: Alias_Type => p_alias_type,
406: Failover => p_Failover,
407: Load_Balance => p_Load_Balance,
422: end if;
423:
424: -- Register primary descriptor - zero
425:
426: fnd_app_system.register_tns_description
427: ( Alias_Name => p_alias_name,
428: Sequence_Number=> 0,
429: Failover => p_Failover,
430: Load_Balance => p_Load_Balance,
463: then
464: l_address_list_guid := sys_guid();
465: end if;
466:
467: fnd_app_system.register_tns_address_list
468: ( TNS_ALIAS_DESCRIPTION_GUID =>
469: l_descRec.Tns_Alias_Description_Guid,
470: Sequence_Number => l_address_list_seqno,
471: Failover => p_Failover,
475: );
476:
477: -- Register Address
478:
479: fnd_app_system.register_tnsalias_address
480: ( TNS_ALIAS_ADDRESS_LIST_GUID => l_address_list_guid,
481: Listener_port_GUID=> p_Listener_Port_GUID
482: );
483:
622: then
623:
624: -- Create an unresolved descriptor.
625:
626: fnd_app_system.register_tns_description
627: ( Alias_Name => p_alias_name,
628: Sequence_Number=> i*-1,
629: Failover => p_Failover,
630: Load_Balance => p_Load_Balance,
782: fnd_tns_alias_set_usage c,fnd_tns_alias_sets d,
783: fnd_tns_aliases e, fnd_tns_alias_descriptions f
784: where a.System_GUID = p_System_Guid
785: and a.Server_GUID = b.Server_GUID
786: and b.server_type = fnd_app_system.C_DB_SERVER_TYPE
787: and a.Server_GUID = c.Server_GUID
788: and c.tns_alias_set_guid = d.tns_alias_set_guid
789: and d.tns_alias_set_type = fnd_app_system.C_ALIAS_SET_NAME_PUB
790: and d.tns_alias_set_guid = e.alias_set_guid
785: and a.Server_GUID = b.Server_GUID
786: and b.server_type = fnd_app_system.C_DB_SERVER_TYPE
787: and a.Server_GUID = c.Server_GUID
788: and c.tns_alias_set_guid = d.tns_alias_set_guid
789: and d.tns_alias_set_type = fnd_app_system.C_ALIAS_SET_NAME_PUB
790: and d.tns_alias_set_guid = e.alias_set_guid
791: and e.tns_alias_guid = f.tns_alias_guid
792: and f.sequence_number <> 0;
793:
845:
846: alt_instance_table(alt_index) := null;
847: end if;
848:
849: fnd_app_system.register_system(SystemName,SystemOwner,SystemCSINumber,
850: system_guid => null);
851:
852: select a.System_Guid
853: into l_System_Guid
857: l_node_name := buildNodeName( p_host_name => HostName,
858: p_domain => Domain,
859: p_platform => platform );
860:
861: fnd_app_system.register_node( name => l_node_name,
862: platform_id => platformNameToNo(platform),
863: forms_tier => 'N',
864: cp_tier => 'N',
865: web_tier => 'N',
879: using l_node_name;
880:
881: -- Need to create Oracle_Home before FND_SERVER.
882:
883: fnd_app_system.register_oraclehome
884: ( name => OracleHomeName,
885: Node_Id => l_node_id,
886: Path => OracleHomePath,
887: Version => OracleHomeVersion,
897: and a.path = OracleHomePath;
898:
899: -- Register Server
900:
901: fnd_app_system.register_server
902: ( Name => ServerName,
903: Node_Id => l_node_id,
904: Internal => 'Y',
905: Appl_Top_Guid => null,
903: Node_Id => l_node_id,
904: Internal => 'Y',
905: Appl_Top_Guid => null,
906: Server_type =>
907: fnd_app_system.C_DB_SERVER_TYPE,
908: Pri_Oracle_Home => l_Oracle_Home_Id,
909: Aux_Oracle_Home => null,
910: server_guid => null
911: );
916: where a.name = ServerName;
917:
918: -- Register the Server Map
919:
920: fnd_app_system.register_servermap ( Server_GUID => l_Server_GUID,
921: System_Guid => l_System_Guid
922: );
923:
924: -- Register database
922: );
923:
924: -- Register database
925:
926: fnd_app_system.register_database
927: ( db_name => DatabaseName,
928: db_domain => Domain,
929: Default_TNS_Alias_Guid=> null,
930: Is_Rac_db => ClusterDatabase,
937: from fnd_databases a
938: where a.db_name = DatabaseName
939: and a.db_domain = Domain;
940:
941: fnd_app_system.register_Database_Asg
942: ( db_name => DatabaseName,
943: assignment => fnd_app_system.C_APP_DB_ASSIGNMENT,
944: db_domain => Domain
945: );
939: and a.db_domain = Domain;
940:
941: fnd_app_system.register_Database_Asg
942: ( db_name => DatabaseName,
943: assignment => fnd_app_system.C_APP_DB_ASSIGNMENT,
944: db_domain => Domain
945: );
946:
947: -- Register Instance
945: );
946:
947: -- Register Instance
948:
949: fnd_app_system.register_Instance
950: ( db_name => DatabaseName,
951: Instance_Name => InstanceName,
952: Instance_Number => InstanceNumber,
953: Sid_GUID => null,
970: and a.Instance_Name = InstanceName;
971:
972: -- Register Sid - use Sid_Guid already allocated in fnd_database_instances.
973:
974: fnd_app_system.register_Sid ( Sid => InstanceSid,
975: sid_guid => l_instRec.sid_guid
976: );
977: -- Register Service and member
978:
975: sid_guid => l_instRec.sid_guid
976: );
977: -- Register Service and member
978:
979: fnd_app_system.register_service
980: ( Service_name => ServiceName,
981: db_name => DatabaseName,
982: db_domain => Domain,
983: Description => null,
1005: from fnd_database_services a
1006: where a.db_guid = l_db_guid
1007: and a.Service_name = ServiceName;
1008:
1009: fnd_app_system.register_service_Members
1010: ( db_name => DatabaseName,
1011: Instance_Name => InstanceName,
1012: Instance_Type => fnd_app_system.C_PREFERRED_INSTANCE,
1013: db_service_guid => l_db_service_guid,
1008:
1009: fnd_app_system.register_service_Members
1010: ( db_name => DatabaseName,
1011: Instance_Name => InstanceName,
1012: Instance_Type => fnd_app_system.C_PREFERRED_INSTANCE,
1013: db_service_guid => l_db_service_guid,
1014: db_domain => Domain
1015: );
1016:
1016:
1017: -- Register Alias Sets
1018:
1019: l_public_alias_set_name := Servername ||'_' ||
1020: fnd_app_system.C_ALIAS_SET_NAME_PUB;
1021: l_internal_alias_set_name := Servername ||'_' ||
1022: fnd_app_system.C_ALIAS_SET_NAME_INT;
1023:
1024: fnd_app_system.register_tnsalias_sets
1018:
1019: l_public_alias_set_name := Servername ||'_' ||
1020: fnd_app_system.C_ALIAS_SET_NAME_PUB;
1021: l_internal_alias_set_name := Servername ||'_' ||
1022: fnd_app_system.C_ALIAS_SET_NAME_INT;
1023:
1024: fnd_app_system.register_tnsalias_sets
1025: ( Alias_set_name => l_public_alias_set_name,
1026: Alias_set_type => fnd_app_system.C_ALIAS_SET_NAME_PUB );
1020: fnd_app_system.C_ALIAS_SET_NAME_PUB;
1021: l_internal_alias_set_name := Servername ||'_' ||
1022: fnd_app_system.C_ALIAS_SET_NAME_INT;
1023:
1024: fnd_app_system.register_tnsalias_sets
1025: ( Alias_set_name => l_public_alias_set_name,
1026: Alias_set_type => fnd_app_system.C_ALIAS_SET_NAME_PUB );
1027:
1028: select a.tns_alias_set_guid
1022: fnd_app_system.C_ALIAS_SET_NAME_INT;
1023:
1024: fnd_app_system.register_tnsalias_sets
1025: ( Alias_set_name => l_public_alias_set_name,
1026: Alias_set_type => fnd_app_system.C_ALIAS_SET_NAME_PUB );
1027:
1028: select a.tns_alias_set_guid
1029: into l_tns_alias_set_guid_pub
1030: from fnd_tns_alias_sets a
1029: into l_tns_alias_set_guid_pub
1030: from fnd_tns_alias_sets a
1031: where a.tns_alias_set_name = l_public_alias_set_name;
1032:
1033: fnd_app_system.register_aliasset_usage
1034: ( tns_alias_set_guid => l_tns_alias_set_guid_pub,
1035: server_guid => l_server_guid);
1036:
1037: fnd_app_system.register_tnsalias_sets
1033: fnd_app_system.register_aliasset_usage
1034: ( tns_alias_set_guid => l_tns_alias_set_guid_pub,
1035: server_guid => l_server_guid);
1036:
1037: fnd_app_system.register_tnsalias_sets
1038: ( Alias_set_name => l_internal_alias_set_name ,
1039: Alias_set_type => fnd_app_system.C_ALIAS_SET_NAME_INT );
1040:
1041: select a.tns_alias_set_guid
1035: server_guid => l_server_guid);
1036:
1037: fnd_app_system.register_tnsalias_sets
1038: ( Alias_set_name => l_internal_alias_set_name ,
1039: Alias_set_type => fnd_app_system.C_ALIAS_SET_NAME_INT );
1040:
1041: select a.tns_alias_set_guid
1042: into l_tns_alias_set_guid_int
1043: from fnd_tns_alias_sets a
1042: into l_tns_alias_set_guid_int
1043: from fnd_tns_alias_sets a
1044: where a.tns_alias_set_name = l_internal_alias_set_name;
1045:
1046: fnd_app_system.register_aliasset_usage
1047: ( tns_alias_set_guid => l_tns_alias_set_guid_int,
1048: server_guid => l_server_guid);
1049:
1050: -- Register Instance Listener
1048: server_guid => l_server_guid);
1049:
1050: -- Register Instance Listener
1051:
1052: fnd_app_system.register_Listener
1053: ( Listener_Name => ServerName,
1054: Server_Name => ServerName,
1055: tns_alias_name => InstanceName||'_'||
1056: fnd_app_system.C_LOCAL_ALIAS_ID,
1052: fnd_app_system.register_Listener
1053: ( Listener_Name => ServerName,
1054: Server_Name => ServerName,
1055: tns_alias_name => InstanceName||'_'||
1056: fnd_app_system.C_LOCAL_ALIAS_ID,
1057: listener_guid => null,
1058: alias_set_name => l_internal_alias_set_name
1059: );
1060: select a.Listener_GUID
1079: exit when f_port.port = ListenerPort;
1080:
1081: end loop;
1082:
1083: fnd_app_system.register_listener_ports (Listener_name=>ServerName,
1084: Port =>ListenerPort,
1085: server_guid =>l_server_guid,
1086: Listener_Port_Guid
1087: =>l_listener_port_guid
1095:
1096: -- Register local listener TNS alias
1097:
1098: register_db_alias( p_alias_name => InstanceName||'_'||
1099: fnd_app_system.C_LOCAL_ALIAS_ID,
1100: p_alias_type =>
1101: fnd_app_system.C_LOCAL_INST_TNS_ALIAS_TYPE,
1102: p_Failover => 'N',
1103: p_Load_Balance => 'N',
1097:
1098: register_db_alias( p_alias_name => InstanceName||'_'||
1099: fnd_app_system.C_LOCAL_ALIAS_ID,
1100: p_alias_type =>
1101: fnd_app_system.C_LOCAL_INST_TNS_ALIAS_TYPE,
1102: p_Failover => 'N',
1103: p_Load_Balance => 'N',
1104: p_Service_GUID => null,
1105: p_Instance_Guid => null,
1119: l_instRec.Remote_Listener_Alias <> l_remote_tns_alias_guid )
1120: then
1121: l_instRec.Remote_Listener_Alias := l_remote_tns_alias_guid;
1122:
1123: fnd_app_system.register_Instance
1124: ( db_name => DatabaseName,
1125: Instance_Name => l_instRec.Instance_Name,
1126: Instance_Number => l_instRec.Instance_Number,
1127: Sid_GUID => l_instRec.Sid_GUID,
1140: end if;
1141:
1142: register_db_alias
1143: ( p_Alias_Name => DatabaseName||'_'||
1144: fnd_app_system.C_REMOTE_ALIAS_ID,
1145: p_Alias_Type =>
1146: fnd_app_system.C_REMOTE_INST_TNS_ALIAS_TYPE,
1147: p_Failover => 'N',
1148: p_Load_Balance => 'N',
1142: register_db_alias
1143: ( p_Alias_Name => DatabaseName||'_'||
1144: fnd_app_system.C_REMOTE_ALIAS_ID,
1145: p_Alias_Type =>
1146: fnd_app_system.C_REMOTE_INST_TNS_ALIAS_TYPE,
1147: p_Failover => 'N',
1148: p_Load_Balance => 'N',
1149: p_Service_GUID => l_db_service_guid,
1150: p_Instance_Guid => null,
1158: -- Register Load Balance Alias.
1159:
1160: register_db_alias
1161: ( p_Alias_Name => DatabaseName||'_'||
1162: fnd_app_system.C_BALANCE_ALIAS_ID,
1163: p_Alias_Type =>
1164: fnd_app_system.C_DB_BALANCE_TNS_ALIAS_TYPE,
1165: p_Failover => 'Y',
1166: p_Load_Balance => 'Y',
1160: register_db_alias
1161: ( p_Alias_Name => DatabaseName||'_'||
1162: fnd_app_system.C_BALANCE_ALIAS_ID,
1163: p_Alias_Type =>
1164: fnd_app_system.C_DB_BALANCE_TNS_ALIAS_TYPE,
1165: p_Failover => 'Y',
1166: p_Load_Balance => 'Y',
1167: p_Service_GUID => l_db_service_guid,
1168: p_Instance_Guid => null,
1177:
1178: register_db_alias
1179: ( p_Alias_Name => InstanceName,
1180: p_Alias_Type =>
1181: fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE,
1182: p_Failover => 'N',
1183: p_Load_Balance => 'N',
1184: p_Service_GUID => l_db_service_guid,
1185: p_Instance_Guid => l_instRec.Instance_Guid,
1191: );
1192:
1193: register_db_alias
1194: ( p_Alias_Name => InstanceName||'_'||
1195: fnd_app_system.C_FAILOVER_ALIAS_ID,
1196: p_Alias_Type =>
1197: fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE,
1198: p_Failover => 'Y',
1199: p_Load_Balance => 'N',
1193: register_db_alias
1194: ( p_Alias_Name => InstanceName||'_'||
1195: fnd_app_system.C_FAILOVER_ALIAS_ID,
1196: p_Alias_Type =>
1197: fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE,
1198: p_Failover => 'Y',
1199: p_Load_Balance => 'N',
1200: p_Service_GUID => l_db_service_guid,
1201: p_Instance_Guid => l_instRec.Instance_Guid,
1216: fnd_tns_alias_set_usage c,fnd_tns_alias_sets d,
1217: fnd_tns_aliases e
1218: where a.System_GUID = l_System_Guid
1219: and a.Server_GUID = b.Server_GUID
1220: and b.server_type = fnd_app_system.C_DB_SERVER_TYPE
1221: and b.server_guid <> l_Server_Guid
1222: and a.Server_GUID = c.Server_GUID
1223: and c.tns_alias_set_guid = d.tns_alias_set_guid
1224: and d.tns_alias_set_type = fnd_app_system.C_ALIAS_SET_NAME_PUB
1220: and b.server_type = fnd_app_system.C_DB_SERVER_TYPE
1221: and b.server_guid <> l_Server_Guid
1222: and a.Server_GUID = c.Server_GUID
1223: and c.tns_alias_set_guid = d.tns_alias_set_guid
1224: and d.tns_alias_set_type = fnd_app_system.C_ALIAS_SET_NAME_PUB
1225: and d.tns_alias_set_guid = e.alias_set_guid
1226: and e.alias_name = DatabaseName;
1227:
1228: if ( l_db_alias_exists = 0 )
1243:
1244: register_db_alias
1245: ( p_Alias_Name => DatabaseName,
1246: p_Alias_Type =>
1247: fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE,
1248: p_Failover => 'N',
1249: p_Load_Balance => 'N',
1250: p_Service_GUID => l_db_service_guid,
1251: p_Instance_Guid => l_instRec.Instance_Guid,
1257: );
1258:
1259: register_db_alias
1260: ( p_Alias_Name => DatabaseName||'_'||
1261: fnd_app_system.C_FAILOVER_ALIAS_ID,
1262: p_Alias_Type =>
1263: fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE,
1264: p_Failover => 'Y',
1265: p_Load_Balance => 'N',
1259: register_db_alias
1260: ( p_Alias_Name => DatabaseName||'_'||
1261: fnd_app_system.C_FAILOVER_ALIAS_ID,
1262: p_Alias_Type =>
1263: fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE,
1264: p_Failover => 'Y',
1265: p_Load_Balance => 'N',
1266: p_Service_GUID => l_db_service_guid,
1267: p_Instance_Guid => l_instRec.Instance_Guid,
1288:
1289: register_db_alias
1290: ( p_Alias_Name => InstanceSid,
1291: p_Alias_Type =>
1292: fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE,
1293: p_Failover => 'N',
1294: p_Load_Balance => 'N',
1295: p_Service_GUID => l_db_service_guid,
1296: p_Instance_Guid => l_instRec.Instance_Guid,
1302: );
1303:
1304: register_db_alias
1305: ( p_Alias_Name => InstanceSid||'_'||
1306: fnd_app_system.C_FAILOVER_ALIAS_ID,
1307: p_Alias_Type =>
1308: fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE,
1309: p_Failover => 'Y',
1310: p_Load_Balance => 'N',
1304: register_db_alias
1305: ( p_Alias_Name => InstanceSid||'_'||
1306: fnd_app_system.C_FAILOVER_ALIAS_ID,
1307: p_Alias_Type =>
1308: fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE,
1309: p_Failover => 'Y',
1310: p_Load_Balance => 'N',
1311: p_Service_GUID => l_db_service_guid,
1312: p_Instance_Guid => l_instRec.Instance_Guid,
1375: from fnd_databases a,fnd_database_instances b,
1376: fnd_system_server_map c, fnd_app_servers d
1377: where c.system_guid = p_System_Guid
1378: and d.server_guid = c.server_guid
1379: and d.server_type = fnd_app_system.C_DB_SERVER_TYPE
1380: and b.server_guid = d.server_guid
1381: and b.db_guid = a.db_guid;
1382:
1383: cursor c2(p_db_guid raw) is
1390: from fnd_tns_aliases a
1391: where a.alias_name = p_alias_name
1392: and a.alias_set_guid = p_alias_set_guid
1393: and ( a.alias_type = nvl(p_alias_type,a.alias_type)
1394: or a.alias_type = fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE );
1395:
1396: cursor c4(p_tns_alias_guid raw) is
1397: select c.listener_port_guid
1398: from fnd_tns_alias_descriptions a, fnd_tns_alias_address_lists b,
1409: fnd_tns_aliases e
1410: where a.system_guid = p_System_Guid
1411: and a.server_guid = b.server_guid
1412: and b.tns_alias_set_guid = c.tns_alias_set_guid
1413: and c.tns_alias_set_type = fnd_app_system.C_ALIAS_SET_NAME_PUB
1414: and a.server_guid = d.server_guid
1415: and d.server_type = fnd_app_system.C_DB_SERVER_TYPE
1416: and e.alias_set_guid = b.tns_alias_set_guid
1417: and e.alias_name = p_alias_name
1411: and a.server_guid = b.server_guid
1412: and b.tns_alias_set_guid = c.tns_alias_set_guid
1413: and c.tns_alias_set_type = fnd_app_system.C_ALIAS_SET_NAME_PUB
1414: and a.server_guid = d.server_guid
1415: and d.server_type = fnd_app_system.C_DB_SERVER_TYPE
1416: and e.alias_set_guid = b.tns_alias_set_guid
1417: and e.alias_name = p_alias_name
1418: and ( e.alias_type = nvl(p_alias_type,e.alias_type)
1419: or e.alias_type = fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE );
1415: and d.server_type = fnd_app_system.C_DB_SERVER_TYPE
1416: and e.alias_set_guid = b.tns_alias_set_guid
1417: and e.alias_name = p_alias_name
1418: and ( e.alias_type = nvl(p_alias_type,e.alias_type)
1419: or e.alias_type = fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE );
1420:
1421: cursor c6(p_tns_alias_guid raw) is
1422: select a.Tns_Alias_Description_Guid
1423: from fnd_tns_alias_descriptions a
1558: end if;
1559:
1560: -- Adjust for load balance, instance.
1561:
1562: if (l_tns_aliases_rec.Alias_Type = fnd_app_system.C_DB_BALANCE_TNS_ALIAS_TYPE)
1563: then
1564:
1565: l_tns_aliases_rec.Failover := 'Y';
1566: l_tns_aliases_rec.Load_Balance := 'Y';
1589: then
1590:
1591: -- Get the alias guid for the port list.
1592:
1593: if (l_tns_aliases_rec.Alias_Type = fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE )
1594: then
1595:
1596: l_port_list_tns_guid := l_instance_tns_alias_guid;
1597: else
1701: from fnd_system_server_map x, fnd_app_servers y
1702: where x.system_guid = p_System_Guid
1703: and y.server_guid = x.server_guid
1704: and y.server_type =
1705: fnd_app_system.C_DB_SERVER_TYPE
1706: ) ;
1707:
1708: cursor c3(p_listener_guid raw)
1709: is select a.listener_port_guid,a.port
1716: then
1717: l_auto_create_aliases := true;
1718: end if;
1719:
1720: fnd_app_system.register_system(SystemName,SystemOwner,SystemCSINumber,
1721: System_guid=>null);
1722:
1723: select a.System_Guid
1724: into l_System_Guid
1728: l_node_name := buildNodeName( p_host_name => HostName,
1729: p_domain => Domain,
1730: p_platform => platform );
1731:
1732: fnd_app_system.register_Node( name => l_node_name,
1733: platform_id => platformNameToNo(platform),
1734: forms_tier => isFormsNode,
1735: cp_tier => isCPNode,
1736: web_tier => isWebNode,
1749: using l_node_name;
1750:
1751: -- Need to create Oracle_Homes and APPL_TOP before FND_SERVER.
1752:
1753: fnd_app_system.register_oraclehome
1754: ( name => PriOracleHomeName,
1755: Node_Id => l_node_id,
1756: Path => PriOracleHomePath,
1757: Version => PriOracleHomeVersion,
1759: File_System_GUID => null,
1760: oracle_home_id => null
1761: );
1762:
1763: fnd_app_system.register_oraclehome
1764: ( name => AuxOracleHomeName,
1765: Node_Id => l_node_id,
1766: Path => AuxOracleHomePath,
1767: Version => AuxOracleHomeVersion,
1769: File_System_GUID => null,
1770: oracle_home_id => null
1771: );
1772:
1773: fnd_app_system.register_appltop
1774: ( name => ApplTopName,
1775: Node_Id => l_node_id,
1776: Path => ApplTopPath,
1777: Shared => SharedApplTop,
1800: and a.path = ApplTopPath;
1801:
1802: -- Register Server
1803:
1804: fnd_app_system.register_server
1805: ( Name => ServerName,
1806: Node_Id => l_node_id,
1807: Internal => 'Y',
1808: Appl_Top_Guid => l_Appl_Top_Guid,
1806: Node_Id => l_node_id,
1807: Internal => 'Y',
1808: Appl_Top_Guid => l_Appl_Top_Guid,
1809: Server_type =>
1810: fnd_app_system.C_APP_SERVER_TYPE,
1811: Pri_Oracle_Home => l_Pri_Oracle_Home_Id,
1812: Aux_Oracle_Home => l_Aux_Oracle_Home_Id,
1813: server_guid => null
1814: );
1819: where a.name = ServerName;
1820:
1821: -- Register the Server Map
1822:
1823: fnd_app_system.register_servermap ( Server_GUID => l_Server_GUID,
1824: System_Guid => l_System_Guid
1825: );
1826:
1827: -- Register Alias Sets PUBLIC
1826:
1827: -- Register Alias Sets PUBLIC
1828:
1829: l_public_alias_set_name := Servername ||'_' ||
1830: fnd_app_system.C_ALIAS_SET_NAME_PUB;
1831:
1832: fnd_app_system.register_tnsalias_sets
1833: ( Alias_set_name => l_public_alias_set_name,
1834: Alias_set_type => fnd_app_system.C_ALIAS_SET_NAME_PUB );
1828:
1829: l_public_alias_set_name := Servername ||'_' ||
1830: fnd_app_system.C_ALIAS_SET_NAME_PUB;
1831:
1832: fnd_app_system.register_tnsalias_sets
1833: ( Alias_set_name => l_public_alias_set_name,
1834: Alias_set_type => fnd_app_system.C_ALIAS_SET_NAME_PUB );
1835:
1836: select a.tns_alias_set_guid
1830: fnd_app_system.C_ALIAS_SET_NAME_PUB;
1831:
1832: fnd_app_system.register_tnsalias_sets
1833: ( Alias_set_name => l_public_alias_set_name,
1834: Alias_set_type => fnd_app_system.C_ALIAS_SET_NAME_PUB );
1835:
1836: select a.tns_alias_set_guid
1837: into l_tns_alias_set_guid_pub
1838: from fnd_tns_alias_sets a
1837: into l_tns_alias_set_guid_pub
1838: from fnd_tns_alias_sets a
1839: where a.tns_alias_set_name = l_public_alias_set_name;
1840:
1841: fnd_app_system.register_aliasset_usage
1842: ( tns_alias_set_guid => l_tns_alias_set_guid_pub,
1843: server_guid => l_server_guid);
1844:
1845: -- Register APPS Listener
1843: server_guid => l_server_guid);
1844:
1845: -- Register APPS Listener
1846:
1847: fnd_app_system.register_listener
1848: ( Listener_Name =>
1849: fnd_app_system.C_APPS_LISTENER_ID
1850: || '_' || ServerName,
1851: Server_name => ServerName,
1845: -- Register APPS Listener
1846:
1847: fnd_app_system.register_listener
1848: ( Listener_Name =>
1849: fnd_app_system.C_APPS_LISTENER_ID
1850: || '_' || ServerName,
1851: Server_name => ServerName,
1852: tns_alias_name =>
1853: fnd_app_system.C_APPS_LISTENER_ID
1849: fnd_app_system.C_APPS_LISTENER_ID
1850: || '_' || ServerName,
1851: Server_name => ServerName,
1852: tns_alias_name =>
1853: fnd_app_system.C_APPS_LISTENER_ID
1854: || '_' || ServerName,
1855: listener_guid => null,
1856: alias_set_name => l_public_alias_set_name
1857: );
1859: select a.Listener_GUID
1860: into l_Listener_GUID
1861: from fnd_tns_listeners a
1862: where a.Server_GUID = l_Server_Guid
1863: and a.Listener_Name = fnd_app_system.C_APPS_LISTENER_ID ||
1864: '_' || ServerName;
1865:
1866: -- Register Listener Ports
1867:
1879: exit when f_port.port = to_number(RPCPort);
1880:
1881: end loop;
1882:
1883: fnd_app_system.register_listener_ports
1884: ( Listener_name => fnd_app_system.C_APPS_LISTENER_ID
1885: ||'_'|| ServerName,
1886: Port => to_number(RPCPort),
1887: server_guid => l_server_guid,
1880:
1881: end loop;
1882:
1883: fnd_app_system.register_listener_ports
1884: ( Listener_name => fnd_app_system.C_APPS_LISTENER_ID
1885: ||'_'|| ServerName,
1886: Port => to_number(RPCPort),
1887: server_guid => l_server_guid,
1888: Listener_Port_Guid
1940: end;
1941:
1942: register_alias
1943: ( p_Alias_Name => l_fndfs_alias,
1944: p_Alias_Type => fnd_app_system.C_FNDFS_TNS_ALIAS_TYPE,
1945: p_Failover => 'N',
1946: p_Load_Balance => 'N',
1947: p_Service_GUID => null,
1948: p_Instance_Guid => null,
1956: );
1957:
1958: register_alias
1959: ( p_Alias_Name => l_fndsm_alias,
1960: p_Alias_Type => fnd_app_system.C_FNDSM_TNS_ALIAS_TYPE,
1961: p_Failover => 'N',
1962: p_Load_Balance => 'N',
1963: p_Service_GUID => null,
1964: p_Instance_Guid => null,
1977: -- aliases, to ensure Instance aliases have priority over db aliases.
1978:
1979:
1980: register_app_alias( alias => SidDefaultAlias,
1981: type => fnd_app_system.C_DB_BALANCE_TNS_ALIAS_TYPE ,
1982: system_guid => l_System_Guid,
1983: alias_set_name => l_public_alias_set_name,
1984: alias_set_guid => l_tns_alias_set_guid_pub,
1985: auto_create => l_auto_create_aliases );
1984: alias_set_guid => l_tns_alias_set_guid_pub,
1985: auto_create => l_auto_create_aliases );
1986:
1987: register_app_alias( alias => ToolsInstanceAlias,
1988: type => fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE,
1989: system_guid => l_System_Guid,
1990: alias_set_name => l_public_alias_set_name,
1991: alias_set_guid => l_tns_alias_set_guid_pub,
1992: auto_create => l_auto_create_aliases );
1991: alias_set_guid => l_tns_alias_set_guid_pub,
1992: auto_create => l_auto_create_aliases );
1993:
1994: register_app_alias( alias => WebInstanceAlias,
1995: type => fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE ,
1996: system_guid => l_System_Guid,
1997: alias_set_name => l_public_alias_set_name,
1998: alias_set_guid => l_tns_alias_set_guid_pub,
1999: auto_create => l_auto_create_aliases );
1998: alias_set_guid => l_tns_alias_set_guid_pub,
1999: auto_create => l_auto_create_aliases );
2000:
2001: register_app_alias( alias => JDBCSid,
2002: type => fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE ,
2003: system_guid => l_System_Guid,
2004: alias_set_name => l_public_alias_set_name,
2005: alias_set_guid => l_tns_alias_set_guid_pub,
2006: auto_create => l_auto_create_aliases );
2179: fmtline(f_desc.instance_name,16)
2180: );
2181:
2182: if ( f_tns_alias.Alias_Type
2183: = fnd_app_system.C_LOCAL_INST_TNS_ALIAS_TYPE )
2184: then
2185:
2186: show_tns_addresses(f_desc.tns_alias_description_guid);
2187:
2187:
2188: end if;
2189:
2190: if ( f_tns_alias.Alias_Type
2191: = fnd_app_system.C_REMOTE_INST_TNS_ALIAS_TYPE )
2192: then
2193:
2194: show_ServiceName(f_desc.DB_Service_GUID);
2195: show_tns_addresses(f_desc.tns_alias_description_guid);
2196:
2197: end if;
2198:
2199: if ( f_tns_alias.Alias_Type
2200: = fnd_app_system.C_DB_BALANCE_TNS_ALIAS_TYPE )
2201: then
2202:
2203: show_ServiceName(f_desc.DB_Service_GUID);
2204: show_tns_addresses(f_desc.tns_alias_description_guid);
2205:
2206: end if;
2207:
2208: if ( f_tns_alias.Alias_Type
2209: = fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE )
2210: then
2211:
2212: show_Service_Instance(f_desc.DB_Service_GUID,
2213: f_desc.DB_instance_guid);
2215:
2216: end if;
2217:
2218: if ( f_tns_alias.Alias_Type
2219: = fnd_app_system.C_FNDFS_TNS_ALIAS_TYPE or
2220: f_tns_alias.Alias_Type
2221: = fnd_app_system.C_FNDSM_TNS_ALIAS_TYPE )
2222: then
2223:
2217:
2218: if ( f_tns_alias.Alias_Type
2219: = fnd_app_system.C_FNDFS_TNS_ALIAS_TYPE or
2220: f_tns_alias.Alias_Type
2221: = fnd_app_system.C_FNDSM_TNS_ALIAS_TYPE )
2222: then
2223:
2224: show_tns_addresses(f_desc.tns_alias_description_guid);
2225:
2243: cursor c1 is
2244: select a.TNS_ALIAS_GUID
2245: from fnd_tns_aliases a, fnd_tns_alias_set_usage b
2246: where a.Alias_Name like 'FNDFS%'
2247: and a.Alias_Type = fnd_app_system.C_FNDFS_TNS_ALIAS_TYPE
2248: and b.server_guid = p_Server_Guid
2249: and a.alias_set_guid = b.tns_alias_set_guid;
2250:
2251: cursor c2 is
2251: cursor c2 is
2252: select a.TNS_ALIAS_GUID
2253: from fnd_tns_aliases a, fnd_tns_alias_set_usage b
2254: where a.Alias_Name like 'FNDSM%'
2255: and a.Alias_Type = fnd_app_system.C_FNDSM_TNS_ALIAS_TYPE
2256: and b.server_guid = p_Server_Guid
2257: and a.alias_set_guid = b.tns_alias_set_guid;
2258:
2259: begin
2311: cursor c6(p_db_name varchar2,p_server_guid raw) is
2312: select a.TNS_ALIAS_GUID
2313: from fnd_tns_aliases a, fnd_tns_alias_set_usage b
2314: where a.Alias_Name = p_db_name
2315: and a.Alias_Type = fnd_app_system.C_DB_INST_TNS_ALIAS_TYPE
2316: and b.Server_Guid = p_server_guid
2317: and b.Tns_Alias_Set_Guid = a.Alias_Set_Guid;
2318:
2319: l_service_member number;
2595:
2596: end loop;
2597: end if;
2598:
2599: if ( f_server.server_type = fnd_app_system.C_DB_SERVER_TYPE )
2600: then
2601: show_instance(f_server.Server_Guid);
2602: end if;
2603:
2600: then
2601: show_instance(f_server.Server_Guid);
2602: end if;
2603:
2604: if ( f_server.server_type = fnd_app_system.C_APP_SERVER_TYPE )
2605: then
2606: show_FNDFSSM(f_server.Server_Guid);
2607: end if;
2608:
2637: fnd_tns_listeners c
2638: where a.System_GUID = p_System_GUID
2639: and a.Server_GUID = b.Server_GUID
2640: and b.name = p_ServerName
2641: and b.server_type = fnd_app_system.C_DB_SERVER_TYPE
2642: and b.Server_GUID = c.Server_GUID(+);
2643:
2644: cursor c3(p_Server_GUID raw,p_InstanceName varchar2,
2645: p_DatabaseName varchar2,p_Domain varchar2) is
2751: where b.db_guid = a.db_guid );
2752:
2753: delete from fnd_database_assignments a
2754: where a.db_guid = f_instance.db_guid
2755: and a.assignment = fnd_app_system.C_APP_DB_ASSIGNMENT
2756: and not exists ( select 1
2757: from fnd_databases b
2758: where b.db_guid = a.db_guid ) ;
2759:
2787: fnd_tns_listeners c
2788: where a.System_GUID = p_System_GUID
2789: and a.Server_GUID = b.Server_GUID
2790: and b.name = p_ServerName
2791: and b.server_type = fnd_app_system.C_APP_SERVER_TYPE
2792: and b.Server_GUID = c.Server_GUID(+);
2793:
2794: begin
2795:
2937: for f_system in c1(SystemName) loop
2938:
2939: for f_server in c2(f_system.System_Guid,ServerName) loop
2940:
2941: if ( f_server.Server_type = fnd_app_system.C_DB_SERVER_TYPE )
2942: then
2943:
2944: for f_instance in c3(f_server.Server_GUID) loop
2945:
2949: end loop;
2950:
2951: end if;
2952:
2953: if ( f_server.Server_type = fnd_app_system.C_APP_SERVER_TYPE )
2954: then
2955:
2956: remove_AppNode(SystemName,ServerName);
2957: