... where schema_name < 'data_20230101'

CREATE OR REPLACE FUNCTION delete_obsolete(d integer)
RETURNS void
LANGUAGE plpgsql
STRICT
AS $function$
declare
  r record;
  node_role bool;
  schema_nm varchar ='';
  schema_to varchar = '';
  r1 record;
  tmp1 record;
begin
  set search_path=data,public,pg_catalog;
    select into node_role pg_is_in_recovery();
    raise notice 'Delete obsolete schemas.';
    raise notice '==============================================';
    raise notice 'Node role in cluster is replica?: %', node_role;
    if node_role = false then
       raise notice 'LEADER: start procedure.';
           -- delete old schemas data_, older then 9 days
           select into schema_to 'data_'||TO_CHAR (now()- interval '9 days', 'YYYYMMDD_HHMMSS');
           for r1 in
             select schema_name FROM information_schema.schemata WHERE schema_name like 'data_2%'
           loop
                raise notice '> % : ',r1.schema_name;
                if r1.schema_name < schema_to then
                     raise notice 'delete schema % : ',r1.schema_name;
                      execute 'drop schema ' || r1.schema_name || ' cascade;';
                end if;
           end loop;
       else
             raise notice 'REPLICA: skip procedure.';
    end if;
    raise notice 'Delete obsolete schemas finished.';
    raise notice '==============================================';
  reset search_path;
end;
$function$
;