DECLARE
   sol1        htd.sol_id%TYPE      := &&1;
   fromdate    htd.tran_date%TYPE   := &&2;
   todate      htd.tran_date%TYPE   := &&3;

   CURSOR cur1
   IS
      SELECT dst.issu_br_code, dst.dd_num, dst.issue_date, dst.dd_crncy_code,
             dst.dd_amt, dst.payee_name, dst.pur_name, ddc.tran_id,
             ddc.tran_date
        FROM dst, ddc
       WHERE dst.dd_num = ddc.dd_num
         AND dst.issue_date = ddc.tran_date
         AND ddc.comm_amt_actual < ddc.comm_amt_calc
         AND ddc.init_sol_id = sol1
         AND ddc.tran_date BETWEEN fromdate AND todate;

   comm        htd.tran_amt%TYPE;
   mycounter   INTEGER              := 0;
   rec1        cur1%ROWTYPE;
BEGIN
   FOR rec1 IN cur1
   LOOP
      BEGIN
         BEGIN
            SELECT htd.tran_amt
              INTO comm
              FROM htd
             WHERE TRIM (htd.tran_id) = TRIM (rec1.tran_id)
               AND htd.tran_date = rec1.tran_date
               AND htd.acid = (SELECT acid
                                 FROM gam
                                 WHERE sol_id = sol1 AND 
                                 bacid = 'COMDRAFT');
         EXCEPTION
            WHEN NO_DATA_FOUND
            THEN
               comm := 0;

               SELECT COUNT (htd.part_tran_srl_num)
                 INTO mycounter
                 FROM htd
                 WHERE TRIM (htd.tran_id) = TRIM (rec1.tran_id)
                   AND htd.tran_date = rec1.tran_date
                   AND htd.acid IN (SELECT acid
                                   FROM gam
                                   WHERE schm_type= 'DDA');         
         END;

         DBMS_OUTPUT.put_line (   rec1.issue_date
                               || '|'
                               || rec1.dd_num
                               || '|'
                               || rec1.payee_name
                               || '|'
                               || rec1.dd_amt
                               || '|'
                               || rec1.dd_crncy_code
                               || '|'
                               || rec1.pur_name
                               || '|'
                               || comm
                               || '|'
                               || sol1
                               || '|'
                               || fromdate
                               || '|'
                               || todate
                               || '|'
                               || mycounter
                              );
      END;
   END LOOP;
END;
/