zOs/TX/PER23

* decFloat
creDb src 1
+ ok creDb DSN.TX.GENF(PER23s1) ::f