prompt Package Header: jr_reg_io create or replace package -- Registration I/O package jr_reg_io is LF constant char := chr(10); END_OF_STATEMENT constant varchar2(7) := '##EOF##'; -------------------------------------------------- -- Procedure : enable_debug -------------------------------------------------- procedure enable_debug (dlevel number default null); -------------------------------------------------- -- Procedure : disable_debug -------------------------------------------------- procedure disable_debug; -------------------------------------------------- -- Procedure : init_log_file -------------------------------------------------- procedure init_log_file ( file_location varchar2 , filename varchar2 ); -------------------------------------------------- -- Procedure : put -- Notes : write a message to the current line -------------------------------------------------- procedure put(msg varchar2); -------------------------------------------------- -- Procedure : put_line -- Notes : write a message to a new line -------------------------------------------------- procedure put_line(msg varchar2); ------------------------------------------------ -- Procedure : close_log_file ------------------------------------------------ procedure close_log_file (file_location varchar2); ------------------------------------------------ -- Procedure : init_ddl_files ------------------------------------------------ procedure init_ddl_files ( file_location varchar2 , tables_file varchar2 default 'jrtable.sql' , indexes_file varchar2 default 'jrindex.sql' , constraints_file varchar2 default 'jrcon.sql' , triggers_file varchar2 default 'jrtrig.sql' , functions_file varchar2 default 'jrfunc.sql' , views_file varchar2 default 'jrview.sql' , stored_objs_file varchar2 default 'jrstor.sql' , synonyms_file varchar2 default 'jrsyn.sql' , sequences_file varchar2 default 'jrseq.sql' ); ------------------------------------------------ -- Procedure : close_ddl_files ------------------------------------------------ procedure close_ddl_files; ------------------------------------------------ -- Procedure : init_ddl_file ------------------------------------------------ procedure init_ddl_file ( file_location varchar2 , file_name varchar2 default 'jrddl.sql' ); ------------------------------------------------ -- Procedure : close_ddl_file ------------------------------------------------ procedure close_ddl_file (file_location varchar2); -------------------------------------------------------------------------- -- Procedure : exec -------------------------------------------------------------------------- procedure exec (statement varchar2, ignore_error boolean default false); -------------------------------------------------------------------------- -- Procedure : exec -- -- Set lfflg to true to insert linefeeds after each line of the statement, -- otherwise set to false -------------------------------------------------------------------------- procedure exec ( statement dbms_sql.varchar2s , check_termination boolean default false , lfflg boolean default true ); end jr_reg_io; /