Déplacement massif de tous les éléments vers un autre schema ?

Bonjour,
Je souhaite trouver un moyen de déplacer 100 tables d'un schema 'A' vers un
schema 'B'. Non seulement les données. Mais également les index, les clef
primaires, contraintes (en quelque sorte INCLUDING ALL). Sauf erreur de ma
part, ce bout de code permettrait de déplacer les données en tant que tel.
Mais comment faire pour déplacer également les index, contraintes, clef
primaire...

DO
$$
DECLARE
row record;
BEGIN
FOR row IN SELECT tablename FROM pg_tables WHERE schemaname = 'A' --
and other conditions, if needed
LOOP
EXECUTE format('ALTER TABLE A.%I SET SCHEMA [B];', row.tablename);
END LOOP;
END;
$$;

Merci.