create or replace PROCEDURE PRC_ERR_SEX
IS
  sql_str CLOB;
  v_file UTL_FILE.FILE_TYPE;
  l_row CLOB;
  v_cursor INTEGER;
  v_rows   INTEGER;
BEGIN
sql_str:='select * from V_ERR_SEX';
v_file := UTL_FILE.FOPEN_NCHAR('ANALYST_REP_DATA','TRUESEX.csv','W',32767);
DBMS_OUTPUT.put_line ('sql_str='||sql_str);
  v_cursor := DBMS_SQL.OPEN_CURSOR;
  DBMS_SQL.PARSE(v_cursor, sql_str, DBMS_SQL.NATIVE);
  dbms_sql.define_column(v_cursor, 1, l_row);
  v_rows := DBMS_SQL.EXECUTE(v_cursor);
  --
  LOOP
    IF dbms_sql.Fetch_Rows(v_cursor) = 0 THEN
      EXIT;
    ELSE
      dbms_sql.column_value(v_cursor, 1, l_row);
      BEGIN
        UTL_FILE.PUT_LINE_NCHAR(v_file, l_row);
      EXCEPTION
      WHEN OTHERS THEN
        NULL;
      END;
    END IF;
  END LOOP;
  BEGIN
    UTL_FILE.FCLOSE(v_file);
  EXCEPTION
  WHEN OTHERS THEN
    NULL;
  END;
  DBMS_SQL.CLOSE_CURSOR(v_cursor);
END PRC_ERR_SEX;