| ; example.clj | |
| (ns example) | |
| (defn createService [name] | |
| (let [pu (new org.eclipse.persistence.script.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" "create-or-extend-tables")) | |
| ) | |