Das Problem tritt leider häufig bei Kombination diverser Anwendungen auf, die ursprünglich wenig oder gar nichts mit einander zu tun haben.

Bei Join-Beziehungen (auch Subselect), muss dann eben die linke Seite gecastet werden:

select ...
from filea
join fileb on cast(filea.key as ...)=fileb.key

In deinem Fall also

cast(a.key as zoned(n, m)) = b.key

Ist die Ausprägung ggf. auch noch anders muss ggf. mehrfach gecastet werden.
Ich habe z.B. das Problem, dass in Brain-XPPS die Kunden-Nr. 8-stellig gepackt ist, in DCW-Fibu aber 7-stellig Alpha!
Dies geht auch sehr schnell eben mit:

substr(digits(kdkdnr), 2, 7) = UKTO

Für andere Feldtypen müssen eben entsprechende Regeln angewendet werden.