zOs/TX/QBPRB
credb src 1 + ok creDb DSN.TX.GENF(QBPRBs1) ::f