Query large (20GB on-cluster, for us) Redshift tables that are missing sort keys or are not diststyle key

crap_tables.sql

SELECT
  TRIM(pgn.nspname) AS schema,
  TRIM(a.name) AS table,
  CASE WHEN pgc.reldiststyle != 1 AND ti.sortkey_num = 0 THEN 'DISTSTYLE NOT KEY AND NO SORTKEY (TABLE IS GARBAGE)'
       WHEN pgc.reldiststyle != 1 THEN 'DISTSTYLE NOT KEY'
       WHEN ti.sortkey_num = 0 THEN 'NO SORTKEY'
       END as issue
FROM
  (
    SELECT db_id, id, name, SUM(rows) AS rows
    FROM stv_tbl_perm a
    GROUP BY db_id, id, name
  ) AS a
JOIN pg_class AS pgc ON pgc.oid = a.id
JOIN pg_namespace AS pgn ON pgn.oid = pgc.relnamespace
  AND pgn.nspowner > 1
JOIN
  (
    SELECT tbl, COUNT(*) AS mbytes
    FROM stv_blocklist
    GROUP BY tbl
  ) b ON a.id = b.tbl
JOIN svv_table_info ti
  ON ti.schema = pgn.nspname AND a.name = ti.table
WHERE b.mbytes >= 20480
  AND (pgc.reldiststyle != 1 OR ti.sortkey_num = 0)