; example.clj | |
(ns example) | |
(import org.eclipse.persistence.script.PersistenceUnit) | |
(defn createService [name] | |
(let [pu (PersistenceUnit. "test-1")] | |
(.setDataSource pu "java:app/env/DS") | |
(let [person (.addType pu "Person")] | |
(.id person "id", nil, "P_ID", "SEQUENCE") | |
(.basic person "name", nil, "NAME") | |
) | |
(.create pu "v1.0" "create-or-extend-tables"))) | |