?

?

CREATE OR REPLACE procedure PULSEINP.dump_csv( 
                                      p_separator in varchar2
                                                    default ','
                                     )
is
    l_conn  UTL_TCP.connection;
    l_output        utl_file.file_type;
    l_theCursor     integer default dbms_sql.open_cursor;
    l_columnValue   varchar2(2000);
    l_status        integer;
    l_colCnt        number default 0;
    l_separator     varchar2(10) default ',';
    p_filename   varchar2(50) ;
    l_cnt           number default 0;
    p_query    varchar2(5000);
        
begin
    p_filename := 'CMN_TDRDAILY'||to_char(sysdate-(1/24), 'HH24')||'.CSV';
    l_output := utl_file.fopen( 'UTL_FILE_DIR', p_filename, 'w' );    
    p_query :='select REQUEST_TYPE,CALLSTARTTIME,ANI,DNIS,ROUTE1LABEL,ANI,LRN,DIALCODE,ANI FROM CMN_TDRDAILY'||to_char(sysdate-(1/24), 'HH24');
   DBMS_OUTPUT.PUT_LINE(p_query);
    dbms_sql.parse(  l_theCursor,  p_query, dbms_sql.native );

    for i in 1 .. 255 loop
        begin
            dbms_sql.define_column( l_theCursor, i,
                                    l_columnValue, 2000 );
            l_colCnt := i;
        exception
            when others then
                if ( sqlcode = -1007 ) then exit;
                else
                    raise;
                end if;
        end;
    end loop;
  DBMS_OUTPUT.PUT_LINE(l_colCnt);
    dbms_sql.define_column( l_theCursor, 1, l_columnValue,
                            2000 );

    l_status := dbms_sql.execute(l_theCursor);

    utl_file.put( l_output, 'CALLTYPE,STARTTIME,ORIGINATINGNUMBER,TERMINATINGNUMBER,TERMINATINGTRUNKNUMBER,col25,col26,col27,col28,col50,CALLCONNECTTIME,CALLANSWERTIME,CALLDISCONNECTTIME');
    utl_file.new_line( l_output );
    loop
        exit when ( dbms_sql.fetch_rows(l_theCursor) <= 0 );
        l_separator := '';
        for i in 1 .. l_colCnt loop
            dbms_sql.column_value( l_theCursor, i,
                                   l_columnValue );
                utl_file.put( l_output, l_separator || 
                                        l_columnValue );
                l_separator := p_separator;
        end loop;
         utl_file.put( l_output, ',,'||TO_CHAR(SYSDATE-5/(24*60), 'dd-mm-yy hh24:mi:ss')||','||TO_CHAR(SYSDATE-1/(24*60), 'dd-mm-yy hh24:mi:ss'));
        utl_file.new_line( l_output );
        l_cnt := l_cnt+1;
    end loop;
    dbms_sql.close_cursor(l_theCursor);

    utl_file.fclose( l_output );
  
  l_conn := ftp.login('10.0.1.29', '21', 'oracle', 'oracle');
  ftp.ascii(p_conn => l_conn);
  ftp.put(p_conn      => l_conn,
          p_from_dir  => 'MY_DOCS',
          p_from_file => p_filename,
          p_to_file   => '/home/oracle/'||p_filename);
  ftp.logout(l_conn);
  utl_tcp.close_all_connections;

end dump_csv;
/