find columns that contain a single value for all rows - Mailing list pgsql-general

Hi,

Is there an easy way to find all the columns in all the tables in a
database which contain the same value for all rows?

For example, Column A contains the value '365' for all of the rows in
Table One:

Col A
--------
   365
   365
   365
   365
   365
   ...
   ...
   ...

I need a recursive function or query that will find all columns like
this and remove them from their respective tables ...

Thanks,

Gerry