Auffinden des Aufruf-Programms

[B.Hauser]

Hallo,

suche vergeblich eine Möglichkeit, den Namen des aufrufenden
PGM zu ermitteln. Also PGM A ruft PGM B auf und in PGM B soll
der Name von PGM A ermittelt werden.

Vielen Dank für die Mithilfe!

Schreib einen 2-Zeiler in CL oder greife mit dem API QWVRCSTK den Call-Stack ab.

CL-Programm:

           PGM        PARM(&CALLER           +
                             &CALLED)
   /* ---------------------------------------------------------------*/
             DCL        VAR(&CALLER) TYPE(*CHAR) LEN(10)
             DCL        VAR(&CALLED) TYPE(*CHAR) LEN(10)

             DCL        VAR(&MSGKEY)   TYPE(*CHAR) LEN(4)
             DCL        VAR(&SENDER)   TYPE(*CHAR) LEN(80)
   /* ---------------------------------------------------------------*/
             SNDPGMMSG  MSG('TEST')                                  +
                        TOPGMQ(*PRV (&CALLED))                       +
                        MSGTYPE(*RQS)                                +
                        KEYVAR(&MSGKEY)

             RCVMSG     PGMQ(*PRV (&CALLED))                         +
                        MSGKEY(&MSGKEY)                              +
                        SENDER(&SENDER)

             CHGVAR     VAR(&CALLER) VALUE(%SST(&SENDER 56 10))
   ENDE:     ENDPGM 

&CALLED ist Dein Programm B und wird an dieses CL-Programm übergeben und &CALLER ist Dein Programm A und wird zurückgegeben.

Birgitta