DECLARE
   sqlcommand      VARCHAR2 (3000);
   recordscount    INT;
   regexpression   VARCHAR2 (250);
   recordid        VARCHAR (38);
   columvalue      VARCHAR2 (250);

   CURSOR tbl_cur
   IS
      SELECT "Code"
        FROM "tbl_Service"
       WHERE "ServiceTypeCode" = 'Table';

   CURSOR col_cur (tblname VARCHAR2)
   IS
      SELECT column_name
        FROM ts_tab_columns
       WHERE table_name = tblname AND data_type = 'VARCHAR2' AND DATA_LENGTH > 38;

   TYPE query_curtype IS REF CURSOR;

   dyncur          query_curtype;
BEGIN
   regexpression := '[A-Za-z]';

   FOR tbl_rec IN tbl_cur
   LOOP
      sqlcommand := 'SELECT COUNT(*) FROM "' || tbl_rec."Code" || '"';

      EXECUTE IMMEDIATE sqlcommand
                   INTO recordscount;

      IF recordscount > 0
      THEN
         FOR col_rec IN col_cur (tbl_rec."Code")
         LOOP
            sqlcommand :=
                  'SELECT "ID","'
               || col_rec.column_name
               || '" FROM "'
               || tbl_rec."Code"
               || '" WHERE REGEXP_LIKE("'
               || col_rec.column_name
               || '",'''
               || regexpression
               || ''')';

            OPEN dyncur FOR sqlcommand;

            FETCH dyncur
             INTO recordid, columvalue;

            WHILE (dyncur%FOUND)
            LOOP
               DBMS_OUTPUT.put_line (   tbl_rec."Code"
                                     || ':'
                                     || col_rec.column_name
                                     || ':'
                                     || recordid
                                     || ':'
                                     || columvalue
                                    );

               FETCH dyncur
                INTO recordid, columvalue;
            END LOOP;

            CLOSE dyncur;
         END LOOP;
      END IF;
   END LOOP;
END;