MBEW Änderung feststellen

[Jonathan698]

Hallo,

wie / ob aus SAP ein Trigger angelegt werden kann weiß ich nicht. Trigger sind aber eigentlich kein Hexenwerkzeug. Eine kleine Übersicht wäre hier zum Beispiel: http://de.wikibooks.org/wiki/Oracle:_Trigger

Bezüglich der BSIM habe ich noch eine Frage, welche Belegarten können denn überhaupt eine Änderung in der MBEW auslösen? Kann ich dies irgendwie herausfinden?


Mit freundlichen Grüßen
c0lt

[Tron]

Moin,
also das Anlegen eines DB Triggers für ORACLE habe ich gelöst.
ALLE folgenden Programme sind für SAP-systeme mit ORACLE Datenbank !!!

Ein fehlerhaft implementierter Trigger führt dazu, dass keine Werte mehr in die betroffene Tabelle geschrieben werden kann.
Daher sollte man sich im klaren sein, wie man Trigger wieder löschen kann. (mit DROP TRIGGER xx)

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. REPORT  ztest_trigger1                                               .
2.  
3. * Lösche Triggers T00X
4.  
5. EXEC SQL.
6. DROP TRIGGER T00X
7. ENDEXEC.

GeSHi ©

Zuerst ein kleiner Report zum Auflisten aller vorhandenen Trigger, da man keine wirklich brauchbaren Informationen über das erfolgreiche Anlegen erhält.
(SAP verwendet keine Trigger, zumindest in unserem System)

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. REPORT  zshow_all_triggers.
2. CONSTANTS crlf(2) VALUE %_cr_lf.
3.  
4.  
5. DATA: trigger TYPE ddf4dbtrig,
6.       event TYPE ddtrgevent,
7.       triggername TYPE ddtrigname,
8.       tabname TYPE dd02l-tabname,
9.       code(1024),
10.       refnames(1024).
11.  
12. DATA: BEGIN OF li OCCURS 0,
13.       li(512),
14.       END OF li.
15.  
16.  
17. EXEC SQL.
18.   open c for
19.     select table_name, trigger_name, triggering_event,
20.     referencing_names ,trigger_body
21.     from all_triggers
22. ENDEXEC.
23.  
24. DO.
25.   EXEC SQL.
26.     fetch next c into :tabname, :triggername, :event, :refnames, :code
27.   ENDEXEC.
28.  
29.   IF sy-subrc <> 0.
30.     EXIT.
31.   ENDIF.
32.  
33.   WRITE: / tabname COLOR COL_GROUP,
34.            triggername COLOR COL_GROUP,
35.            event COLOR COL_GROUP,
36.            refnames COLOR COL_GROUP.
37.   SPLIT code AT crlf+1(1) INTO TABLE li.
38.  
39.   LOOP AT li.
40.     WRITE: / li-li  COLOR COL_KEY  .
41.   ENDLOOP.
42.     WRITE  SY-ULINE.
43. ENDDO.
44.  
45. EXEC SQL.
46.   close c
47. ENDEXEC.

GeSHi ©

Ein DB-Trigger wird an einer Datenbanktabelle als eine Art Prozedur angehängt.
Als ORACLE SQL-Code sieht das u.a. so aus:


Dieser Trigger schreibt einen Timestamp und die Werte der Tabelle Z003 vor deren Änderung in die Tabelle Z004, wenn in Tabelle Z003 ein Wert geändert wird.
(Also genau wie der DBTABLOG-Mechanismus.)

Ich habe zuerst 2 SAP Tabellen angelegt (SE11)
Tabelle Z003:
F1 Keyfeld CHAR10
F2 CHAR10

Tabelle Z004:
TSTAMP Keyfeld CHAR14
F1 CHAR10
F2 CHAR10

Ein NATIVE SQL Ansatz für den Trigger sieht so aus:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. EXEC SQL.
2.  
3. CREATE OR REPLACE TRIGGER JGTEST
4. AFTER INSERT OR UPDATE ON Z003
5. REFERENCING NEW AS New OLD AS newRow
6. FOR EACH ROW
7. DECLARE
8. TSTAMP varchar2(14);
9. BEGIN
10. IF :newRow.f1 IS NOT NULL THEN
11. SELECT TO_CHAR(sysdate, 'YYYYMMDDHH24MISS') into TSTAMP FROM dual;
12.    INSERT INTO Z004 VALUES(TSTAMP,:newRow.f1,:newRow.f2);
13. END IF;
14. END JGTEST;
15.  
16. ENDEXEC.
17.  

GeSHi ©

Es gibt hier das Problem, daß ":newRow.f1" ungewollt eine Wertübergabe an das weiterverarbeitende ABAP darstellt !!!
So meldet auch die Syntaxprüfung einen Fehler!

