I think I've stripped the problem down to bare bones in the code below. In the .pkg code, I've commented out the variable g_body_version so the .bdy compile will fail.
Problem 1:
When I compile the .bdy code I get the message "Compiled with errors" but no detail of the errors. If I delete one character...any one character you want...from the rem lines, I get the compile error list.
Problem 2:
If I remove the comments from g_body_version so the .bdy will compile, then I right click on the function, Test is not offered on the menu. When I remove any character from the rem lines and compile, then Test and Describe are offered on the menu.
The code:
CREATE OR REPLACE PACKAGE comp_err is
--
-- Global variables
g_package_name varchar2(20) := upper('comp_err');
p_st_spec varchar2(15) := '$Revision:41$';
g_spec_version varchar2(10) := ltrim(replace(substr(p_st_spec,
instr(p_st_spec, ':') + 1),
'$'));
p_st_body varchar2(15);
--g_body_version varchar2(10); -- set in show_version function
--
-- return the package spec and package body version information
function show_version return varchar2;
end comp_err;
/
REM comp_err.bdy
REM package body create for comp_err - description
REM
REM *********************** History LIFO ORDER ****************************
REM Date Who Comment
REM ---------- ------------ -----------------------------------------------
REM 08/06/02 Jeff Moritz
REM 08/06/02 Jeff Moritze v27, added procedure for closing cursors.
REM 08/06/02 Jeff Moritze v26, inserting distinct records into bl_bill_ap_temp
REM 08/05/02 Jeff Moritze v25, fixed the bl_bill_ap_temp query from invalid number error
REM 08/05/02 Jeff Moritze v24, added logic to keep error messages flowing
REM 07/24/02 Marilyn Fish v23, Code added to insert record into bl_bill_accounts_provider
REM for providers on an account that do not have charges for
REM the current billing.
REM 07/10/02 Marilyn Fish v22, Added previous_date_read and added bundle_tax_ind
REM to bl_bill_accounts_provider insert.
REM 07/03/02 Marilyn Fish v21, Columns final_bill_ind, estimate_ind, scan_line
REM added. Initialized penalty amounts to zero.
REM 06/24/02 Marilyn Fish v20, Added account_number to order by of account_c
REM 06/24/02 Marilyn Fish v19, Additonal changes to print_prep.
REM 06/24/02 Marilyn Fish v18, Dynamic sql v. of print_prep proc added.
REM 06/24/02 Marilyn Fish v17, Additional changes to error_log insert.
REM 06/19/02 Marilyn Fish v16, Inserts to bl_bill_print_error_log added.
REM Consumer_number parameter added to account_c
REM When abort_error exception raised, error_msg
REM inserted into bl_print_batch
REM 06/17/02 Marilyn Fish v15, Changed bl_providers to bl_provider_services
REM where provider_role is selected.
REM 06/06/02 Marilyn Fish v14, Added charge_code to bl_bill_charges and
REM added first_name, last_name to bl_bill_
REM consumer_statements
REM 06/03/02 Marilyn Fish v13, Modified parameters for process_penalties
REM 06/03/02 Marilyn Fish v12, Added code to assemble code_line value
REM 05/30/02 Marilyn Fish v11, fb/cr/tdsp_provider inserted into bl_bill_services
REM 05/14/02 Marilyn Fish v10, Functions without p_format passed in, altered
REM account_c
REM 05/14/02 Marilyn Fish v9, Changed domain ref to Bill Spec Proc Code
REM 05/14/02 Marilyn Fish v8, Added tariff_type to bl_bill_services.
REM 05/13/02 Marilyn Fish v6, Mod to correct problem with call from sql.
REM 05/11/02 Marilyn Fish v5, select change in calc_amounts
REM 05/11/02 Marilyn Fish v4, Overhaul of code.
REM 04/31/02 Marilyn Fish v3, Modified parameter in penalty_calc_amount.
REM 04/31/02 Marilyn Fish v2, penalty procs now call from bldelinq.bdy
REM 01/02/02 Marilyn Fish v1, initial version
create or replace package body comp_err
is
-- Package variables and exceptions
abort_error exception;
dup_key_ins exception;
pragma exception_init(dup_key_ins, -1);
--
-- Function and procedures
--
-- Return message with version information
function show_version return varchar2 is
--
-- Program Data
/* Variable to hold the software release string */
x_software_release varchar2(10);
/* Message to return with version information */
version_message varchar2(200);
/* Get the software release from the system table */
cursor get_ut_system_info is
select software_release from ut_system;
begin
-- begin show_version
for x in get_ut_system_info loop
x_software_release := rtrim(ltrim(x.software_release));
end loop;
version_message := g_package_name || ' Package: ' || x_software_release || '.' ||
g_spec_version || '.0 Body: ' || x_software_release || '.' ||
g_body_version || '.0';
return version_message;
end show_version;
begin
p_st_body := '$Revision:179$';
g_body_version := ltrim(replace(substr(p_st_body,
instr(p_st_body, ':') + 1),
'$'));
end comp_err;
/
.
