zOs/TX/TBADP

$=partsT=3
$=partsS=5
creDb trg 1
+ ok creDb DSN.TX.GENF(TBADPt1) ::f
creDb src 1
+ ok creDb DSN.TX.GENF(TBADPs1) ::f