Eine funktionierende Lösung:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. REPORT  ztest_trigger3                                               .
2. DATA t TYPE TABLE OF tab512 WITH HEADER LINE.
3.  
4. CONSTANTS crlf(2) VALUE %_cr_lf.
5.  
6. DATA: sql_statement(65535) TYPE c,
7. sql_stmt_length TYPE i,
8. sql_error_text(300),
9. sql_error_number LIKE sy-tabix,
10. record_count LIKE jctab-counter,
11. lt_error_codes TYPE STANDARD TABLE OF i.
12.  
13. APPEND 'CREATE OR REPLACE TRIGGER T003' TO t.
14. APPEND 'AFTER INSERT OR UPDATE' TO t.
15. APPEND 'ON Z003' TO t.
16. APPEND 'REFERENCING NEW AS New OLD AS newRow' TO t.
17. APPEND 'FOR EACH ROW' TO t.
18. APPEND 'DECLARE' TO t.
19. APPEND ' ' TO t.
20. APPEND 'TSTAMP varchar2(14);' TO t.
21. APPEND ' ' TO t.
22. APPEND 'BEGIN' TO t.
23. APPEND 'IF :newRow.f1 IS NOT NULL THEN' TO t.
24. APPEND
25. 'SELECT TO_CHAR(sysdate, ''YYYYMMDDHH24MISS'') into TSTAMP FROM dual;'
26.  TO t.
27. APPEND
28. 'INSERT INTO Z004 VALUES(TSTAMP, :newRow.f1, :newRow.f2);' TO t.
29. APPEND 'END IF;' TO t.
30. APPEND 'END T003;' TO t.
31.  
32. LOOP AT t.
33.   CONCATENATE sql_statement t-wa INTO sql_statement
34.   SEPARATED BY crlf+1(1).
35. ENDLOOP.
36. SHIFT sql_statement LEFT BY 1 PLACES.
37.  
38.  
39. sql_stmt_length = STRLEN( sql_statement ).
40. record_count = 1.
41.  
42.  
43. CALL 'C_DB_EXECUTE' ID 'STATLEN' FIELD sql_stmt_length
44. ID 'STATTXT' FIELD sql_statement
45. ID 'ROWNUM' FIELD record_count
46. ID 'SQLERR' FIELD sql_error_number
47. ID 'ERRTXT' FIELD sql_error_text.
48.  

GeSHi ©

Resourcen:
http://infolab.stanford.edu/~ullman/fcd ... ggers.html
http://download.oracle.com/docs/cd/B141 ... tm#1007172

gruß Tron

[Tron]

Einrichten eines TRIGGERS mit Klassen/Methodenaufruf

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. *&---------------------------------------------------------------------*
2. *& Report  ZTEST_TRIGGER                                               *
3. *&                                                                     *
4. *&---------------------------------------------------------------------*
5. *&                                                                     *
6. *&                                                                     *
7. *&---------------------------------------------------------------------*
8.  
9. REPORT  ztest_trigger4                                               .
10.  
11. CLASS cl_sql_statement DEFINITION LOAD.
12.  
13. DATA: g_sql TYPE REF TO cl_sql_statement.
14.  
15. DATA t TYPE TABLE OF tab512 WITH HEADER LINE.
16.  
17. CONSTANTS crlf(2) VALUE %_cr_lf.
18.  
19. DATA:
20. sql_statement TYPE string,
21. *sql_statement(65535) TYPE c,
22. sql_stmt_length TYPE i,
23. sql_error_text(300),
24. sql_error_number LIKE sy-tabix,
25. record_count LIKE jctab-counter,
26. lt_error_codes TYPE STANDARD TABLE OF i.
27.  
28.  
29.  
30. CREATE OBJECT g_sql.
31.  
32.  
33. APPEND 'CREATE OR REPLACE TRIGGER T003' TO t.
34. APPEND 'AFTER INSERT OR UPDATE' TO t.
35. APPEND 'ON Z003' TO t.
36. APPEND 'REFERENCING NEW AS New OLD AS newRow' TO t.
37. APPEND 'FOR EACH ROW' TO t.
38. APPEND 'DECLARE' TO t.
39. APPEND ' ' TO t.
40. APPEND 'TSTAMP varchar2(14);' TO t.
41. APPEND ' ' TO t.
42. APPEND 'BEGIN' TO t.
43. APPEND 'IF :newRow.f1 IS NOT NULL THEN' TO t.
44. APPEND
45. 'SELECT TO_CHAR(sysdate, ''YYYYMMDDHH24MISS'') into TSTAMP FROM dual;'
46.  TO t.
47. APPEND
48. 'INSERT INTO Z004 VALUES(TSTAMP, :newRow.f1, :newRow.f2);' TO t.
49. APPEND 'END IF;' TO t.
50. APPEND 'END T003;' TO t.
51.  
52. LOOP AT t.
53.   CONCATENATE sql_statement t-wa INTO sql_statement
54.   SEPARATED BY crlf+1(1).
55. ENDLOOP.
56. SHIFT sql_statement LEFT BY 1 PLACES.
57.  
58.  
59. *sql_stmt_length = STRLEN( sql_statement ).
60. *record_count = 1.
61.  
62.  
63. *CALL 'C_DB_EXECUTE' ID 'STATLEN' FIELD sql_stmt_length
64. *ID 'STATTXT' FIELD sql_statement
65. *ID 'ROWNUM' FIELD record_count
66. *ID 'SQLERR' FIELD sql_error_number
67. *ID 'ERRTXT' FIELD sql_error_text.
68. *l_element->set_attribute( name  = 'xmlns'
69. *                          value = xml_ns_uri_ifr ).
70.  
71. *TRY.
72. *CALL METHOD g_sql->execute_ddl
73. *  EXPORTING
74. *    statement        = sql_statement
75. *    .
76. * CATCH CX_SQL_EXCEPTION .
77. *ENDTRY.
78.  
79. TRY.
80.   g_sql->execute_ddl( statement = sql_statement ).
81.   CATCH cx_sql_exception .
82. ENDTRY.
83.  
84. FREE g_sql.
85.  
86. break sapuser.

GeSHi ©

gruß TRon