Utl_file help!!!

Question

Hey people :) Below is my code it is produces a list of names address for a mail merge, an example of an outputted file:
32-36 GREAT VICTORIA STREET
BELFAST
BT2 7BA
08448920902
0026936
000001
MRS FRAME
51 HOUSE DRIVE
HOUSETOWN
COUNTY ANTRIM
BT36 7JY
03 DEC 2008
MRS FRAME
0.35
28-JUL-08
07-DEC-08
01-APR-08
07-DEC-08
0.72
ALAN CASKEY
Which is perfect, but when some users input the data, tehy leave the l.INPUT_HOUSE_NO as null and input the house number as part of the l.input_address_line1, which leaves a blank space where the house number should be for example:
32-36 GREAT VICTORIA STREET
BELFAST
BT2 7BA
08448920902
0031955
000002
MR TOWNSLEY
__2 HOUSE GARDENS (unneeded space in the address, how could i fix this??)
HOUSETOWN
BT13 3RJ
03 DEC 2008
MR TOWNSLEY
0.04
01-APR-08
23-NOV-08
01-APR-08
23-NOV-08
0.60
ALAN CASKEY
Thanks
DECLARE
     v_count NUMBER(10) := 0;
     wk_start_seqno date;     
     EXEC_file UTL_FILE.FILE_TYPE;
   CURSOR read_lpa_input
   IS
      SELECT
                 a.address_line3,
                 a.address_line4,
      a.address_line5,
      a.post_code,
      a.tel_no,
              l.claim_no,
              lpad(row_number() OVER(ORDER BY l.claim_no), 6, '0') AS snum,
              l.input_title,
      l.input_surname,
                 l.INPUT_HOUSE_NO,
              l.input_address_line1,
      l.input_address_line2,
      l.input_address_line3,
      l.input_address_line4,
      l.input_post_code,     
             to_char(sysdate, 'DD MON YYYY') AS prntdate,
      l.input_title AS input_title2,
      l.input_surname AS input_surname2,
      h.lpa_amt,
      h.start_date,
      c.paidto_date,
      h.start_date AS start_date2,
      c.paidto_date AS paidto_date2,
      c.overpay_halahra,
      a.sho_name
FROM lpa_input l, lpa_address a, lpa_history h, lpa_claim c
     WHERE a.aun_code = l.input_aun_code
     AND h.claim_no = c.claim_no
     AND l.claim_no = h.claim_no
     AND c.overpay_halahra > '0'
     and ent_seqno = (select max (ent_seqno) from lpa_history where claim_no = c.claim_no);
TYPE wk_tab IS TABLE OF read_lpa_input%ROWTYPE
      INDEX BY PLS_INTEGER;
   wk   wk_tab;
BEGIN
exec_file := utl_file.fopen('/spp/spool/RBLIVE/rr_output', 'output501.txt', 'W');
  OPEN read_lpa_input;
   LOOP
   EXIT WHEN read_lpa_input%NOTFOUND;
   FETCH read_lpa_input
   BULK COLLECT INTO wk LIMIT 100;
      FOR i IN 1 .. wk.count
      LOOP
select start_date  into wk_start_seqno from lpa_history where claim_no = wk(i).claim_no
and ent_seqno = (select max (ent_seqno) - 1 from lpa_history
where claim_no = wk(i).claim_no);
v_count :=0;
utl_file.put_line(exec_file, wk(i).address_line3);
utl_file.put_line(exec_file, wk(i).address_line4);
IF wk(i).address_line5 IS NOT NULL THEN
utl_file.put_line(exec_file, wk(i).address_line5);
ELSE
  v_count := v_count+1; -- count the number of blank lines
END IF;
utl_file.put_line(exec_file, wk(i).post_code);
IF v_count > 0 THEN -- we have omitted some lines
  FOR i IN 1..v_count LOOP -- loop that many times
    utl_file.new_line(exec_file); -- write a blank line
  END LOOP;
END IF;
         utl_file.put_line(exec_file, wk(i).tel_no);
         utl_file.put_line(exec_file, wk(i).claim_no);
utl_file.put_line(exec_file, wk(i).snum);
utl_file.put_line(exec_file, wk(i).input_title||' '||wk(i).input_surname);
v_count :=0;
---------------------------------------------------------------------------------HELP HERE!!!!
IF wk(i).input_address_line1 IS NOT NULL THEN
utl_file.put_line(exec_file, wk(i).INPUT_HOUSE_NO||' '||wk(i).input_address_line1);
ELSE
v_count := v_count+1; -- count the number of blank lines
END IF;
IF wk(i).input_address_line2 IS NOT NULL THEN
utl_file.put_line(exec_file, wk(i).input_address_line2);
ELSE
  v_count := v_count+1; -- count the number of blank lines
END IF;
IF wk(i).input_address_line3 IS NOT NULL THEN
utl_file.put_line(exec_file, wk(i).input_address_line3);
ELSE
  v_count := v_count+1; -- count the number of blank lines
END IF;
IF wk(i).input_address_line4 IS NOT NULL THEN
utl_file.put_line(exec_file, wk(i).input_address_line4);
ELSE
  v_count := v_count+1; -- count the number of blank lines
END IF;
         utl_file.put_line(exec_file, wk(i).input_post_code);
IF v_count > 0 THEN -- we have omitted some lines
  FOR i IN 1..v_count LOOP -- loop that many times
    utl_file.new_line(exec_file); -- write a blank line
  END LOOP;
END IF;
         utl_file.put_line(exec_file, wk(i).prntdate);
         utl_file.put_line(exec_file, wk(i).input_title2||' '||wk(i).input_surname2);
         utl_file.put_line(exec_file, to_char(round(wk(i).lpa_amt,2),'99G990D00'));
      utl_file.put_line(exec_file, wk(i).start_date);
      utl_file.put_line(exec_file, wk(i).paidto_date);
      utl_file.put_line(exec_file, wk_start_seqno);
      utl_file.put_line(exec_file, wk(i).paidto_date2);
      utl_file.put_line(exec_file, to_char(round(wk(i).overpay_halahra,2),'99G990D00'));
      utl_file.put_line(exec_file, wk(i).sho_name);
      END LOOP;
   END LOOP;
   CLOSE read_lpa_input;
   utl_file.fclose(exec_file);
END;
/Edited by: user653315 on 03-Dec-2008 04:11

Answer 1

Try this...
IF wk(i).input_address_line1 IS NOT NULL THEN
  utl_file.put_line(exec_file, CASE WHEN wk(i).INPUT_HOUSE_NO IS NULL THEN NULL ELSE wk(i).INPUT_HOUSE_NO||' ' END||wk(i).input_address_line1);
ELSE
  v_count := v_count+1; -- count the number of blank lines
END IF;