How to debug Oracle Procedure

Question

Hi friends,
I migrated oracle procedure from Oracle 8.0.4 DB froM NT to Oracle 9.2.0 DB on IBM AIX.
When I test/run the procedure on the 9.2.0 Db, it is running forever and would not end complete.
How do you debug an Oracle Procedure to check if it is looping on same block foever, and what "current" values does it hold, and the what tables it is reading at, or does procedure ever loops as if it does not safisfy any of the conditions?
Thanks a lot

Answer 1

thanks Just,
This is the procedure that is looping :
Create or replace procedure glccshdb (v_period_name IN VARCHAR2) AS
-- DECLARE
----------------------- FLAG VARIABLES ---------------------------
  f_eof_sundry_cr_flag     VARCHAR2(1) := 'N';
  f_eof_sundry_dr_flag     VARCHAR2(1) := 'N';
  f_same_check_flag     VARCHAR2(1)     := 'N';
  f_1st_loop_flag     VARCHAR2(1) := 'Y';
----------------------- INPUT VARIABLES ---------------------------
  v_startdate     DATE;
  v_enddate     DATE;
--  v_period_name     VARCHAR2(15);
---------------- MAIN CURSOR ------------------
CURSOR cur_main IS
SELECT
     SUBSTR(     p.accounting_date,1,9) CHECKDATE,
     SUBSTR(     c.vendor_name,1,39) PAYEE,
     SUBSTR(     i.description,1,39) PARTICULARS,
     SUBSTR(     i.doc_sequence_value,1,15) DV_NUMBER,
     SUBSTR(     c.check_number,1,15) CHECK_NUMBER,
     SUBSTR(     d.amount,1,15) DISTRIBAMT,
     SUBSTR(     d.dist_code_combination_id,1,15) CODE,
     SUBSTR(     cc.segment5,1,16) ACCOUNT,
     SUBSTR(     c.amount, 1, 15) CHECKAMT,
     SUBSTR(     c.bank_account_id, 1, 15) BANKACCTID,
     SUBSTR(     c.check_id, 1, 15) CHECKID
FROM
     ap_invoices               i,
        ap_checks               c,
        ap_invoice_payments           p,
     ap_invoice_distributions      d,
     gl_code_combinations           cc,
     gl_sets_of_books           s
WHERE
        p.invoice_id = i.invoice_id
AND     p.check_id = c.check_id
AND     i.payment_status_flag = 'Y'
AND NOT p.amount < 0
AND     i.invoice_id = d.invoice_id
AND     d.dist_code_combination_id = cc.code_combination_id
AND     cc.chart_of_accounts_id = s.chart_of_accounts_id
AND     s.set_of_books_id = '1'
AND   p.accounting_date BETWEEN v_startdate AND v_enddate
ORDER BY p.accounting_date,c.check_number,c.vendor_id, c.amount;
---------------- SUNDRY DEBIT CURSOR ------------------
CURSOR cur_sundry_dr IS
SELECT
     SUBSTR(     cc.segment5,1,16) ACCOUNT,
     SUBSTR(     d.amount,1,15) AMOUNT
FROM
     ap_invoices               i,
        ap_checks               c,
        ap_invoice_payments           p,
     ap_invoice_distributions      d,
     gl_code_combinations           cc,
     gl_sets_of_books           s
WHERE
        p.invoice_id = i.invoice_id
AND   p.check_id = c.check_id
AND   i.payment_status_flag = 'Y'
AND NOT p.amount < 0
AND     i.invoice_id = d.invoice_id
AND     d.dist_code_combination_id = cc.code_combination_id
AND     cc.chart_of_accounts_id = s.chart_of_accounts_id
AND     s.set_of_books_id = '1'
AND     p.accounting_date = v_cur_date_ref
AND NOT
     (     cc.segment5 = '008-070-351-0000'
     AND      d.amount < 0 )
     OR
     (     cc.segment5 = '008-070-352-0000'
     AND      d.amount < 0 )
     OR
     (     cc.segment5 = '008-070-353-0000'
     AND      d.amount < 0 )
     OR
     (     cc.segment5 = '008-070-354-0000'
     AND      d.amount < 0 )
     OR
     (     cc.segment5 = '008-084-100-0000'
     AND      d.amount < 0 )
