Source: pgsearchpath.4gl

d4-simple/pgsearchpath.4gl
DATABASE stores_demo

MAIN

    WHENEVER ERROR CONTINUE
    DROP TABLE searchpathschema.searchpathtable
    DROP TABLE searchpathtable
    PREPARE s1 FROM "DROP SCHEMA searchpathschema"
    EXECUTE s1
    WHENEVER ERROR STOP

    CREATE TABLE searchpathtable (id SERIAL, dt DATE)
--    DELETE FROM qx__schema WHERE table_name="searchpathtable"

    PREPARE s2 FROM "CREATE SCHEMA searchpathschema"
    EXECUTE s2

    INSERT INTO searchpathtable(dt) VALUES (TODAY)

    PREPARE s3 FROM "ALTER TABLE searchpathtable SET SCHEMA searchpathschema"
    EXECUTE s3

END MAIN