203: l_dummy_ind,
204: l_Schema);
205: l_register_flg := FALSE ;
206: -- Remove
207: -- dbms_output.put_line(' Product name '||p_Product);
208: -- dbms_output.put_line(' table name '||p_Table_Name);
209: -- dbms_output.put_line(' schema name '||l_Schema);
210:
211: l_register_flg := check_to_register(
204: l_Schema);
205: l_register_flg := FALSE ;
206: -- Remove
207: -- dbms_output.put_line(' Product name '||p_Product);
208: -- dbms_output.put_line(' table name '||p_Table_Name);
209: -- dbms_output.put_line(' schema name '||l_Schema);
210:
211: l_register_flg := check_to_register(
212: p_Product,
205: l_register_flg := FALSE ;
206: -- Remove
207: -- dbms_output.put_line(' Product name '||p_Product);
208: -- dbms_output.put_line(' table name '||p_Table_Name);
209: -- dbms_output.put_line(' schema name '||l_Schema);
210:
211: l_register_flg := check_to_register(
212: p_Product,
213: p_Table_Name,
500: WHEN OTHERS THEN
501: IF (SQLCODE = -1430) THEN
502: NULL ;
503: ELSE
504: -- DBMS_OUTPUT.PUT_LINE('the exeception is here only'); --remove
505: RAISE ;
506: END IF ;
507: END ; -- inner block
508: --
569: ' VALUES ('''||p_Table_Name||''', :new.rowid);'||
570: ' END;';
571:
572: EXECUTE IMMEDIATE l_stmt;
573: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
574: -- dbms_output.put_line('the first trigger '); -- remove
575: -- dbms_output.put_line(substr(l_stmt,1,220)); -- remove
576: -- dbms_output.put_line(substr(l_stmt,220,200)); -- remove
577:
570: ' END;';
571:
572: EXECUTE IMMEDIATE l_stmt;
573: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
574: -- dbms_output.put_line('the first trigger '); -- remove
575: -- dbms_output.put_line(substr(l_stmt,1,220)); -- remove
576: -- dbms_output.put_line(substr(l_stmt,220,200)); -- remove
577:
578: --
571:
572: EXECUTE IMMEDIATE l_stmt;
573: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
574: -- dbms_output.put_line('the first trigger '); -- remove
575: -- dbms_output.put_line(substr(l_stmt,1,220)); -- remove
576: -- dbms_output.put_line(substr(l_stmt,220,200)); -- remove
577:
578: --
579: -- create a STATEMENT level trigger that updates the main table
572: EXECUTE IMMEDIATE l_stmt;
573: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
574: -- dbms_output.put_line('the first trigger '); -- remove
575: -- dbms_output.put_line(substr(l_stmt,1,220)); -- remove
576: -- dbms_output.put_line(substr(l_stmt,220,200)); -- remove
577:
578: --
579: -- create a STATEMENT level trigger that updates the main table
580: -- for the changed rows
609: ' WHERE rowid = c_rec.apps_rowid;'||
610: ' END LOOP;'||
611: ' END;';
612:
613: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
614: -- remove
615: -- dbms_output.put_line(substr(l_stmt,1,200));
616: -- dbms_output.put_line(substr(l_stmt,201,200));
617: -- dbms_output.put_line(substr(l_stmt,401,200));
611: ' END;';
612:
613: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
614: -- remove
615: -- dbms_output.put_line(substr(l_stmt,1,200));
616: -- dbms_output.put_line(substr(l_stmt,201,200));
617: -- dbms_output.put_line(substr(l_stmt,401,200));
618: -- dbms_output.put_line(substr(l_stmt,601,200));
619: EXECUTE IMMEDIATE l_stmt;
612:
613: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
614: -- remove
615: -- dbms_output.put_line(substr(l_stmt,1,200));
616: -- dbms_output.put_line(substr(l_stmt,201,200));
617: -- dbms_output.put_line(substr(l_stmt,401,200));
618: -- dbms_output.put_line(substr(l_stmt,601,200));
619: EXECUTE IMMEDIATE l_stmt;
620: -- dbms_output.put_line('after creation of the second trigger ');
613: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
614: -- remove
615: -- dbms_output.put_line(substr(l_stmt,1,200));
616: -- dbms_output.put_line(substr(l_stmt,201,200));
617: -- dbms_output.put_line(substr(l_stmt,401,200));
618: -- dbms_output.put_line(substr(l_stmt,601,200));
619: EXECUTE IMMEDIATE l_stmt;
620: -- dbms_output.put_line('after creation of the second trigger ');
621:
614: -- remove
615: -- dbms_output.put_line(substr(l_stmt,1,200));
616: -- dbms_output.put_line(substr(l_stmt,201,200));
617: -- dbms_output.put_line(substr(l_stmt,401,200));
618: -- dbms_output.put_line(substr(l_stmt,601,200));
619: EXECUTE IMMEDIATE l_stmt;
620: -- dbms_output.put_line('after creation of the second trigger ');
621:
622: --
616: -- dbms_output.put_line(substr(l_stmt,201,200));
617: -- dbms_output.put_line(substr(l_stmt,401,200));
618: -- dbms_output.put_line(substr(l_stmt,601,200));
619: EXECUTE IMMEDIATE l_stmt;
620: -- dbms_output.put_line('after creation of the second trigger ');
621:
622: --
623: -- Update the table status to G_ADD_TRIGGER_STATUS
624: --
690: ' close c_tab;'||
691: ' end;';
692:
693: --remove
694: --dbms_output.put_line(substr(l_stmt,1,200));
695: --dbms_output.put_line(substr(l_stmt,201,200));
696: --dbms_output.put_line(substr(l_stmt,401,200));
697: --dbms_output.put_line(substr(l_stmt,601,200));
698:
691: ' end;';
692:
693: --remove
694: --dbms_output.put_line(substr(l_stmt,1,200));
695: --dbms_output.put_line(substr(l_stmt,201,200));
696: --dbms_output.put_line(substr(l_stmt,401,200));
697: --dbms_output.put_line(substr(l_stmt,601,200));
698:
699: EXECUTE IMMEDIATE l_stmt;
692:
693: --remove
694: --dbms_output.put_line(substr(l_stmt,1,200));
695: --dbms_output.put_line(substr(l_stmt,201,200));
696: --dbms_output.put_line(substr(l_stmt,401,200));
697: --dbms_output.put_line(substr(l_stmt,601,200));
698:
699: EXECUTE IMMEDIATE l_stmt;
700:
693: --remove
694: --dbms_output.put_line(substr(l_stmt,1,200));
695: --dbms_output.put_line(substr(l_stmt,201,200));
696: --dbms_output.put_line(substr(l_stmt,401,200));
697: --dbms_output.put_line(substr(l_stmt,601,200));
698:
699: EXECUTE IMMEDIATE l_stmt;
700:
701: --
767: DBMS_SQL.CLOSE_CURSOR(l_cursor);
768: RETURN l_row_length ;
769: EXCEPTION
770: WHEN OTHERS THEN
771: -- DBMS_OUTPUT.PUT_LINE ('Errors in function get_long_length');
772: -- DBMS_OUTPUT.PUT_LINE(sqlerrm);
773: IF DBMS_SQL.is_open(l_cursor) THEN
774: DBMS_SQL.CLOSE_CURSOR(l_cursor);
775: END IF;
768: RETURN l_row_length ;
769: EXCEPTION
770: WHEN OTHERS THEN
771: -- DBMS_OUTPUT.PUT_LINE ('Errors in function get_long_length');
772: -- DBMS_OUTPUT.PUT_LINE(sqlerrm);
773: IF DBMS_SQL.is_open(l_cursor) THEN
774: DBMS_SQL.CLOSE_CURSOR(l_cursor);
775: END IF;
776: END;
813: PROCEDURE print_data(p_String VARCHAR2 )
814: IS
815: BEGIN
816: IF l_pr = 0 THEN
817: DBMS_OUTPUT.PUT_LINE(l_str);
818: ELSE
819: utl_file.put_line(fp,l_str);
820: END IF ;
821: END print_data;