2 Möglichkeiten:
a) solange rückwärts im Callstack senden, bis das 1. Programm nicht mit "Q" anfängt.
b) in der DS MsgInf wird auch die Lib übergeben, also prüfen bis Lib <> QSYS

Dabei würde ich allerdings spezielle Programmnamen wie von STRSQL spezifisch behandeln.