1430: --------->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
1431: ---------- create views
1432:
1433: FUNCTION create_exv_views(slocal_name IN VARCHAR2) RETURN VARCHAR2 AS
1434: v_fndnam_link_name cz_servers.local_name%type;
1435:
1436: v_bom_string varchar2(4000);
1437: v_item_master_string varchar2(4000);
1438: v_items_string varchar2(4000);
1485: BEGIN
1486:
1487: IF (upper(slocal_name) NOT IN ('LOCAL','ERROR')) THEN
1488: SELECT fndnam_link_name INTO v_fndnam_link_name
1489: FROM cz_servers
1490: WHERE local_name = slocal_name;
1491: v_fndnam_link_name := '@'|| v_fndnam_link_name;
1492: ELSE
1493: v_fndnam_link_name := '';
1960: p_db_link OUT NOCOPY VARCHAR2,
1961: p_do_compile IN VARCHAR2 -- DEFAULT '1'
1962: ) IS
1963: v_code VARCHAR2(1);
1964: v_import_enabled cz_servers.import_enabled%TYPE;
1965: v_local_name cz_servers.local_name%TYPE;
1966: BEGIN
1967: BEGIN
1968: SELECT local_name,fndnam_link_name,import_enabled
1961: p_do_compile IN VARCHAR2 -- DEFAULT '1'
1962: ) IS
1963: v_code VARCHAR2(1);
1964: v_import_enabled cz_servers.import_enabled%TYPE;
1965: v_local_name cz_servers.local_name%TYPE;
1966: BEGIN
1967: BEGIN
1968: SELECT local_name,fndnam_link_name,import_enabled
1969: INTO v_local_name,p_db_link,v_import_enabled FROM CZ_SERVERS
1965: v_local_name cz_servers.local_name%TYPE;
1966: BEGIN
1967: BEGIN
1968: SELECT local_name,fndnam_link_name,import_enabled
1969: INTO v_local_name,p_db_link,v_import_enabled FROM CZ_SERVERS
1970: WHERE import_enabled='1';
1971:
1972: ---- check DB Link ----
1973: p_link_status:=isLinkAlive(p_db_link);
2019:
2020: PROCEDURE recreate_exv_views_cp(errbuf IN OUT NOCOPY VARCHAR2,
2021: retcode IN OUT NOCOPY INTEGER) IS
2022: v_views_status VARCHAR2(1);
2023: v_db_link CZ_SERVERS.fndnam_link_name%TYPE;
2024: BEGIN
2025: retcode:=0;
2026: recreate_exv_views(v_views_status,v_db_link, 1);
2027: IF v_views_status=LINK_WORKS THEN
2124: END drop_exv_views;
2125:
2126:
2127: --------->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
2128: ---------- to insert records into cz_servers
2129:
2130: PROCEDURE populate_cz_server_cp( Errbuf IN OUT NOCOPY VARCHAR2,
2131: Retcode IN OUT NOCOPY PLS_INTEGER,
2132: LOCAL_NAME IN VARCHAR2
2140: ,IMPORT_ENABLED IN VARCHAR2
2141: )
2142: AS
2143:
2144: v_hostname cz_servers.hostname%TYPE;
2145: v_db_listener_port cz_servers.db_listener_port%TYPE;
2146: v_instance_name cz_servers.instance_name%TYPE;
2147: v_local_name cz_servers.local_name%TYPE;
2148: v_fndnam cz_servers.fndnam%TYPE;
2141: )
2142: AS
2143:
2144: v_hostname cz_servers.hostname%TYPE;
2145: v_db_listener_port cz_servers.db_listener_port%TYPE;
2146: v_instance_name cz_servers.instance_name%TYPE;
2147: v_local_name cz_servers.local_name%TYPE;
2148: v_fndnam cz_servers.fndnam%TYPE;
2149: v_global_identity cz_servers.global_identity%TYPE;
2142: AS
2143:
2144: v_hostname cz_servers.hostname%TYPE;
2145: v_db_listener_port cz_servers.db_listener_port%TYPE;
2146: v_instance_name cz_servers.instance_name%TYPE;
2147: v_local_name cz_servers.local_name%TYPE;
2148: v_fndnam cz_servers.fndnam%TYPE;
2149: v_global_identity cz_servers.global_identity%TYPE;
2150: v_notes cz_servers.notes%TYPE;
2143:
2144: v_hostname cz_servers.hostname%TYPE;
2145: v_db_listener_port cz_servers.db_listener_port%TYPE;
2146: v_instance_name cz_servers.instance_name%TYPE;
2147: v_local_name cz_servers.local_name%TYPE;
2148: v_fndnam cz_servers.fndnam%TYPE;
2149: v_global_identity cz_servers.global_identity%TYPE;
2150: v_notes cz_servers.notes%TYPE;
2151: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2144: v_hostname cz_servers.hostname%TYPE;
2145: v_db_listener_port cz_servers.db_listener_port%TYPE;
2146: v_instance_name cz_servers.instance_name%TYPE;
2147: v_local_name cz_servers.local_name%TYPE;
2148: v_fndnam cz_servers.fndnam%TYPE;
2149: v_global_identity cz_servers.global_identity%TYPE;
2150: v_notes cz_servers.notes%TYPE;
2151: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2152: v_import_enabled cz_servers.import_enabled%TYPE;
2145: v_db_listener_port cz_servers.db_listener_port%TYPE;
2146: v_instance_name cz_servers.instance_name%TYPE;
2147: v_local_name cz_servers.local_name%TYPE;
2148: v_fndnam cz_servers.fndnam%TYPE;
2149: v_global_identity cz_servers.global_identity%TYPE;
2150: v_notes cz_servers.notes%TYPE;
2151: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2152: v_import_enabled cz_servers.import_enabled%TYPE;
2153:
2146: v_instance_name cz_servers.instance_name%TYPE;
2147: v_local_name cz_servers.local_name%TYPE;
2148: v_fndnam cz_servers.fndnam%TYPE;
2149: v_global_identity cz_servers.global_identity%TYPE;
2150: v_notes cz_servers.notes%TYPE;
2151: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2152: v_import_enabled cz_servers.import_enabled%TYPE;
2153:
2154: v_error_status VARCHAR2(4000) := '0';
2147: v_local_name cz_servers.local_name%TYPE;
2148: v_fndnam cz_servers.fndnam%TYPE;
2149: v_global_identity cz_servers.global_identity%TYPE;
2150: v_notes cz_servers.notes%TYPE;
2151: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2152: v_import_enabled cz_servers.import_enabled%TYPE;
2153:
2154: v_error_status VARCHAR2(4000) := '0';
2155: v_success char(1) := '0';
2148: v_fndnam cz_servers.fndnam%TYPE;
2149: v_global_identity cz_servers.global_identity%TYPE;
2150: v_notes cz_servers.notes%TYPE;
2151: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2152: v_import_enabled cz_servers.import_enabled%TYPE;
2153:
2154: v_error_status VARCHAR2(4000) := '0';
2155: v_success char(1) := '0';
2156: v_warning char(1) := '1';
2189:
2190: BEGIN
2191: SELECT count(*)
2192: INTO v_server_count
2193: FROM cz_servers
2194: WHERE cz_servers.local_name = v_local_name
2195: OR ( cz_servers.hostname = v_hostname
2196: AND cz_servers.instance_name = v_instance_name
2197: AND cz_servers.db_listener_port = v_db_listener_port) ;
2190: BEGIN
2191: SELECT count(*)
2192: INTO v_server_count
2193: FROM cz_servers
2194: WHERE cz_servers.local_name = v_local_name
2195: OR ( cz_servers.hostname = v_hostname
2196: AND cz_servers.instance_name = v_instance_name
2197: AND cz_servers.db_listener_port = v_db_listener_port) ;
2198: EXCEPTION
2191: SELECT count(*)
2192: INTO v_server_count
2193: FROM cz_servers
2194: WHERE cz_servers.local_name = v_local_name
2195: OR ( cz_servers.hostname = v_hostname
2196: AND cz_servers.instance_name = v_instance_name
2197: AND cz_servers.db_listener_port = v_db_listener_port) ;
2198: EXCEPTION
2199: WHEN OTHERS THEN
2192: INTO v_server_count
2193: FROM cz_servers
2194: WHERE cz_servers.local_name = v_local_name
2195: OR ( cz_servers.hostname = v_hostname
2196: AND cz_servers.instance_name = v_instance_name
2197: AND cz_servers.db_listener_port = v_db_listener_port) ;
2198: EXCEPTION
2199: WHEN OTHERS THEN
2200: v_server_count := 0;
2193: FROM cz_servers
2194: WHERE cz_servers.local_name = v_local_name
2195: OR ( cz_servers.hostname = v_hostname
2196: AND cz_servers.instance_name = v_instance_name
2197: AND cz_servers.db_listener_port = v_db_listener_port) ;
2198: EXCEPTION
2199: WHEN OTHERS THEN
2200: v_server_count := 0;
2201: END;
2207: INTO v_import_enabled
2208: FROM dual;
2209:
2210: IF (v_import_enabled = '1') THEN
2211: SELECT count(*) INTO v_import_count FROM cz_servers
2212: WHERE import_enabled = '1';
2213: IF (V_IMPORT_count > 0) THEN
2214: Errbuf := cz_utils.get_text('CZ_IMP_SERVER_EXISTS_DEF');
2215: log_report(Errbuf);
2242: END;
2243: END IF;
2244:
2245: BEGIN
2246: SELECT cz_servers_s.NEXTVAL
2247: INTO v_server_id
2248: FROM dual;
2249: FND_FILE.PUT_LINE(FND_FILE.LOG,'Inserting ' || v_server_id);
2250: INSERT INTO CZ_SERVERS (SERVER_LOCAL_ID,LOCAL_NAME, HOSTNAME, DB_LISTENER_PORT,
2246: SELECT cz_servers_s.NEXTVAL
2247: INTO v_server_id
2248: FROM dual;
2249: FND_FILE.PUT_LINE(FND_FILE.LOG,'Inserting ' || v_server_id);
2250: INSERT INTO CZ_SERVERS (SERVER_LOCAL_ID,LOCAL_NAME, HOSTNAME, DB_LISTENER_PORT,
2251: INSTANCE_NAME, FNDNAM, GLOBAL_IDENTITY, NOTES,
2252: FNDNAM_LINK_NAME, IMPORT_ENABLED)
2253: VALUES (v_server_id,LOCAL_NAME, HOSTNAME, DB_LISTENER_PORT,
2254: INSTANCE_NAME, FNDNAM, V_GLOBAL_IDENTITY, NOTES,
2273:
2274: END populate_cz_server_cp;
2275:
2276: ---------->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
2277: ----------proc for altering records into cz_servers
2278:
2279: PROCEDURE alter_cz_server_cp( Errbuf IN OUT NOCOPY VARCHAR2,
2280: Retcode IN OUT NOCOPY PLS_INTEGER,
2281: LOCAL_NAME IN VARCHAR2,
2289: IMPORT_ENABLED IN VARCHAR2
2290: )
2291: AS
2292: v_error_status VARCHAR2(4000) := '0';
2293: v_hostname cz_servers.hostname%TYPE;
2294: v_db_listener_port cz_servers.db_listener_port%TYPE;
2295: v_instance_name cz_servers.instance_name%TYPE;
2296: v_local_name cz_servers.local_name%TYPE;
2297: v_fndnam cz_servers.fndnam%TYPE;
2290: )
2291: AS
2292: v_error_status VARCHAR2(4000) := '0';
2293: v_hostname cz_servers.hostname%TYPE;
2294: v_db_listener_port cz_servers.db_listener_port%TYPE;
2295: v_instance_name cz_servers.instance_name%TYPE;
2296: v_local_name cz_servers.local_name%TYPE;
2297: v_fndnam cz_servers.fndnam%TYPE;
2298: v_global_identity cz_servers.global_identity%TYPE;
2291: AS
2292: v_error_status VARCHAR2(4000) := '0';
2293: v_hostname cz_servers.hostname%TYPE;
2294: v_db_listener_port cz_servers.db_listener_port%TYPE;
2295: v_instance_name cz_servers.instance_name%TYPE;
2296: v_local_name cz_servers.local_name%TYPE;
2297: v_fndnam cz_servers.fndnam%TYPE;
2298: v_global_identity cz_servers.global_identity%TYPE;
2299: v_notes cz_servers.notes%TYPE;
2292: v_error_status VARCHAR2(4000) := '0';
2293: v_hostname cz_servers.hostname%TYPE;
2294: v_db_listener_port cz_servers.db_listener_port%TYPE;
2295: v_instance_name cz_servers.instance_name%TYPE;
2296: v_local_name cz_servers.local_name%TYPE;
2297: v_fndnam cz_servers.fndnam%TYPE;
2298: v_global_identity cz_servers.global_identity%TYPE;
2299: v_notes cz_servers.notes%TYPE;
2300: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2293: v_hostname cz_servers.hostname%TYPE;
2294: v_db_listener_port cz_servers.db_listener_port%TYPE;
2295: v_instance_name cz_servers.instance_name%TYPE;
2296: v_local_name cz_servers.local_name%TYPE;
2297: v_fndnam cz_servers.fndnam%TYPE;
2298: v_global_identity cz_servers.global_identity%TYPE;
2299: v_notes cz_servers.notes%TYPE;
2300: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2301: v_import_enabled cz_servers.import_enabled%TYPE;
2294: v_db_listener_port cz_servers.db_listener_port%TYPE;
2295: v_instance_name cz_servers.instance_name%TYPE;
2296: v_local_name cz_servers.local_name%TYPE;
2297: v_fndnam cz_servers.fndnam%TYPE;
2298: v_global_identity cz_servers.global_identity%TYPE;
2299: v_notes cz_servers.notes%TYPE;
2300: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2301: v_import_enabled cz_servers.import_enabled%TYPE;
2302:
2295: v_instance_name cz_servers.instance_name%TYPE;
2296: v_local_name cz_servers.local_name%TYPE;
2297: v_fndnam cz_servers.fndnam%TYPE;
2298: v_global_identity cz_servers.global_identity%TYPE;
2299: v_notes cz_servers.notes%TYPE;
2300: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2301: v_import_enabled cz_servers.import_enabled%TYPE;
2302:
2303: v_server_count NUMBER := 0;
2296: v_local_name cz_servers.local_name%TYPE;
2297: v_fndnam cz_servers.fndnam%TYPE;
2298: v_global_identity cz_servers.global_identity%TYPE;
2299: v_notes cz_servers.notes%TYPE;
2300: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2301: v_import_enabled cz_servers.import_enabled%TYPE;
2302:
2303: v_server_count NUMBER := 0;
2304: v_server_id NUMBER ;
2297: v_fndnam cz_servers.fndnam%TYPE;
2298: v_global_identity cz_servers.global_identity%TYPE;
2299: v_notes cz_servers.notes%TYPE;
2300: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2301: v_import_enabled cz_servers.import_enabled%TYPE;
2302:
2303: v_server_count NUMBER := 0;
2304: v_server_id NUMBER ;
2305: v_import_count NUMBER := 0;
2310: v_errorString VARCHAR2(1024) :='ALTER_SERVER_CP: ';
2311: v_createstring varchar2(4000);
2312:
2313: v_views_status VARCHAR2(1);
2314: v_db_link CZ_SERVERS.fndnam_link_name%TYPE;
2315:
2316: l_hostname cz_servers.hostname%TYPE;
2317: l_db_listener_port cz_servers.db_listener_port%TYPE;
2318: l_instance_name cz_servers.instance_name%TYPE;
2312:
2313: v_views_status VARCHAR2(1);
2314: v_db_link CZ_SERVERS.fndnam_link_name%TYPE;
2315:
2316: l_hostname cz_servers.hostname%TYPE;
2317: l_db_listener_port cz_servers.db_listener_port%TYPE;
2318: l_instance_name cz_servers.instance_name%TYPE;
2319: l_fndnam cz_servers.fndnam%TYPE;
2320: l_global_identity cz_servers.global_identity%TYPE;
2313: v_views_status VARCHAR2(1);
2314: v_db_link CZ_SERVERS.fndnam_link_name%TYPE;
2315:
2316: l_hostname cz_servers.hostname%TYPE;
2317: l_db_listener_port cz_servers.db_listener_port%TYPE;
2318: l_instance_name cz_servers.instance_name%TYPE;
2319: l_fndnam cz_servers.fndnam%TYPE;
2320: l_global_identity cz_servers.global_identity%TYPE;
2321: l_notes cz_servers.notes%TYPE;
2314: v_db_link CZ_SERVERS.fndnam_link_name%TYPE;
2315:
2316: l_hostname cz_servers.hostname%TYPE;
2317: l_db_listener_port cz_servers.db_listener_port%TYPE;
2318: l_instance_name cz_servers.instance_name%TYPE;
2319: l_fndnam cz_servers.fndnam%TYPE;
2320: l_global_identity cz_servers.global_identity%TYPE;
2321: l_notes cz_servers.notes%TYPE;
2322: l_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2315:
2316: l_hostname cz_servers.hostname%TYPE;
2317: l_db_listener_port cz_servers.db_listener_port%TYPE;
2318: l_instance_name cz_servers.instance_name%TYPE;
2319: l_fndnam cz_servers.fndnam%TYPE;
2320: l_global_identity cz_servers.global_identity%TYPE;
2321: l_notes cz_servers.notes%TYPE;
2322: l_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2323: l_import_enabled cz_servers.import_enabled%TYPE;
2316: l_hostname cz_servers.hostname%TYPE;
2317: l_db_listener_port cz_servers.db_listener_port%TYPE;
2318: l_instance_name cz_servers.instance_name%TYPE;
2319: l_fndnam cz_servers.fndnam%TYPE;
2320: l_global_identity cz_servers.global_identity%TYPE;
2321: l_notes cz_servers.notes%TYPE;
2322: l_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2323: l_import_enabled cz_servers.import_enabled%TYPE;
2324: matching_local_name cz_servers.local_name%TYPE;
2317: l_db_listener_port cz_servers.db_listener_port%TYPE;
2318: l_instance_name cz_servers.instance_name%TYPE;
2319: l_fndnam cz_servers.fndnam%TYPE;
2320: l_global_identity cz_servers.global_identity%TYPE;
2321: l_notes cz_servers.notes%TYPE;
2322: l_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2323: l_import_enabled cz_servers.import_enabled%TYPE;
2324: matching_local_name cz_servers.local_name%TYPE;
2325:
2318: l_instance_name cz_servers.instance_name%TYPE;
2319: l_fndnam cz_servers.fndnam%TYPE;
2320: l_global_identity cz_servers.global_identity%TYPE;
2321: l_notes cz_servers.notes%TYPE;
2322: l_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2323: l_import_enabled cz_servers.import_enabled%TYPE;
2324: matching_local_name cz_servers.local_name%TYPE;
2325:
2326: BEGIN
2319: l_fndnam cz_servers.fndnam%TYPE;
2320: l_global_identity cz_servers.global_identity%TYPE;
2321: l_notes cz_servers.notes%TYPE;
2322: l_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2323: l_import_enabled cz_servers.import_enabled%TYPE;
2324: matching_local_name cz_servers.local_name%TYPE;
2325:
2326: BEGIN
2327:
2320: l_global_identity cz_servers.global_identity%TYPE;
2321: l_notes cz_servers.notes%TYPE;
2322: l_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2323: l_import_enabled cz_servers.import_enabled%TYPE;
2324: matching_local_name cz_servers.local_name%TYPE;
2325:
2326: BEGIN
2327:
2328: v_hostname := LTRIM(RTRIM(HOSTNAME)) ;
2341: SELECT SERVER_LOCAL_ID,hostname,db_listener_port,instance_name,
2342: fndnam,global_identity,notes,upper(fndnam_link_name),import_enabled
2343: INTO v_server_id,l_hostname,l_db_listener_port,l_instance_name,
2344: l_fndnam,l_global_identity,l_notes,l_fndnam_link_name,l_import_enabled
2345: FROM cz_servers
2346: WHERE cz_servers.local_name = v_local_name;
2347:
2348: BEGIN
2349: BEGIN
2342: fndnam,global_identity,notes,upper(fndnam_link_name),import_enabled
2343: INTO v_server_id,l_hostname,l_db_listener_port,l_instance_name,
2344: l_fndnam,l_global_identity,l_notes,l_fndnam_link_name,l_import_enabled
2345: FROM cz_servers
2346: WHERE cz_servers.local_name = v_local_name;
2347:
2348: BEGIN
2349: BEGIN
2350: SELECT decode(import_enabled,'Y','1','N','0','0')
2351: INTO v_import_enabled
2352: FROM dual;
2353:
2354: SELECT local_name into matching_local_name
2355: FROM cz_servers
2356: WHERE hostname = v_hostname
2357: AND instance_name = v_instance_name
2358: AND db_listener_port = v_db_listener_port
2359: AND fndnam = v_fndnam
2382: END IF;
2383:
2384: IF (v_import_enabled = '1') THEN
2385: BEGIN
2386: SELECT count(*) INTO v_import_count FROM cz_servers
2387: WHERE import_enabled = '1'
2388: AND local_name <> v_local_name;
2389: IF (V_IMPORT_count > 0) THEN
2390: -- another server has import enabled, only one is allowed
2465: return;
2466: END;
2467:
2468: BEGIN
2469: UPDATE CZ_SERVERS SET
2470: LOCAL_NAME = v_local_name,
2471: HOSTNAME = v_hostname,
2472: DB_LISTENER_PORT = v_db_listener_port,
2473: INSTANCE_NAME = v_instance_name,
2475: GLOBAL_IDENTITY = v_global_identity ,
2476: NOTES = v_notes ,
2477: FNDNAM_LINK_NAME = v_fndnam_link_name ,
2478: IMPORT_ENABLED = v_import_enabled
2479: WHERE cz_servers.server_local_id = v_server_id ;
2480: EXCEPTION
2481: WHEN OTHERS THEN
2482: Retcode := '2';
2483: errbuf := cz_utils.get_text('CZ_MOD_SERVER_ERR','SQLERRM',Sqlerrm);
2526:
2527: /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
2528: <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
2529: ------------------------------------------------------------------------------
2530: PROCEDURE show_cz_servers_cp(Errbuf OUT NOCOPY VARCHAR2,
2531: Retcode OUT NOCOPY NUMBER)
2532: AS
2533:
2534: CURSOR C_GETSERVERS IS
2533:
2534: CURSOR C_GETSERVERS IS
2535: SELECT LOCAL_NAME, HOSTNAME, DB_LISTENER_PORT, INSTANCE_NAME,
2536: SERVER_DB_VERSION, FNDNAM, GLOBAL_IDENTITY, NOTES,FNDNAM_LINK_NAME, Decode(IMPORT_ENABLED, '1', 'Y', '0','N',IMPORT_ENABLED)
2537: FROM CZ_SERVERS
2538: WHERE SERVER_LOCAL_ID >= 0;
2539:
2540: lLocalName CZ_SERVERS.LOCAL_NAME%TYPE;
2541: lHostName CZ_SERVERS.HOSTNAME%TYPE;
2536: SERVER_DB_VERSION, FNDNAM, GLOBAL_IDENTITY, NOTES,FNDNAM_LINK_NAME, Decode(IMPORT_ENABLED, '1', 'Y', '0','N',IMPORT_ENABLED)
2537: FROM CZ_SERVERS
2538: WHERE SERVER_LOCAL_ID >= 0;
2539:
2540: lLocalName CZ_SERVERS.LOCAL_NAME%TYPE;
2541: lHostName CZ_SERVERS.HOSTNAME%TYPE;
2542: lDbListenerPort CZ_SERVERS.DB_LISTENER_PORT%TYPE;
2543: lInstanceName CZ_SERVERS.INSTANCE_NAME%TYPE;
2544: lServerDbVersion CZ_SERVERS.SERVER_DB_VERSION%TYPE;
2537: FROM CZ_SERVERS
2538: WHERE SERVER_LOCAL_ID >= 0;
2539:
2540: lLocalName CZ_SERVERS.LOCAL_NAME%TYPE;
2541: lHostName CZ_SERVERS.HOSTNAME%TYPE;
2542: lDbListenerPort CZ_SERVERS.DB_LISTENER_PORT%TYPE;
2543: lInstanceName CZ_SERVERS.INSTANCE_NAME%TYPE;
2544: lServerDbVersion CZ_SERVERS.SERVER_DB_VERSION%TYPE;
2545: lFndNam CZ_SERVERS.FNDNAM%TYPE;
2538: WHERE SERVER_LOCAL_ID >= 0;
2539:
2540: lLocalName CZ_SERVERS.LOCAL_NAME%TYPE;
2541: lHostName CZ_SERVERS.HOSTNAME%TYPE;
2542: lDbListenerPort CZ_SERVERS.DB_LISTENER_PORT%TYPE;
2543: lInstanceName CZ_SERVERS.INSTANCE_NAME%TYPE;
2544: lServerDbVersion CZ_SERVERS.SERVER_DB_VERSION%TYPE;
2545: lFndNam CZ_SERVERS.FNDNAM%TYPE;
2546: lGlobalIdentity CZ_SERVERS.GLOBAL_IDENTITY%TYPE;
2539:
2540: lLocalName CZ_SERVERS.LOCAL_NAME%TYPE;
2541: lHostName CZ_SERVERS.HOSTNAME%TYPE;
2542: lDbListenerPort CZ_SERVERS.DB_LISTENER_PORT%TYPE;
2543: lInstanceName CZ_SERVERS.INSTANCE_NAME%TYPE;
2544: lServerDbVersion CZ_SERVERS.SERVER_DB_VERSION%TYPE;
2545: lFndNam CZ_SERVERS.FNDNAM%TYPE;
2546: lGlobalIdentity CZ_SERVERS.GLOBAL_IDENTITY%TYPE;
2547: lNotes CZ_SERVERS.NOTES%TYPE;
2540: lLocalName CZ_SERVERS.LOCAL_NAME%TYPE;
2541: lHostName CZ_SERVERS.HOSTNAME%TYPE;
2542: lDbListenerPort CZ_SERVERS.DB_LISTENER_PORT%TYPE;
2543: lInstanceName CZ_SERVERS.INSTANCE_NAME%TYPE;
2544: lServerDbVersion CZ_SERVERS.SERVER_DB_VERSION%TYPE;
2545: lFndNam CZ_SERVERS.FNDNAM%TYPE;
2546: lGlobalIdentity CZ_SERVERS.GLOBAL_IDENTITY%TYPE;
2547: lNotes CZ_SERVERS.NOTES%TYPE;
2548: lFndNamLinkName CZ_SERVERS.FNDNAM_LINK_NAME%TYPE;
2541: lHostName CZ_SERVERS.HOSTNAME%TYPE;
2542: lDbListenerPort CZ_SERVERS.DB_LISTENER_PORT%TYPE;
2543: lInstanceName CZ_SERVERS.INSTANCE_NAME%TYPE;
2544: lServerDbVersion CZ_SERVERS.SERVER_DB_VERSION%TYPE;
2545: lFndNam CZ_SERVERS.FNDNAM%TYPE;
2546: lGlobalIdentity CZ_SERVERS.GLOBAL_IDENTITY%TYPE;
2547: lNotes CZ_SERVERS.NOTES%TYPE;
2548: lFndNamLinkName CZ_SERVERS.FNDNAM_LINK_NAME%TYPE;
2549: lImportEnabled CZ_SERVERS.IMPORT_ENABLED%TYPE;
2542: lDbListenerPort CZ_SERVERS.DB_LISTENER_PORT%TYPE;
2543: lInstanceName CZ_SERVERS.INSTANCE_NAME%TYPE;
2544: lServerDbVersion CZ_SERVERS.SERVER_DB_VERSION%TYPE;
2545: lFndNam CZ_SERVERS.FNDNAM%TYPE;
2546: lGlobalIdentity CZ_SERVERS.GLOBAL_IDENTITY%TYPE;
2547: lNotes CZ_SERVERS.NOTES%TYPE;
2548: lFndNamLinkName CZ_SERVERS.FNDNAM_LINK_NAME%TYPE;
2549: lImportEnabled CZ_SERVERS.IMPORT_ENABLED%TYPE;
2550:
2543: lInstanceName CZ_SERVERS.INSTANCE_NAME%TYPE;
2544: lServerDbVersion CZ_SERVERS.SERVER_DB_VERSION%TYPE;
2545: lFndNam CZ_SERVERS.FNDNAM%TYPE;
2546: lGlobalIdentity CZ_SERVERS.GLOBAL_IDENTITY%TYPE;
2547: lNotes CZ_SERVERS.NOTES%TYPE;
2548: lFndNamLinkName CZ_SERVERS.FNDNAM_LINK_NAME%TYPE;
2549: lImportEnabled CZ_SERVERS.IMPORT_ENABLED%TYPE;
2550:
2551: v_errorString VARCHAR2(1024) :='SHOW_SERVERS_CP: ';
2544: lServerDbVersion CZ_SERVERS.SERVER_DB_VERSION%TYPE;
2545: lFndNam CZ_SERVERS.FNDNAM%TYPE;
2546: lGlobalIdentity CZ_SERVERS.GLOBAL_IDENTITY%TYPE;
2547: lNotes CZ_SERVERS.NOTES%TYPE;
2548: lFndNamLinkName CZ_SERVERS.FNDNAM_LINK_NAME%TYPE;
2549: lImportEnabled CZ_SERVERS.IMPORT_ENABLED%TYPE;
2550:
2551: v_errorString VARCHAR2(1024) :='SHOW_SERVERS_CP: ';
2552:
2545: lFndNam CZ_SERVERS.FNDNAM%TYPE;
2546: lGlobalIdentity CZ_SERVERS.GLOBAL_IDENTITY%TYPE;
2547: lNotes CZ_SERVERS.NOTES%TYPE;
2548: lFndNamLinkName CZ_SERVERS.FNDNAM_LINK_NAME%TYPE;
2549: lImportEnabled CZ_SERVERS.IMPORT_ENABLED%TYPE;
2550:
2551: v_errorString VARCHAR2(1024) :='SHOW_SERVERS_CP: ';
2552:
2553: BEGIN
2580: WHEN OTHERS THEN
2581: Errbuf:= cz_utils.get_text('CZ_SHOW_SERVERS_ERR','SQLERRM',Sqlerrm);
2582: log_report(v_errorString || errbuf);
2583: retcode := 2;
2584: END show_cz_servers_cp;
2585:
2586: ------------------------------------------------------------------------------
2587: FUNCTION create_remote_hgrid_view(p_server_id IN NUMBER, p_fndnam_link_name IN VARCHAR2)
2588: RETURN VARCHAR2 IS
2608: LOCAL_NAME IN VARCHAR2,
2609: PASSWORD IN VARCHAR2)
2610: AS
2611:
2612: v_hostname cz_servers.hostname%TYPE;
2613: v_instance_name cz_servers.instance_name%TYPE;
2614: v_db_listener_port cz_servers.db_listener_port%TYPE;
2615: v_fndnam cz_servers.fndnam%TYPE;
2616: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2609: PASSWORD IN VARCHAR2)
2610: AS
2611:
2612: v_hostname cz_servers.hostname%TYPE;
2613: v_instance_name cz_servers.instance_name%TYPE;
2614: v_db_listener_port cz_servers.db_listener_port%TYPE;
2615: v_fndnam cz_servers.fndnam%TYPE;
2616: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2617: v_local_name cz_servers.local_name%TYPE;
2610: AS
2611:
2612: v_hostname cz_servers.hostname%TYPE;
2613: v_instance_name cz_servers.instance_name%TYPE;
2614: v_db_listener_port cz_servers.db_listener_port%TYPE;
2615: v_fndnam cz_servers.fndnam%TYPE;
2616: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2617: v_local_name cz_servers.local_name%TYPE;
2618: v_server_db_version cz_servers.server_db_version%TYPE;
2611:
2612: v_hostname cz_servers.hostname%TYPE;
2613: v_instance_name cz_servers.instance_name%TYPE;
2614: v_db_listener_port cz_servers.db_listener_port%TYPE;
2615: v_fndnam cz_servers.fndnam%TYPE;
2616: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2617: v_local_name cz_servers.local_name%TYPE;
2618: v_server_db_version cz_servers.server_db_version%TYPE;
2619: v_import_enabled cz_servers.import_enabled%TYPE;
2612: v_hostname cz_servers.hostname%TYPE;
2613: v_instance_name cz_servers.instance_name%TYPE;
2614: v_db_listener_port cz_servers.db_listener_port%TYPE;
2615: v_fndnam cz_servers.fndnam%TYPE;
2616: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2617: v_local_name cz_servers.local_name%TYPE;
2618: v_server_db_version cz_servers.server_db_version%TYPE;
2619: v_import_enabled cz_servers.import_enabled%TYPE;
2620: v_server_id cz_servers.server_local_id%TYPE;
2613: v_instance_name cz_servers.instance_name%TYPE;
2614: v_db_listener_port cz_servers.db_listener_port%TYPE;
2615: v_fndnam cz_servers.fndnam%TYPE;
2616: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2617: v_local_name cz_servers.local_name%TYPE;
2618: v_server_db_version cz_servers.server_db_version%TYPE;
2619: v_import_enabled cz_servers.import_enabled%TYPE;
2620: v_server_id cz_servers.server_local_id%TYPE;
2621: v_cursor NUMBER;
2614: v_db_listener_port cz_servers.db_listener_port%TYPE;
2615: v_fndnam cz_servers.fndnam%TYPE;
2616: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2617: v_local_name cz_servers.local_name%TYPE;
2618: v_server_db_version cz_servers.server_db_version%TYPE;
2619: v_import_enabled cz_servers.import_enabled%TYPE;
2620: v_server_id cz_servers.server_local_id%TYPE;
2621: v_cursor NUMBER;
2622: v_NumRows NUMBER;
2615: v_fndnam cz_servers.fndnam%TYPE;
2616: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2617: v_local_name cz_servers.local_name%TYPE;
2618: v_server_db_version cz_servers.server_db_version%TYPE;
2619: v_import_enabled cz_servers.import_enabled%TYPE;
2620: v_server_id cz_servers.server_local_id%TYPE;
2621: v_cursor NUMBER;
2622: v_NumRows NUMBER;
2623: v_dummy NUMBER;
2616: v_fndnam_link_name cz_servers.fndnam_link_name%TYPE;
2617: v_local_name cz_servers.local_name%TYPE;
2618: v_server_db_version cz_servers.server_db_version%TYPE;
2619: v_import_enabled cz_servers.import_enabled%TYPE;
2620: v_server_id cz_servers.server_local_id%TYPE;
2621: v_cursor NUMBER;
2622: v_NumRows NUMBER;
2623: v_dummy NUMBER;
2624: xerror char(1);
2648: v_fndnam,
2649: v_fndnam_link_name,
2650: v_import_enabled,
2651: v_server_id
2652: FROM cz_servers
2653: WHERE cz_servers.local_name = v_local_name;
2654:
2655: IF v_fndnam_link_name IS NOT NULL THEN
2656: BEGIN
2649: v_fndnam_link_name,
2650: v_import_enabled,
2651: v_server_id
2652: FROM cz_servers
2653: WHERE cz_servers.local_name = v_local_name;
2654:
2655: IF v_fndnam_link_name IS NOT NULL THEN
2656: BEGIN
2657:
2730: END;
2731:
2732:
2733: BEGIN
2734: UPDATE CZ_SERVERS SET
2735: SERVER_DB_VERSION = v_server_db_version
2736: WHERE cz_servers.local_name = v_local_name ;
2737: COMMIT;
2738: EXCEPTION
2732:
2733: BEGIN
2734: UPDATE CZ_SERVERS SET
2735: SERVER_DB_VERSION = v_server_db_version
2736: WHERE cz_servers.local_name = v_local_name ;
2737: COMMIT;
2738: EXCEPTION
2739: WHEN OTHERS THEN
2740: errbuf := cz_utils.get_text('CZ_DB_VERSION_UPDATE_FAILURE', 'SQLERRM', Sqlerrm);
3053: register_spx_process('View Servers',
3054: 'CZSHOWSERVERS',
3055: application_name,
3056: 'Show Remote Servers',
3057: 'CZ_ORAAPPS_INTEGRATE.SHOW_CZ_SERVERS_CP',
3058: request_group,
3059: cz_schema);
3060: EXCEPTION
3061: WHEN OTHERS THEN
3081: lCopy_Child_Models PLS_INTEGER;
3082:
3083: v_link_status VARCHAR2(1);
3084: v_code VARCHAR2(1);
3085: v_db_link cz_servers.fndnam_link_name%TYPE;
3086: v_local_name cz_servers.local_name%TYPE;
3087: v_import_enabled cz_servers.import_enabled%TYPE;
3088: v_ret BOOLEAN := false;
3089:
3082:
3083: v_link_status VARCHAR2(1);
3084: v_code VARCHAR2(1);
3085: v_db_link cz_servers.fndnam_link_name%TYPE;
3086: v_local_name cz_servers.local_name%TYPE;
3087: v_import_enabled cz_servers.import_enabled%TYPE;
3088: v_ret BOOLEAN := false;
3089:
3090: BEGIN
3083: v_link_status VARCHAR2(1);
3084: v_code VARCHAR2(1);
3085: v_db_link cz_servers.fndnam_link_name%TYPE;
3086: v_local_name cz_servers.local_name%TYPE;
3087: v_import_enabled cz_servers.import_enabled%TYPE;
3088: v_ret BOOLEAN := false;
3089:
3090: BEGIN
3091: retcode:=0;
3108: END;
3109:
3110: BEGIN
3111: SELECT local_name,fndnam_link_name,import_enabled
3112: INTO v_local_name,v_db_link,v_import_enabled FROM CZ_SERVERS
3113: WHERE import_enabled='1';
3114: EXCEPTION
3115: WHEN TOO_MANY_ROWS THEN
3116: RAISE CZ_ADMIN.IMP_TOO_MANY_SERVERS;
3208: retcode OUT NOCOPY NUMBER ) IS
3209: v_link_status VARCHAR2(1);
3210: v_code VARCHAR2(1);
3211: v_ret BOOLEAN:=FALSE;
3212: v_db_link cz_servers.fndnam_link_name%TYPE;
3213: v_local_name cz_servers.local_name%TYPE;
3214: v_import_enabled cz_servers.import_enabled%TYPE;
3215: BEGIN
3216: BEGIN
3209: v_link_status VARCHAR2(1);
3210: v_code VARCHAR2(1);
3211: v_ret BOOLEAN:=FALSE;
3212: v_db_link cz_servers.fndnam_link_name%TYPE;
3213: v_local_name cz_servers.local_name%TYPE;
3214: v_import_enabled cz_servers.import_enabled%TYPE;
3215: BEGIN
3216: BEGIN
3217: SELECT local_name,fndnam_link_name,import_enabled
3210: v_code VARCHAR2(1);
3211: v_ret BOOLEAN:=FALSE;
3212: v_db_link cz_servers.fndnam_link_name%TYPE;
3213: v_local_name cz_servers.local_name%TYPE;
3214: v_import_enabled cz_servers.import_enabled%TYPE;
3215: BEGIN
3216: BEGIN
3217: SELECT local_name,fndnam_link_name,import_enabled
3218: INTO v_local_name,v_db_link,v_import_enabled FROM CZ_SERVERS
3214: v_import_enabled cz_servers.import_enabled%TYPE;
3215: BEGIN
3216: BEGIN
3217: SELECT local_name,fndnam_link_name,import_enabled
3218: INTO v_local_name,v_db_link,v_import_enabled FROM CZ_SERVERS
3219: WHERE import_enabled='1';
3220: EXCEPTION
3221: WHEN TOO_MANY_ROWS THEN
3222: RAISE CZ_ADMIN.IMP_TOO_MANY_SERVERS;
3280: COPY_CHILD_MODELS IN VARCHAR2 DEFAULT '0') IS
3281: v_link_status VARCHAR2(1);
3282: v_code VARCHAR2(1);
3283: v_ret BOOLEAN:=FALSE;
3284: v_db_link cz_servers.fndnam_link_name%TYPE;
3285: v_local_name cz_servers.local_name%TYPE;
3286: v_import_enabled cz_servers.import_enabled%TYPE;
3287: BEGIN
3288: BEGIN
3281: v_link_status VARCHAR2(1);
3282: v_code VARCHAR2(1);
3283: v_ret BOOLEAN:=FALSE;
3284: v_db_link cz_servers.fndnam_link_name%TYPE;
3285: v_local_name cz_servers.local_name%TYPE;
3286: v_import_enabled cz_servers.import_enabled%TYPE;
3287: BEGIN
3288: BEGIN
3289: SELECT local_name,fndnam_link_name,import_enabled
3282: v_code VARCHAR2(1);
3283: v_ret BOOLEAN:=FALSE;
3284: v_db_link cz_servers.fndnam_link_name%TYPE;
3285: v_local_name cz_servers.local_name%TYPE;
3286: v_import_enabled cz_servers.import_enabled%TYPE;
3287: BEGIN
3288: BEGIN
3289: SELECT local_name,fndnam_link_name,import_enabled
3290: INTO v_local_name,v_db_link,v_import_enabled FROM CZ_SERVERS
3286: v_import_enabled cz_servers.import_enabled%TYPE;
3287: BEGIN
3288: BEGIN
3289: SELECT local_name,fndnam_link_name,import_enabled
3290: INTO v_local_name,v_db_link,v_import_enabled FROM CZ_SERVERS
3291: WHERE import_enabled='1';
3292: EXCEPTION
3293: WHEN TOO_MANY_ROWS THEN
3294: RAISE CZ_ADMIN.IMP_TOO_MANY_SERVERS;
3392: PROCEDURE sync_all_models_cp
3393: (errbuf OUT NOCOPY VARCHAR2,
3394: retcode OUT NOCOPY NUMBER) IS
3395: v_ret BOOLEAN;
3396: v_TARGET_INSTANCE CZ_SERVERS.INSTANCE_NAME%TYPE;
3397: BEGIN
3398: SELECT LOCAL_NAME
3399: INTO v_TARGET_INSTANCE
3400: FROM CZ_SERVERS
3396: v_TARGET_INSTANCE CZ_SERVERS.INSTANCE_NAME%TYPE;
3397: BEGIN
3398: SELECT LOCAL_NAME
3399: INTO v_TARGET_INSTANCE
3400: FROM CZ_SERVERS
3401: WHERE import_enabled='1';
3402:
3403: EXECUTE IMMEDIATE
3404: 'BEGIN CZ_BOM_SYNCH.synchronize_all_models_cp(CZ_ORAAPPS_INTEGRATE.mERRBUF,CZ_ORAAPPS_INTEGRATE.mRETCODE,'||