CREATE OR REPLACE FUNCTION repaired_table_func() RETURNS integer AS '

DECLARE 
	tid_var tid;
BEGIN
FOR tid_var IN
        SELECT ct.ctid  FROM corrupted_table cl JOIN (SELECT (point(b,n))::text::tid AS ctid FROM generate_series(0, 1024) b,generate_series(0, 10240) n) ct ON cl.ctid = ct.ctid
    LOOP
	BEGIN
INSERT INTO kdv_repaired_table
SELECT *  FROM corrupted_table cl
WHERE  cl.ctid=tid_var;
    EXCEPTION
    --WHEN undefined_column THEN
    WHEN OTHERS THEN
    RAISE NOTICE ''SQLSTATE: %'', SQLSTATE;
    END;
        END LOOP;
return 0;
END;
' LANGUAGE plpgsql;

dbprod=# SELECT repaired_table_func();

ERROR:  could not read block 1181 of relation base/16385/16807: read only 4096 of 8192 bytes
CONTEXT:  PL/pgSQL function "repaired_table_func" line 5 at FOR over SELECT rows

FOR i=0..10 LOOP
 begin --savepoint here -- блок целиком
   FOR k =0..70 LOOP

   END LOOP;
 exception when
   .......
 end;-- begin block
END LOOP;