---------------------------- DEBIT SPECIFIED ACCOUNTS QUALIFIER
     OR
     (     cc.segment5 = '008-071-903-0000'
     AND NOT     d.amount < 0 )
     OR
     (     cc.segment5 = '008-071-862-0000'
     AND NOT     d.amount < 0 )
     OR
     (     cc.segment5 = '008-084-906-0000'
     AND NOT     d.amount < 0 )
     OR
     (     cc.segment5 = '008-086-202-0000'
     AND NOT     d.amount < 0 )
     OR
     (     cc.segment5 = '003-001-110-0000'
     AND NOT     d.amount < 0 )
     OR
     (     cc.segment5 = '003-001-120-0000'
     AND NOT     d.amount < 0 )
     OR
     (     cc.segment5 = '008-092-420-0000'
     AND NOT     d.amount < 0 )
     OR
     (     cc.segment5 = '003-002-200-0000'
     AND NOT     d.amount < 0 )
     OR
     (     cc.segment5 = '003-019-000-0000'
     AND NOT     d.amount < 0 )
     OR
     (     cc.segment5 = '001-057-903-0000'
     AND NOT     d.amount < 0 )
     OR
     (     cc.segment5 = '008-070-501-0000'
     AND NOT     d.amount < 0 )
     OR
     (     cc.segment5 = '008-086-201-0000'
     AND NOT     d.amount < 0 ))
----------------------------------SUNDRY CREDIT QUALIFIER
AND NOT     d.amount < 0
ORDER BY      cc.segment5 ;
PROCEDURE insert_sundry IS
BEGIN
     INSERT INTO glcdbsnd
     COL     (
          col_account,
          col_amount,
          col_date
     VALUES(
          s_account,
          s_amount,
          h_checkdate
END;
---------------- FORMAT SUNDRY PROCEDURE ------------------
PROCEDURE format_sundry IS
BEGIN
     s_account     :=     h_account;
     s_amount     :=     h_amount;
END;
--------------------- PROCEDURE DIVISION -----------------
BEGIN
DELETE glcdbrpt;
DELETE glcdbsnd;
--DELETE cdbsunmo;
-------------------------------------- INPUT PARAMETERS
SELECT      start_date, end_date
INTO     v_startdate, v_enddate
FROM     gl_periods
WHERE     UPPER(period_name) = UPPER(v_period_name);
--WHERE     period_name = 'Sep-00';
----------------------------------------------------------TITLE
format_colheading0;
insert_line;
COMMIT;
initialize_vars;
insert_line;
insert_line;
COMMIT;
initialize_vars;
format_title1;
insert_line;
COMMIT;
format_title2;
insert_line;
COMMIT;
initialize_vars;
insert_line;
insert_line;
COMMIT;
------------------------------------------------ MONTHLY SUNDRY SUMMARY
initialize_vars;
s_account := '                ';
s_amount  := 0;
h_account_sdr := '                ';
h_amount_sdr  := 0;
OPEN cur_sundry_cr_mo;
OPEN cur_sundry_dr_mo;
FETCH cur_sundry_cr_mo INTO h_account_scr, h_amount_scr;
FETCH cur_sundry_dr_mo INTO h_account_sdr, h_amount_sdr;
v_cur_acct_scr_ref := h_account_scr;
v_cur_acct_sdr_ref := h_account_sdr;
WHILE cur_sundry_cr_mo%FOUND
OR      cur_sundry_dr_Mo%FOUND
LOOP
-------------------------------------------- TOTAL SUNDRY CREDIT PER ACCOUNT
     WHILE cur_sundry_cr_mo%FOUND
     AND h_account_scr = v_cur_acct_scr_ref
     LOOP
          v_sundry_credit_account := h_account_scr;
          v_sundry_cr_acct_total := v_sundry_cr_acct_total + h_amount_scr;
          v_sundry_credit_amount  := LPAD( v_sundry_cr_acct_total, 15, ' ');
          v_sundry_cr := v_sundry_credit_account || ' ' || v_sundry_credit_amount;
          h_account_scr := '                ';
          h_amount_scr  := '               ';
          FETCH cur_sundry_cr_mo INTO h_account_scr, h_amount_scr;
     END LOOP;
     v_cur_acct_scr_ref := h_account_scr;
-------------------------------------------- SUNDRY DEBIT PER INSTANCE
     WHILE cur_sundry_dr_mo%FOUND
     AND h_account_sdr = v_cur_acct_sdr_ref
     LOOP
-------------------------------------------- TOTAL SUNDRY DEBIT PER ACCOUNT
          v_sundry_debit_account := h_account_sdr;
          v_sundry_dr_acct_total := v_sundry_dr_acct_total + h_amount_sdr;
          v_sundry_debit_amount  := LPAD( v_sundry_dr_acct_total, 15, ' ');
          v_sundry_dr := v_sundry_debit_account || ' ' || v_sundry_debit_amount;
          FETCH cur_sundry_dr_mo INTO h_account_sdr, h_amount_sdr;
     END LOOP;
     v_cur_acct_sdr_ref := h_account_sdr;
-------------------------------------------- WRITE LINE
     insert_line;
     initialize_vars;
     v_sundry_cr_acct_total := 0;
     v_sundry_dr_acct_total := 0;
END LOOP;
CLOSE cur_sundry_cr_mo;
CLOSE cur_sundry_dr_mo;
format_sundry_colhead3;
insert_line;
END glccshdb;Can you give me sample on how to put debugging lines using dbms_output here?
I do not use TOAD or SqlDev to this the procudure....I only use SQL*Plus.
Thanks a lot