Retrieve Call Stack (QWVRCSTK) API

[B.Hauser]

es sollte wirklich per apicall gehen.
ein cl was ne liste erstellt und die dann eingelesen wird geht leider leider nicht....
mein chef hat diesen weg ausdrücklich verneint.

Darfst Du überhaupt kein CL verwenden oder nur keines das eine Liste erstellt?

Mit CL gibt es nämlich einen ganz einfachen Weg das rufende Programm zu ermitteln, über Send/Receive Message.

Hier das CL-Programm, vielleicht hilfts:
P$CALLED wird als Parameter übergeben, und P$CALLER ist das Programm im Call-Stack, für das das rufende Programm ermittelt werden soll.

             PGM        PARM(&P$CALLER           +                     
                             &P$CALLED)                
 
             DCL        VAR(&P$CALLER) TYPE(*CHAR) LEN(10)             
             DCL        VAR(&P$CALLED) TYPE(*CHAR) LEN(10)             
                                                                       
             DCL        VAR(&MSGKEY)   TYPE(*CHAR) LEN(4)              
             DCL        VAR(&SENDER)   TYPE(*CHAR) LEN(80)             
                                                                       
             SNDPGMMSG  MSG('TEST') TOPGMQ(*PRV (&P$CALLED)) +         
                          MSGTYPE(*RQS) KEYVAR(&MSGKEY)                
                                                                       
             RCVMSG     PGMQ(*PRV (&P$CALLED)) MSGKEY(&MSGKEY) +       
                          SENDER(&SENDER)                              
                                                                       
             CHGVAR     VAR(&P$CALLER) VALUE(%SST(&SENDER 56 10))
ENDE:        ENDPGM

Birgitta

[kuempi von stein]

Darfst Du überhaupt kein CL verwenden oder nur keines das eine Liste erstellt?
Birgitta

Sodele ...

erst mal vielen Dank an die vielen Helferlein!
Die Variante mit dem CL funktioniert.
Da muss dann natürlich als callendes Programm z.B. QDBPUT gegeben werden, wenn ich den Trigger auf Insert habe.
Wie auch immer, ein SNDPGMMSG mit anschliessenden RCVMSG scheint mir auch nicht ganz so ressourcenfressend zu sein wie eine Ausgabe nach Liste und diese dann einzulesen...
Die ILE-Geschichte hab ich leider nicht auf Anhieb gebacken bekommen. Interessant, aber da muss ich erst mal ein wenig Autodidaktik betreiben...
Aber der Tag hat ja leider nur 24 Stunden... :-))

Also, nochmal ein Dankeschön und schönes WE dann irgendwann...

kuempi

[Fuerchau]

Was nützt dir die Info, das ein QDB-Programm der Auslöser ist ?
Die sind es doch immer !

[kuempi von stein]

Was nützt dir die Info, das ein QDB-Programm der Auslöser ist ?
Die sind es doch immer !

ähmm... ich habe mich vermutlich schlecht ausgedrückt.
alsooooo
Sagen wir mal PGM4711 macht einen Insert auf eine Datei ...
Dann steht im Stack als Letzter caller VOR dem Triggerprogramm eben QDBdingens..
Und diesen Namen muss man im CL mitgegebn...
weil die Frage ist ja eben nicht welches Systemprogramm den Trigger ausgelöst hat, sondern welches Anwenderprogramm hat das Systemprogramm gerufen, welches dann eben den Trigger auslöst......
Wenn ich in dem Beispiellistung von der Brigitte als Anfrager den Namen des TriggerPGM mitgebe würde ich den QDBdingens zurückbekommen...
Gebe ich aber QDBdingens als Frage kommt der Name des ANwenderprogrammes...
Aber was rede ich mir den Mund fusselig? Das weisste doch eh alles...
Ich hatte mich nur schlecht ausgedrückt anscheinend..
Anyway...

ICH SAGE NOCHMAL DANKE AN ALLE!!!!

Werde in Zukunft hier öfter mitmischen denke ich...

Grüsse und so aus dem verregneten Berlin

kuempi