[Home] [Help]
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,
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);
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;
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;
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);
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