Versuch es mit:

CRTSQLCBL PGM(XXX) ... OPTION(*LSTDBG)

bzw.
CRTSQLCBLI OBJ(XXX) ... DBGVIEW(*SOURCE)

Mittels "STRDBG XXX OPMSRC(*YES) " kannst du dann ganz normal debuggen.