Aufrufendes Programm ermitteln

[Fuerchau]

*PRV ist allerdings das Programm, dass das CLP aufruft.
Bei ILE sind auch noch einige Ebenen dazwischen.
SNDPGMMSG unerstützt keine "relative" Adressierung, wenn man nicht *PRV nehmen kann, muss man leider genau die Programm/Prozedurnamen kennen sonst schlägt der Befehl fehl.

Alternativ wäre allerdings ein "Wrapper":
- Originärer Programmname als CLP mit den Aufrufparametern
- obigen SNDPGMMSG ausführen
- das Ergebnis als zusätzlichen Parameter an das eigentliche Programm (neuer Name) durchreichen

[B.Hauser]

*PRV geht eine Stufe zurück. Deshalb habe ich auch gesagt, solange nur Programme verwendet werden. Werden natürlich zwischenzeitlich Prozeduren aufgerufen oder das Programm aus einer Prozedur aufgerufen, klappt das nicht.

Ich gehen in diesem Fall jedoch davon aus, dass nur Programme aufgerufen werden.

Birgitta

[Fuerchau]

*PRV liefert das aufrufende Programm:
CALL PGMA
CALL PGMB
Der Call des CLP's aus PGMB kann nur PGMB und nicht PGMA liefern.
Deshalb der "Wrapper".

[B.Hauser]

*PRV liefert das aufrufende Programm:
CALL PGMA
CALL PGMB
Der Call des CLP's aus PGMB kann nur PGMB und nicht PGMA liefern.
Deshalb der "Wrapper".

Versuch doch einfach das kleine CL-Programm aufzurufen, und zwar so wie ich beschrieben habe, d.h. Du übergibst den Namen des RPG-Programms als PARCALLED und als PARCALLER bekommst Du das Programm zurück das das RPG-Programm aufgerufen hat.

Auf diese Weise kann man sogar durch den CALL-Stack hangeln, d.h. das im ParCALLED Parameter zurückgegebene Programm wird beim nächsten Aufruf als PARCALLER übergeben usw. bis der Anfang des Callstacks erreicht ist.

Ich hatte das Programm (bevor es das API gab -also vor Release V5R1) jahrelang im Einsatz, schon in den alten RPGIII-Zeiten und auch noch in den frühen RPGIV-Zeiten.
Das Teil habe ich sogar dazu verwendet um das Programm zu ermittelt, das einen Trigger aktiviert hat.

Birgitta