495: ) is
496:
497: l_dynamic_spec_cursor integer; -- Dynamic sql cursor
498: l_execute_spec integer; -- Value returned by
499: -- dbms_sql.execute
500: l_dynamic_body_cursor integer; -- Dynamic sql cursor
501: l_execute_body integer; -- Value returned by
502: -- dbms_sql.execute
503:
498: l_execute_spec integer; -- Value returned by
499: -- dbms_sql.execute
500: l_dynamic_body_cursor integer; -- Dynamic sql cursor
501: l_execute_body integer; -- Value returned by
502: -- dbms_sql.execute
503:
504: l_proc varchar2(72) := g_package||'execute_source';
505: l_progress number;
506: begin
507: --
508: -- The whole of the new package body code has now been built,
509: -- use dynamic SQL to execute the create or replace package statement
510: --
511: l_dynamic_spec_cursor := dbms_sql.open_cursor;
512: if (l_debug = 1) then
513: trace(l_proc ||' Entering:'|| l_proc, 1);
514: trace(l_proc ||' g_string => ' || g_string, 4);
515: trace(l_proc ||' Starting Generation.....'|| l_proc, 4);
516: trace(l_proc ||' l_dynamic_spec_cursor = ' || l_dynamic_spec_cursor, 4);
517: end if;
518:
519: l_progress := 10;
520: dbms_sql.parse(l_dynamic_spec_cursor, g_string, dbms_sql.native);
521:
522: l_progress := 20;
523: l_execute_spec := dbms_sql.execute(l_dynamic_spec_cursor);
524:
519: l_progress := 10;
520: dbms_sql.parse(l_dynamic_spec_cursor, g_string, dbms_sql.native);
521:
522: l_progress := 20;
523: l_execute_spec := dbms_sql.execute(l_dynamic_spec_cursor);
524:
525: if (l_debug = 1) then
526: trace(l_proc ||'l_execute_spec = ' || l_execute_spec, 4);
527: end if;
526: trace(l_proc ||'l_execute_spec = ' || l_execute_spec, 4);
527: end if;
528:
529: l_progress := 30;
530: dbms_sql.close_cursor(l_dynamic_spec_cursor);
531:
532: if (l_debug = 1) then
533: trace(l_proc ||' Finished Generating Spec...:'|| l_proc, 1);
534: end if;
545: if (l_debug = 1) then
546: trace(l_proc ||' Error message within "When Others" exception ' || sqlerrm(sqlcode) || ' Progress : ' || l_progress || ' ' || l_proc, 1);
547: end if;
548:
549: if (dbms_sql.is_open(l_dynamic_spec_cursor)) then
550: if (l_debug = 1) then
551: trace(l_proc ||' Closing Cursor ....');
552: end if;
553: dbms_sql.close_cursor(l_dynamic_spec_cursor);
549: if (dbms_sql.is_open(l_dynamic_spec_cursor)) then
550: if (l_debug = 1) then
551: trace(l_proc ||' Closing Cursor ....');
552: end if;
553: dbms_sql.close_cursor(l_dynamic_spec_cursor);
554: end if;
555: end execute_source;
556: --
557: --
793: if (l_debug = 1) then
794: trace(l_proc ||' drop package name constructed : ' || l_package_name_drop);
795: end if;
796:
797: l_csr_sql := dbms_sql.open_cursor;
798: dbms_sql.parse
799: (l_csr_sql
800: ,'DROP PACKAGE BODY ' || l_package_name_drop
801: ,dbms_sql.native
794: trace(l_proc ||' drop package name constructed : ' || l_package_name_drop);
795: end if;
796:
797: l_csr_sql := dbms_sql.open_cursor;
798: dbms_sql.parse
799: (l_csr_sql
800: ,'DROP PACKAGE BODY ' || l_package_name_drop
801: ,dbms_sql.native
802: );
797: l_csr_sql := dbms_sql.open_cursor;
798: dbms_sql.parse
799: (l_csr_sql
800: ,'DROP PACKAGE BODY ' || l_package_name_drop
801: ,dbms_sql.native
802: );
803: l_rows := dbms_sql.execute( l_csr_sql );
804: dbms_sql.close_cursor( l_csr_sql );
805: exception
799: (l_csr_sql
800: ,'DROP PACKAGE BODY ' || l_package_name_drop
801: ,dbms_sql.native
802: );
803: l_rows := dbms_sql.execute( l_csr_sql );
804: dbms_sql.close_cursor( l_csr_sql );
805: exception
806: when others then
807: --
800: ,'DROP PACKAGE BODY ' || l_package_name_drop
801: ,dbms_sql.native
802: );
803: l_rows := dbms_sql.execute( l_csr_sql );
804: dbms_sql.close_cursor( l_csr_sql );
805: exception
806: when others then
807: --
808: -- Drop package failed.
812: trace(l_proc ||' Drop Package Error Code = ' || sqlcode);
813: trace(l_proc ||' Drop Package Error Message = ' || sqlerrm);
814: end if;
815:
816: if dbms_sql.is_open( l_csr_sql ) then
817: dbms_sql.close_cursor( l_csr_sql );
818: end if;
819: end;
820: end loop;
813: trace(l_proc ||' Drop Package Error Message = ' || sqlerrm);
814: end if;
815:
816: if dbms_sql.is_open( l_csr_sql ) then
817: dbms_sql.close_cursor( l_csr_sql );
818: end if;
819: end;
820: end loop;
821:
1940: --
1941: l_prog := 52;
1942: if compile then
1943: begin
1944: l_csr_sql := dbms_sql.open_cursor;
1945: dbms_sql.parse(
1946: l_csr_sql
1947: , 'ALTER PACKAGE ' || p_call_package || ' COMPILE SPECIFICATION'
1948: , dbms_sql.native
1941: l_prog := 52;
1942: if compile then
1943: begin
1944: l_csr_sql := dbms_sql.open_cursor;
1945: dbms_sql.parse(
1946: l_csr_sql
1947: , 'ALTER PACKAGE ' || p_call_package || ' COMPILE SPECIFICATION'
1948: , dbms_sql.native
1949: );
1944: l_csr_sql := dbms_sql.open_cursor;
1945: dbms_sql.parse(
1946: l_csr_sql
1947: , 'ALTER PACKAGE ' || p_call_package || ' COMPILE SPECIFICATION'
1948: , dbms_sql.native
1949: );
1950: l_rows := dbms_sql.execute( l_csr_sql );
1951: dbms_sql.close_cursor( l_csr_sql );
1952: exception
1946: l_csr_sql
1947: , 'ALTER PACKAGE ' || p_call_package || ' COMPILE SPECIFICATION'
1948: , dbms_sql.native
1949: );
1950: l_rows := dbms_sql.execute( l_csr_sql );
1951: dbms_sql.close_cursor( l_csr_sql );
1952: exception
1953: when others then
1954: if dbms_sql.is_open( l_csr_sql ) then
1947: , 'ALTER PACKAGE ' || p_call_package || ' COMPILE SPECIFICATION'
1948: , dbms_sql.native
1949: );
1950: l_rows := dbms_sql.execute( l_csr_sql );
1951: dbms_sql.close_cursor( l_csr_sql );
1952: exception
1953: when others then
1954: if dbms_sql.is_open( l_csr_sql ) then
1955: dbms_sql.close_cursor( l_csr_sql );
1950: l_rows := dbms_sql.execute( l_csr_sql );
1951: dbms_sql.close_cursor( l_csr_sql );
1952: exception
1953: when others then
1954: if dbms_sql.is_open( l_csr_sql ) then
1955: dbms_sql.close_cursor( l_csr_sql );
1956:
1957: if (l_debug = 1) then
1958: trace(l_proc||' Compilation of package ' || p_call_package || ' Failed.... ', 4);
1951: dbms_sql.close_cursor( l_csr_sql );
1952: exception
1953: when others then
1954: if dbms_sql.is_open( l_csr_sql ) then
1955: dbms_sql.close_cursor( l_csr_sql );
1956:
1957: if (l_debug = 1) then
1958: trace(l_proc||' Compilation of package ' || p_call_package || ' Failed.... ', 4);
1959: end if;