rekursiver Call

[B.Hauser]

Wenn es nur darum geht das rufende Programm zu ermitteln, sind 2 CL-Befehle ausreichend.

Beispiel:

          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 

Bei CALLED übergibst Du das aktuelle Programm und in CALLER bekommst Du das rufende Programm zurück.
Jetzt brauchst Du nur noch eine Schleife darum zu bauen, und jeweils immer den CALLER als CALLED übergeben, solange, bis Du entweder Dein Programm findest (Rekursiver Aufruf) oder bis Du am Anfang des CALL-Stack bist.

Ansonsten ist es auch möglich RPGIV-Programme rekursiv aufzurufen. Sie benötigen lediglich Aktivierungsgruppe *NEW.

Birgitta

[Marimari1009]

Vielen Dank an alle,

ich habe mich entschieden, in meinem Fall das (geniale) CL von Birgitta zu verwenden (Einverständnis vorausgesetzt); ist für bestehende Anwendungen ideal, vor allem wenn man es auf den Knall beim CALL nicht ankommen lassen will, sondern vorher Fußzeile und F-Tasten verändern / sperren möchte.

Die Statusabfrage (Fuerchau) werde ich versuchen, bei jedem CALL zum Standard zu machen (wird nicht einfach; ich bin im Unternehmen nicht der einzige PGMR).

Nochmals danke

Klaus Hardy

[Frank Hildebrandt]

Hier gibt es noch ein Beispielprogramm zum besagten API. Das API liefert noch eine ganze Menge an zusätzlichen Informationen. http://www.rlpforen.de/showthread.php?t=9375