[Home] [Help]
1: package body FND_NET_SERVICES as
2: /* $Header: AFCPNETB.pls 120.9 2010/07/28 05:18:49 upinjark ship $ */
3:
4: -- This package uses dynamic SQL to query fnd_nodes, due to various
5: -- backward compatibility issues.
6:
7: type alt_instance_type is table of varchar2(255) index by binary_integer;
8:
87:
88: begin
89:
90: execute immediate 'select a.node_id ' ||
91: ' from fnd_nodes a ' ||
92: ' where upper(a.node_name) = upper(:v1) '
93: into l_node_id
94: using l_node_name;
95:
874: db_tier => 'Y',
875: p_virtual_ip => VirtualHostName );
876:
877: execute immediate 'select a.node_id ' ||
878: ' from fnd_nodes a ' ||
879: ' where upper(a.node_name) = upper(:v1) '
880: into l_node_id
881: using l_node_name;
882:
1744: p_domain => Domain,
1745: db_tier => 'N' );
1746:
1747: execute immediate 'select a.node_id ' ||
1748: ' from fnd_nodes a ' ||
1749: ' where upper(a.node_name) = upper(:v1) '
1750: into l_node_id
1751: using l_node_name;
1752:
2467: is select name,Path,Version,Description
2468: from fnd_oracle_homes
2469: where oracle_home_id = p_oracle_home_id;
2470:
2471: l_nodeRec fnd_nodes%rowtype;
2472:
2473: begin
2474:
2475: dbms_output.enable(1000000);
2502:
2503: for f_server in c2(f_app_rec.System_GUID) loop
2504:
2505: execute immediate 'select a.* ' ||
2506: ' from fnd_nodes a ' ||
2507: ' where a.node_id = :v1 '
2508: into l_nodeRec
2509: using f_server.node_id;
2510:
2533: fmtline(f_server.internal,10) ||
2534: fmtline(f_server.server_type,10) ||
2535: fmtline(l_nodeRec.node_name,10)
2536:
2537: -- Only certain versions of fnd_nodes has host/domain. So to be safe,
2538: -- we just comment out the following lines.
2539:
2540: -- fmtline(l_nodeRec.host,10) ||
2541: -- fmtline(l_nodeRec.domain,15)