Создан линк pnp между двумя серверами (их расположение разные города). Джоб запускает
процедуру:
CREATE OR REPLACE PROCEDURE zm.for_job_01 IS
BEGIN
INSERT INTO zm.prot_zagr_from_kv
(data,rezhim,num,procedura,error)
VALUES
(SYSDATE,'начал',0,'JOB обмена',NULL);
INSERT INTO zm.prot_zagr_from_kv
(data,rezhim,num,procedura,error)
VALUES
(SYSDATE,'начал',1,'IMP_FROM_kv',NULL);
imp_from_kv;
INSERT INTO zm.prot_zagr_from_kv
(data,rezhim,num,procedura,error)
VALUES
(SYSDATE,'начал',2,'AUTO_INSERT_102_EO',NULL);
INSERT INTO zm.prot_zagr_from_kv
(data,rezhim,num,procedura,error)
VALUES
(SYSDATE,'начал',3,'IMP_TASK_FROM_kv',NULL);
imp_task_from_kv ;
INSERT INTO zm.prot_zagr_from_kv
(data,rezhim,num,procedura,error)
VALUES
(SYSDATE,'закончил',4,'JOB обмена',NULL);
DELETE FROM zm.prot_zagr_from_kv WHERE data<=SYSDATE-60;
COMMIT;
END for_job_01;
/
В теле процедуры zm.for_job_01 есть две процедуры:
CREATE OR REPLACE PROCEDURE zm.imp_from_kv
IS
BEGIN
MERGE INTO zm.i_kp02 loc
USING (SELECT *
FROM zm.i_kp02$
reg@pnp
WHERE dkr>=sysdate-1 ) kie
ON (loc.id = kie.id)
WHEN MATCHED THEN
UPDATE
SET loc.udln = kie.udln,
...
...
...
loc.od_system = NULL
WHERE loc.dkr<kie.dkr
WHEN NOT MATCHED THEN
INSERT(loc.udln,...loc.od_system)
VALUES (kie.udln,...null);
end imp_from_kv;
/
CREATE OR REPLACE procedure zm.imp_task_from_kv
IS
BEGIN
FOR c IN (SELECT id,dvv,dkr
FROM zm.d_kp02task$
reg@pnp kv
WHERE dkr>=SYSDATE-1 AND id IN
(SELECT id
FROM zm.d_kp02task
WHERE id=kv.id AND dkr<kv.dkr)
)
LOOP
DELETE FROM zm.d_kp02task WHERE id=c.id;
END LOOP;
INSERT INTO zm.d_kp02task
(ID,..RPNM)
SELECT ID,...RPNM
FROM zm.d_kp02task$
reg@pnp
WHERE (dkr>=SYSDATE-1 OR dvv>=SYSDATE-1) AND id NOT IN
(SELECT id FROM zm.d_kp02task);
FOR c IN (SELECT usr,dmfd
FROM www.w_users$
reg@pnp kv
WHERE dmfd>=SYSDATE-1 AND usr IN
(SELECT usr FROM zm.w_users$reg WHERE usr=kv.usr AND dmfd<kv.dmfd)
)
LOOP
DELETE FROM zm.w_users$reg WHERE usr=c.usr;
END LOOP;
INSERT INTO zm.w_users$reg
(USR,...ZV
FROM www.w_users$
reg@pnp
WHERE (dmfd>=SYSDATE-1 OR dcrt>=SYSDATE-1) AND usr NOT IN
(SELECT usr FROM zm.w_users$reg);
FOR c IN (SELECT id,dkr
FROM zm.d_ptrl$
reg@pnp kv
WHERE dkr>=SYSDATE-1 AND id IN
(SELECT id FROM zm.d_ptrl$reg WHERE id=kv.id AND dkr<kv.dkr))
LOOP
DELETE FROM zm.d_ptrl$reg WHERE id=c.id;
END LOOP;
INSERT INTO zm.d_ptrl$reg
(ID,...ORG)
SELECT ID,...ORG
FROM zm.d_ptrl$
reg@pnp
WHERE (dvv>=SYSDATE-1 OR dkr>=SYSDATE-1) AND id NOT IN
(SELECT id FROM zm.d_ptrl$reg);
END imp_task_from_kv;
В первый раз джоб отрабатывает нормально, процедуры zm.imp_from_kv; m.imp_task_from_kv
заполняют (изменяют) данными (данные) в соответствующих таблицах. Однако в дальнейшем падает линк между серверами. Тест линка дает ошибку ORA-12560: TNS:ошибка адаптера протокола. Перезагрузка ОС восстанавливает связь.
Что можно предпринять для устранения проблемы ?
