Home > database >  Please take a look at this trigger is what mean
Please take a look at this trigger is what mean

Time:09-18

Customers there is an oracle trigger, the trigger to the other two oracle server data synchronization, this trigger is how to other database synchronization data? Also did not use dblink?

 CREATE OR REPLACE the TRIGGER "QGTG" T_BJ_CB_T_ZSWSBJ_IUD 
AFTER the INSERT OR UPDATE OR DELETE ON BJ_CB_T_ZSWSBJ
FOR EACH ROW
DECLARE
V_program_name VARCHAR2 (128);
Cur INTEGER;
V_procname VARCHAR2 (128);
Rows_processed INTEGER;
File_name VARCHAR2 (100);
File_no NUMBER;
Clobdata VARCHAR2 (32767);
The BEGIN
SELECT the LOWER (program) INTO v_program_name FROM v $session WHERE audsid=TO_NUMBER (USERENV (' sessionid '));
IF INSTR (v_program_name, 'xmltodb) & gt; 0 THEN
The RETURN;
END IF;
Cur:=DBMS_SQL. OPEN_CURSOR;
DBMS_SQL. PARSE (cur, 'select the LOWER (procname) from exprocdata', DBMS_SQL. NATIVE);
DBMS_SQL. DEFINE_COLUMN (v_procname cur, 1, 128);
Rows_processed:=DBMS_SQL. EXECUTE (cur);
LOOP
EXIT the WHEN DBMS_SQL. FETCH_ROWS (cur)=0;
DBMS_SQL. COLUMN_VALUE (cur, 1, v_procname);
IF SUBSTR (v_program_name, 1, LENGTHB (v_procname))=v_procname THEN
DBMS_SQL. CLOSE_CURSOR (cur);
The RETURN;
END IF;
END LOOP;
DBMS_SQL. CLOSE_CURSOR (cur);
The SELECT EXDATABUFFER_SEQUENCE. NEXTVAL INTO file_no FROM dual;
IF INSERTING THEN
The BEGIN
Clobdata:='[BJ_CB_T_ZSWSBJ # INSERT# AI]' | | CRH (10);
Clobdata:=clobdata | | 'CBJSBS# VARCHAR2 #' | | LENGTHB (: new. CBJSBS) | | '#' | | CRH (10);
IF LENGTHB (: new CBJSBS) & gt; 0 THEN
Clobdata:=clobdata | | : new CBJSBS | | CRH (10);
END IF;
Clobdata:=clobdata | | 'JCFL# CHAR#' | | LENGTHB (: new. JCFL) | | '#' | | CRH (10);
IF LENGTHB (: new JCFL) & gt; 0 THEN
Clobdata:=clobdata | | : new JCFL | | CRH (10);
END IF;
Clobdata:=clobdata | | 'ZWCBM# VARCHAR2 #' | | LENGTHB (: new. ZWCBM) | | '#' | | CRH (10);
IF LENGTHB (: new ZWCBM) & gt; 0 THEN
Clobdata:=clobdata | | : new ZWCBM | | CRH (10);
END IF;
Clobdata:=clobdata | | 'YWCBM# VARCHAR2 #' | | LENGTHB (: new. YWCBM) | | '#' | | CRH (10);
IF LENGTHB (: new YWCBM) & gt; 0 THEN
Clobdata:=clobdata | | : new YWCBM | | CRH (10);
END IF;
Clobdata:=clobdata | | 'IMO# VARCHAR2 #' | | LENGTHB (: new, IMO) | | '#' | | CRH (10);
IF LENGTHB (: new IMO) & gt; 0 THEN
Clobdata:=clobdata | | : new IMO | | CRH (10);
END IF;
Clobdata:=clobdata | | 'GJHH# VARCHAR2 #' | | LENGTHB (: new. GJHH) | | '#' | | CRH (10);
IF LENGTHB (: new GJHH) & gt; 0 THEN
Clobdata:=clobdata | | : new GJHH | | CRH (10);
END IF;
Clobdata:=clobdata | | 'GJDQDM# VARCHAR2 #' | | LENGTHB (: new. GJDQDM) | | '#' | | CRH (10);
IF LENGTHB (: new GJDQDM) & gt; 0 THEN
Clobdata:=clobdata | | : new GJDQDM | | CRH (10);
END IF;
Clobdata:=clobdata | | 'CZXM# VARCHAR2 #' | | LENGTHB (: new. CZXM) | | '#' | | CRH (10);
IF LENGTHB (: new CZXM) & gt; 0 THEN
Clobdata:=clobdata | | : new CZXM | | CRH (10);
END IF;
Clobdata:=clobdata | | 'CZGJ# VARCHAR2 #' | | LENGTHB (: new. CZGJ) | | '#' | | CRH (10);
IF LENGTHB (: new CZGJ) & gt; 0 THEN
Clobdata:=clobdata | | : new CZGJ | | CRH (10);
END IF;
Clobdata:=clobdata | | 'DLGSJ# VARCHAR2 #' | | LENGTHB (: new. DLGSJ) | | '#' | | CRH (10);
IF LENGTHB (: new DLGSJ) & gt; 0 THEN
Clobdata:=clobdata | | : new DLGSJ | | CRH (10);
END IF;
Clobdata:=clobdata | | 'SLGK# VARCHAR2 #' | | LENGTHB (: new. SLGK) | | '#' | | CRH (10);
IF LENGTHB (: new SLGK) & gt; 0 THEN
Clobdata:=clobdata | | : new SLGK | | CRH (10);
END IF;
Clobdata:=clobdata | | 'SLGKGJDQDM# VARCHAR2 #' | | LENGTHB (: new. SLGKGJDQDM) | | '#' | | CRH (10);
IF LENGTHB (: new SLGKGJDQDM) & gt; 0 THEN
Clobdata:=clobdata | | : new SLGKGJDQDM | | CRH (10);
END IF;
Clobdata:=clobdata | | 'TKMT# VARCHAR2 #' | | LENGTHB (: new. TKMT) | | '#' | | CRH (10);
IF LENGTHB (: new TKMT) & gt; 0 THEN
Clobdata:=clobdata | | : new TKMT | | CRH (10);
END IF;
Clobdata:=clobdata | | 'TKBW# VARCHAR2 #' | | LENGTHB (: new. TKBW) | | '#' | | CRH (10);
IF LENGTHB (: new TKBW) & gt; 0 THEN
Clobdata:=clobdata | | : new TKBW | | CRH (10);
END IF;
Clobdata:=clobdata | | 'HCZY# VARCHAR2 #' | | LENGTHB (: new. HCZY) | | '#' | | CRH (10);
IF LENGTHB (: new HCZY) & gt; 0 THEN
Clobdata:=clobdata | | : new HCZY | | CRH (10);
END IF;
Clobdata:=clobdata | | 'SZHW# VARCHAR2 #' | | LENGTHB (: new. SZHW) | | '#' | | CRH (10);
IF LENGTHB (: new SZHW) & gt; 0 THEN
Clobdata:=clobdata | | : new SZHW | | CRH (10);
END IF;
Clobdata:=clobdata | | 'DJZS# VARCHAR2 #' | | LENGTHB (: new. DJZS) | | '#' | | CRH (10);
IF LENGTHB (: new DJZS) & gt; 0 THEN
Clobdata:=clobdata | | : new DJZS | | CRH (10);
END IF;
Clobdata:=clobdata | | 'CDGS# VARCHAR2 #' | | LENGTHB (: new. CDGS) | | '#' | | CRH (10);
IF LENGTHB (: new CDGS) & gt; 0 THEN
Clobdata:=clobdata | | : new CDGS | | CRH (10);
END IF;
Clobdata:=clobdata | | 'CBGS# VARCHAR2 #' | | LENGTHB (: new. CBGS) | | '#' | | CRH (10);
IF LENGTHB (: new CBGS) & gt; 0 THEN
Clobdata:=clobdata | | : new CBGS | | CRH (10);
END IF;
nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull
  • Related