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,
496: WHEN OTHERS THEN
497: IF (SQLCODE = -1430) THEN
498: NULL ;
499: ELSE
500: -- DBMS_OUTPUT.PUT_LINE('the exeception is here only'); --remove
501: RAISE ;
502: END IF ;
503: END ; -- inner block
504: --
565: ' VALUES ('''||p_Table_Name||''', :new.rowid);'||
566: ' END;';
567:
568: EXECUTE IMMEDIATE l_stmt;
569: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
570: -- dbms_output.put_line('the first trigger '); -- remove
571: -- dbms_output.put_line(substr(l_stmt,1,220)); -- remove
572: -- dbms_output.put_line(substr(l_stmt,220,200)); -- remove
573:
566: ' END;';
567:
568: EXECUTE IMMEDIATE l_stmt;
569: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
570: -- dbms_output.put_line('the first trigger '); -- remove
571: -- dbms_output.put_line(substr(l_stmt,1,220)); -- remove
572: -- dbms_output.put_line(substr(l_stmt,220,200)); -- remove
573:
574: --
567:
568: EXECUTE IMMEDIATE l_stmt;
569: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
570: -- dbms_output.put_line('the first trigger '); -- remove
571: -- dbms_output.put_line(substr(l_stmt,1,220)); -- remove
572: -- dbms_output.put_line(substr(l_stmt,220,200)); -- remove
573:
574: --
575: -- create a STATEMENT level trigger that updates the main table
568: EXECUTE IMMEDIATE l_stmt;
569: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
570: -- dbms_output.put_line('the first trigger '); -- remove
571: -- dbms_output.put_line(substr(l_stmt,1,220)); -- remove
572: -- dbms_output.put_line(substr(l_stmt,220,200)); -- remove
573:
574: --
575: -- create a STATEMENT level trigger that updates the main table
576: -- for the changed rows
605: ' WHERE rowid = c_rec.apps_rowid;'||
606: ' END LOOP;'||
607: ' END;';
608:
609: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
610: -- remove
611: -- dbms_output.put_line(substr(l_stmt,1,200));
612: -- dbms_output.put_line(substr(l_stmt,201,200));
613: -- dbms_output.put_line(substr(l_stmt,401,200));
607: ' END;';
608:
609: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
610: -- remove
611: -- dbms_output.put_line(substr(l_stmt,1,200));
612: -- dbms_output.put_line(substr(l_stmt,201,200));
613: -- dbms_output.put_line(substr(l_stmt,401,200));
614: -- dbms_output.put_line(substr(l_stmt,601,200));
615: EXECUTE IMMEDIATE l_stmt;
608:
609: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
610: -- remove
611: -- dbms_output.put_line(substr(l_stmt,1,200));
612: -- dbms_output.put_line(substr(l_stmt,201,200));
613: -- dbms_output.put_line(substr(l_stmt,401,200));
614: -- dbms_output.put_line(substr(l_stmt,601,200));
615: EXECUTE IMMEDIATE l_stmt;
616: -- dbms_output.put_line('after creation of the second trigger ');
609: -- dbms_output.put_line('drop trigger '||l_trig_name ||chr(10)||'/');
610: -- remove
611: -- dbms_output.put_line(substr(l_stmt,1,200));
612: -- dbms_output.put_line(substr(l_stmt,201,200));
613: -- dbms_output.put_line(substr(l_stmt,401,200));
614: -- dbms_output.put_line(substr(l_stmt,601,200));
615: EXECUTE IMMEDIATE l_stmt;
616: -- dbms_output.put_line('after creation of the second trigger ');
617:
610: -- remove
611: -- dbms_output.put_line(substr(l_stmt,1,200));
612: -- dbms_output.put_line(substr(l_stmt,201,200));
613: -- dbms_output.put_line(substr(l_stmt,401,200));
614: -- dbms_output.put_line(substr(l_stmt,601,200));
615: EXECUTE IMMEDIATE l_stmt;
616: -- dbms_output.put_line('after creation of the second trigger ');
617:
618: --
612: -- dbms_output.put_line(substr(l_stmt,201,200));
613: -- dbms_output.put_line(substr(l_stmt,401,200));
614: -- dbms_output.put_line(substr(l_stmt,601,200));
615: EXECUTE IMMEDIATE l_stmt;
616: -- dbms_output.put_line('after creation of the second trigger ');
617:
618: --
619: -- Update the table status to G_ADD_TRIGGER_STATUS
620: --
686: ' close c_tab;'||
687: ' end;';
688:
689: --remove
690: --dbms_output.put_line(substr(l_stmt,1,200));
691: --dbms_output.put_line(substr(l_stmt,201,200));
692: --dbms_output.put_line(substr(l_stmt,401,200));
693: --dbms_output.put_line(substr(l_stmt,601,200));
694:
687: ' end;';
688:
689: --remove
690: --dbms_output.put_line(substr(l_stmt,1,200));
691: --dbms_output.put_line(substr(l_stmt,201,200));
692: --dbms_output.put_line(substr(l_stmt,401,200));
693: --dbms_output.put_line(substr(l_stmt,601,200));
694:
695: EXECUTE IMMEDIATE l_stmt;
688:
689: --remove
690: --dbms_output.put_line(substr(l_stmt,1,200));
691: --dbms_output.put_line(substr(l_stmt,201,200));
692: --dbms_output.put_line(substr(l_stmt,401,200));
693: --dbms_output.put_line(substr(l_stmt,601,200));
694:
695: EXECUTE IMMEDIATE l_stmt;
696:
689: --remove
690: --dbms_output.put_line(substr(l_stmt,1,200));
691: --dbms_output.put_line(substr(l_stmt,201,200));
692: --dbms_output.put_line(substr(l_stmt,401,200));
693: --dbms_output.put_line(substr(l_stmt,601,200));
694:
695: EXECUTE IMMEDIATE l_stmt;
696:
697: --
763: DBMS_SQL.CLOSE_CURSOR(l_cursor);
764: RETURN l_row_length ;
765: EXCEPTION
766: WHEN OTHERS THEN
767: -- DBMS_OUTPUT.PUT_LINE ('Errors in function get_long_length');
768: -- DBMS_OUTPUT.PUT_LINE(sqlerrm);
769: IF DBMS_SQL.is_open(l_cursor) THEN
770: DBMS_SQL.CLOSE_CURSOR(l_cursor);
771: END IF;
764: RETURN l_row_length ;
765: EXCEPTION
766: WHEN OTHERS THEN
767: -- DBMS_OUTPUT.PUT_LINE ('Errors in function get_long_length');
768: -- DBMS_OUTPUT.PUT_LINE(sqlerrm);
769: IF DBMS_SQL.is_open(l_cursor) THEN
770: DBMS_SQL.CLOSE_CURSOR(l_cursor);
771: END IF;
772: END;
809: PROCEDURE print_data(p_String VARCHAR2 )
810: IS
811: BEGIN
812: IF l_pr = 0 THEN
813: DBMS_OUTPUT.PUT_LINE(l_str);
814: ELSE
815: utl_file.put_line(fp,l_str);
816: END IF ;
817: END print_data;