Man könnte natürlich tricksen und im CL ne Variable haben in der die Lib drinsteht.
Aber ich denke, das ist keine schöne Lösung..

Die Lib sieht man im Programmstack!
Schau Dir den mal an, wenn das PGM läuft!

Auslesen dann mittels API QWVRCSTK
bzw hier nen Beispiel als Code midrange.com -- RPG400-L -- AW: procedure to return calling pgm name