zOs/TX/WK923
=DQ0G=1 creDb src 1 + ok creDb A540769.TX.GENF(WK923s1) ::f