-- Remover locks de todos os schemas
DO
$$
DECLARE
  schemaname name;
BEGIN
  FOR schemaname IN SELECT nspname FROM pg_namespace WHERE nspname NOT LIKE 'pg_%' AND nspname <> 'information_schema' LOOP
    EXECUTE format('UPDATE %I.databasechangeloglock SET locked = false, lockgranted = null, lockedby = null;', schemaname);
  END LOOP;
END;
$$ LANGUAGE plpgsql;



-- Listar schemas com lock
DO
$$
DECLARE
  schemaname name;
  items RECORD;
BEGIN
  FOR schemaname IN SELECT nspname FROM pg_namespace WHERE nspname NOT LIKE 'pg_%' AND nspname <> 'information_schema' LOOP
    FOR items IN EXECUTE format('SELECT locked FROM %I.databasechangeloglock WHERE locked = true', schemaname) LOOP
      RAISE NOTICE USING MESSAGE = '>>>>>> SCHEMA: ' || schemaname || ', ' || 'LOCKED: ' || items.locked;
    END LOOP;
  END LOOP;
END;
$$ LANGUAGE plpgsql;