[Home] [Help]
1: package body FND_NET_SERVICES as
2: /* $Header: AFCPNETB.pls 120.8 2006/10/06 12:24:09 swkhande noship $ */
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:
85:
86: begin
87:
88: execute immediate 'select a.node_id ' ||
89: ' from fnd_nodes a ' ||
90: ' where upper(a.node_name) = upper(:v1) '
91: into l_node_id
92: using l_node_name;
93:
872: db_tier => 'Y',
873: p_virtual_ip => VirtualHostName );
874:
875: execute immediate 'select a.node_id ' ||
876: ' from fnd_nodes a ' ||
877: ' where upper(a.node_name) = upper(:v1) '
878: into l_node_id
879: using l_node_name;
880:
1742: p_domain => Domain,
1743: db_tier => 'N' );
1744:
1745: execute immediate 'select a.node_id ' ||
1746: ' from fnd_nodes a ' ||
1747: ' where upper(a.node_name) = upper(:v1) '
1748: into l_node_id
1749: using l_node_name;
1750:
2465: is select name,Path,Version,Description
2466: from fnd_oracle_homes
2467: where oracle_home_id = p_oracle_home_id;
2468:
2469: l_nodeRec fnd_nodes%rowtype;
2470:
2471: begin
2472:
2473: dbms_output.enable(1000000);
2500:
2501: for f_server in c2(f_app_rec.System_GUID) loop
2502:
2503: execute immediate 'select a.* ' ||
2504: ' from fnd_nodes a ' ||
2505: ' where a.node_id = :v1 '
2506: into l_nodeRec
2507: using f_server.node_id;
2508:
2531: fmtline(f_server.internal,10) ||
2532: fmtline(f_server.server_type,10) ||
2533: fmtline(l_nodeRec.node_name,10)
2534:
2535: -- Only certain versions of fnd_nodes has host/domain. So to be safe,
2536: -- we just comment out the following lines.
2537:
2538: -- fmtline(l_nodeRec.host,10) ||
2539: -- fmtline(l_nodeRec.domain,15)