Report To Generate Output in Concurrent Program Output

Declare
  l_consinv_id Number;
begin
   fnd_file.put_line(fnd_file.output,'-----------Consolidated Report-------------------');
   fnd_file.put_line(fnd_file.output,'Consolidated Billing Number : '||l_consinv_id|| chr(13));
   fnd_file.put_line(fnd_file.output,rpad ('Transaction Number',25,' ')||rpad ('Amount',25,' ')||rpad ('GL Date',25,' ')||rpad ('Transactio Date',25,' '));
   fnd_file.put_line(fnd_file.output,'-------------------------------------------------');
   lv_amount_original:=0;
       for i in (select       racta.gd_gl_date,acita.transaction_date,arcia.cons_billing_number,acita.customer_trx_id,racta.trx_nu mber,acita.amount_original
from ar_cons_inv_all arcia,ar_cons_inv_trx_all acita,ra_customer_trx_v racta
where arcia.cons_inv_id = acita.cons_inv_id
and acita.customer_trx_id=racta.customer_trx_id
and acita.customer_trx_id is not null and arcia.cons_inv_id=l_consinv_id)
    loop
        fnd_file.put_line(fnd_file.output,rpad (i.trx_number,25)||rpad (i.amount_original,25)||rpad       (i.gd_gl_date,25)||rpad (i.transaction_date,25));
        lv_amount_original:=lv_amount_original+i.amount_original;
    end loop;
        fnd_file.put_line(fnd_file.output,'-------------------------------------------------');
        fnd_file.put_line(fnd_file.output,'Total Invoice Amount: '||lv_amount_original);
end;