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