Trigger Sql-updates

[tarkusch]

Aufrufstappel ist:

Art   Programm                 Anweisung         Prozedur         
      QCMD       QSYS                     /04FA                   
      ADDLIBLE   TSTPGM        2100       /0034                   
      QUOCPP     QPDA                     /07A0                   
      QUOMAIN    QPDA                     /011E                   
   1  QUOCMD     QSYS                     /01EA                   
      MNU01C     TSTPGM        6900       /008F                   
      MNU01R     T_TSTOBJ                        _QRNP_PEP_MNU01R 
      MNU01R     T_TSTOBJ      457               MNU01R           
      TPGM03     T_TSTOBJ                        _QRNP_PEP_TPGM03 
      TPGM03     T_TSTOBJ      2495              TPGM03           
      QRNXIO     QSYS          49                _QRNX_DB_UPDATE  
      QDBUDR     QSYS                     /0853

Update wurde vom Testprogramm TPGM03 gemacht.

[Fuerchau]

Wie du siehst gibts noch eine Runtimeebene dazwischen, QRNXIO.
Aus OPM wird aber QDBUDR direkt aufgerufen.
Und wie siehts bei SQL oder UPDDTA aus?

Ich habe mir dafür mal eine kleine Routine geschrieben, die den CALL-Stack (API) nach oben durchläuft und das 1. Programm sucht, dass nicht in einer Q-Lib liegt und nicht mit Q beginnt.
Denn dein SNDPGMMSG kann da nicht alle Varianten durchtesten, denn man muss wirklich mit der höchsten Variante anfangen. Aber wer sagt dir denn, dass nicht durch mehrere Trigger und diversen Zwischenstufen nicht das QRNXIO sehr viel höher liegt als der aktuelle Verursacher?
Ohne eine Stackuntersuchung ist das SNDPGMMSG-Verfahren nur noch für OPM ohne SQL gültigt.

Und noch eine Variante:
Die Anwendung benutzt Filehandler-Programme. Wenn nun jedesmal der Filehandler auftaucht ist der tatsächliche Verursacher nur zu finden, wenn man den Aufrufer des Filehandlers ermittelt.
Deshalb habe ich die CALL-Stackanalyse auch in jedem Trigger individualisiert.

[tarkusch]

Habe die von dir angegeben Variante getestet.

Hätte noch eine Frage:
Updates mit:
UPDDTA = QDZTD00001
SQL = QSQISE

gibt es sonst noch andere Ausnahmen die Updates machen können(außer Programme)?

[Fuerchau]

QSQISE ist STRSQL.
Es gibt auch noch embedded SQL und dynamisches SQL (ODBC-Jobs).
Wie ist es bei CPYF?