Die Stackinfo ist schon der richtige Ansatz.
Aber du musst dich vom Stack "hocharbeiten" um das 1. Programm zu finden, dass ggf. nicht mit "Q" anfängt und/oder nicht in der QSYS ist.
Bei Systemprogrammen (Spooler) funktioniert dies ja nun nicht, aber die kann man ggf. erkennen (alles aus QSYS, dann ist es ggf. der oberste Eintrag) und ausschließen.

Die beiden SQL-Funktionen sind nur Wrapper für die API's die den Aufruf vereinfachen.