Retrieve Call Stack (QWVRCSTK) API

[TARASIK]

Hallo Kuempi,
vielleicht hilft Dir dies weiter:

quick method to determine the name of the calling program in RPG400

From: "Peter Connell"
Infinitely, IBM has kindly provided us with QWVRCSTK at V5.
Here's a "quickee" I whipped up to prove it.

D GetCaller PR Extpgm('QWVRCSTK')
D 2000
D 10I 0
D 8 CONST
D 56
D 8 CONST
D 15

D Var DS 2000
D BytAvl 10I 0
D BytRtn 10I 0
D Entries 10I 0
D Offset 10I 0
D EntryCount 10I 0
D VarLen S 10I 0 Inz(%size(Var))
D ApiErr S 15

D JobIdInf DS
D JIDQName 26 Inz('*')
D JIDIntID 16
D JIDRes3 2 Inz(*loval)
D JIDThreadInd 10I 0 Inz(1)
D JIDThread 8 Inz(*loval)

D Entry DS 256
D EntryLen 10I 0
D PgmNam 10 Overlay(Entry:25)
D PgmLib 10 Overlay(Entry:35)
D
C CallP GetCaller(Var:VarLen:'CSTK0100':JobIdInf
C :'JIDF0100':ApiErr)
C Do EntryCount
C Eval Entry = %subst(Var:Offset + 1)
C Eval Offset = Offset + EntryLen
C Enddo
C Eval *InLR = *on

[Fuerchau]

Das Problem ist, dass du auf diesem Wege nur das Programm unmittelbar vor dem Trigger bekommst.
Dieses ist allerdings nicht der Auslöser sondern ein Systemprogramm. Schau dir mal mittels Debugger den Callstack genau an, wieviel Programme ggf. noch dazwischen liegen.

[kuempi von stein]

Das Problem ist, dass du auf diesem Wege nur das Programm unmittelbar vor dem Trigger bekommst.
Dieses ist allerdings nicht der Auslöser sondern ein Systemprogramm. Schau dir mal mittels Debugger den Callstack genau an, wieviel Programme ggf. noch dazwischen liegen.

so schnell kann ich gar nicht tippen wie hier die antworten reinkommen... *lach...
ja das mit dem callstack dachte ich mir schon...

*seufz*

da kommt mir noch eine idee, ich könnte ja das triggerprogramm per call hier in dieses teil einbauen? mmhh...
das hat aber auch 2 parms... dann muss ich die rüberschleifen...
ich merk schon... ist alles komplizierter als geträumt..

kuempi

[TARASIK]

Hallo,
noch ein Beispiel:

http://archive.midrange.com/rpg400-l.../msg00386.html

[kuempi von stein]

Hallo Kuempi,
vielleicht hilft Dir dies weiter:

hello tarasik,

das sieht mir verdächtig nach ile-rpg aus. werde ich mal vorsichtig eintippen. habe leider keine erfahrungen damit. scheint aber genau das zu sein was ich benötige...
mhh...
hoffe mal, das ich den call zu diesem ile-teil ohne probs in mein olles rpg reinbekomme.
interpretiere ich die source richtig, dass da 10 mal ne schleifwe durchlaufen wird? dann muss ich ergo noch den "richtigen caller" finden und nen parm ans ile-rpg ranhängen, damit ich das zurückgeliefert bekomme was ich suche?
denke mal bis montag oder so kann ich mehr dazu sagen.
ist ca cool wie schnell hier geholfen wird.

oder noch besser, ich finde jemand, der mir das umsetzt von ile nach "oldstyle"-rpg...

es wird echt zeit, dass ich ile-rpg lerne denke ich.
mag jemand nen gutes buch empfehlen?

so long erstmal

kuempi