zOs/TX/PER16

* check locking
=txLe=50
credb trg 1
+ ok creDb DSN.TX.GENF(PER16t1) ::f