Pl/Sql for creating Multiple record type file

Question

Hi all,
I have a scenario where I need to create a flat file that contains two different record types in the same file. Basically, a way of getting both the header record and the corresponding detail records. Following are the details:
Table A (Header Records)
"REC_TYPE" "M_ID" "DATE" "*C_ID*"
1 123 090807 *222*
1 345 090907 *333*
Table B (Detail Records)
"REC_TYPE" "A_NO" "LINE_NO" "*C_ID*"
2 7564 1 *222*
2 4535 2 *222*
2 4656 1 *333*
2 6576 2 *333*
In the output file, the resultset should be as:
222, 123, 090807 (Header Record)
*222, 7564, 1* (Detail Record)
*222, 4535, 2* (Detail Record)
333, 345, 090907 (Header Record)
*333, 4656, 1 (Detail Record)*
*333, 6576, 2 (Detail Record)*
Any input is greatly appreciated.
Thank you!

Answer 1

NOT TESTED ! Don't remember when I used loops for the last time. I won't have database access until september (on vacation).
declare
  type header_t is record
    c_id ... ,
  type detail_t is record
    c_id ... ,
  header_r header_t;
  detail_r detail_t;
  cursor c_h is select c_id, ...
                  from ...
                 order by 1;                      -- header cursor
  cursor c_d is select c_id, ...
                  from ...
                 order by 1;                      -- detail cursor
  end_line    varchar2(2) := chr(13) || chr(10);  -- chr(10) to be used for non Windows
  a_separator varchar2(1) := ',';
  a_buffer    varchar2(32767);
  l_buffer    constant number := 32767;
  f_handle    utl_file.file_type;
  procedure buffer_put(p_line in varchar2) is
  begin
    if length(a_buffer) + length(p_line) < l_buffer then
      a_buffer := a_buffer || p_line;
    else
      utl_file.put(f_handle,a_buffer);
      a_buffer := p_line;
    end if;
  end;
  function build_header_record(p_record in header_t) return varchar2 is
    retval varchar2(4000) := '';
  begin
    retval := retval || to_char(p_record.c_id) || a_separator;
    retval := retval || ... || a_separator;
    retval := retval || ... || end_line;
    return retval;
  end;
  function build_detail_record(p_record in detail_t) return varchar2 is
    retval varchar2(4000) := '';
  begin
    retval := retval || to_char(p_record.c_id) || a_separator;
    retval := retval || ... || a_separator;
    retval := retval || ... || end_line;
    return retval;
  end;
begin
  f_handle := utl_file.fopen ('THE_DIRECTORY','the_file.ext','w',l_buffer);
  open c_h;
  open c_d;
  loop
    fetch c_h into header_r;
    exit when c_h%notfound;
    buffer_put(build_header_record(header_r));
    if c_h%rowcount > 1 and (header_r.c_id = detail_r.c_id) then
      buffer_put(build_detail_record(detail_r));
    end if;
    loop
      fetch c_d into detail_r;
      exit when c_d%notfound or (detail_r.c_id != header_r.c_id);
      buffer_put(build_detail_record(detail_r));
    end loop;
  end loop;
  if length(a_buffer) > 0 then
    utl_file.put(f_handle,a_buffer);
  end if;
  utl_file.fflush(f_handle);
  utl_file.fclose(f_handle);
end;Regards
Etbin
utl_file.fclose(f_handle); instead of utl_file.fclose;
Edited by: Etbin on 11.8.2009 8:54