PLSQL - fail, cant get it work. PLEASE HELP

Question

This is the sql: I am basically trying to loop through every table in a users schema and write a line in a file for all the columns it has:
repheader off
set echo off
set feedback off
set trimout on
set trimspool on
set verify off
set serveroutput on format wrap
DECLARE
CURSOR table_cur IS     SELECT DISTINCT table_name FROM dba_tab_cols WHERE owner = 'BATCH_AFTER' and not table_name like 'CB%' and not table_name like 'CE%' and not table_name like 'CF%'
and not table_name like 'CI%';
v_table          VARCHAR2(100);
v_col           VARCHAR2(100);
v_string VARCHAR2(32767);
file_name VARCHAR2(200);
out_file utl_file.file_type;
BEGIN
file_name := 'tables_to_check.txt';
out_file := utl_file.fopen('JOHAN',file_name, 'w');
v_string := 'select count(DISTINCT ';
FOR tab_rec IN table_cur
LOOP v_table := tab_rec.table_name;
EXIT WHEN table_cur%NOTFOUND;
DECLARE
     CURSOR table_col_cur IS
               SELECT DISTINCT a.column_name
               FROM dba_tab_cols a
               WHERE a.owner = 'BATCH_AFTER'
               AND a.table_name = v_table
               AND not a.column_name in ('O__EDN', 'O__KDN', 'O__EDX', 'O__KDX','O__KDXA', 'O__ST');
     BEGIN
          FOR tab_col_rec IN table_col_cur
          LOOP
          EXIT WHEN table_col_cur%NOTFOUND;
               v_col := RTRIM(tab_col_rec.column_name, ' ');
               v_string := v_string || v_col || '||' ;
          END LOOP;
     exception
     when others then
     DBMS_OUTPUT.put_line (v_table||v_col);
     END;
     v_string := RTRIM(v_string,'||');
v_string := v_string ||' from BATCH_AFTER.' ||v_table;
UTL_FILE.PUTF(out_file, v_string);
END LOOP;
UTL_FILE.FCLOSE(out_file);
exception
     when others then
     DBMS_OUTPUT.put_line (v_table||' ' ||v_col);
END;

Answer 1

Hello
I have review your code and i have rewritte it so you do not need those variables anymore, I hope that it will works for you
repheader off
set echo off
set feedback off
set trimout on
set trimspool on
set verify off
set serveroutput on format wrapDECLARE
out_file    UTL_FILE.file_type;
BEGIN
file_name := 'tables_to_check.txt';
out_file := UTL_FILE.fopen ('JOHAN', 'tables_to_check.txt', 'w');FOR tab_rec IN (SELECT DISTINCT table_name
FROM dba_tab_cols
WHERE owner = 'BATCH_AFTER'
AND NOT table_name LIKE 'CB%'
AND NOT table_name LIKE 'CE%'
AND NOT table_name LIKE 'CF%'
AND NOT table_name LIKE 'CI%')
LOOP
UTL_FILE.putf (out_file, 'select count(DISTINCT ');
FOR tab_col_rec IN (SELECT DISTINCT a.column_name
FROM dba_tab_cols a
WHERE a.owner = 'BATCH_AFTER'
AND a.table_name = tab_rec.table_name
AND NOT a.column_name IN
('O__EDN',
'O__KDN',
'O__EDX',
'O__KDX',
'O__KDXA',
'O__ST'
LOOP
UTL_FILE.put (out_file, RTRIM (tab_col_rec.column_name, ' ') || '||');
END LOOP;
UTL_FILE.put (out_file, ''''' from BATCH_AFTER.' || tab_rec.table_name);
UTL_FILE.new_line;
END LOOP;
UTL_FILE.fclose (out_file);
EXCEPTION
WHEN OTHERS
THEN
UTL_FILE.fclose (out_file);
DBMS_OUTPUT.put_line (SQLERRM);
END;