MBEW Änderung feststellen

[Jonny2227]

Hallo,

also mir ist diesbezüglich nichts bekannt - denn das eine ist ja SAP Standard - eine Append Struktur und das andere ist ja DB Standard ein Trigger einzustellen - na und was dieser dann tut kann ja SAP egal sein, denn SAP ist ja "DB Interface unabhängig" . Aber wie gesagt - genaueres kann ich dazu nicht sagen - wäre aber interessant zu hören warum das dann so wäre von Seiten SAP ?!

Gruss Jens

[Tron]

Moin,
wie wäre es mit einem "Kompromiss" und zwar die Tabellenaufzeichnug mit Transaktion SE11 zu aktivieren (und mit SE14 noch mal nachgenerieren !), dann könnte man die Änderungen der MBEW in der Tabelle DBTABLOG sehen ?

@Jens: ich habe vor längerer Zeit mal mit Triggern an einer Oracle Datenbank experimentiert. Dabei ist mir der Trigger am Anfang aber nicht gelungen( war inkonsistent). Dieses hatte dann zur Folge, dass in die Tabelle, wo der Trigger angesiedelt war, keine Daten mehr abgespeichert werden konnten.
Wie sieht eigentlich so ein NATIVE SQL script für einen Trigger aus ?
z.B. Ich möchte einen Zeitstempel in eine Tabelle X speichern, wenn sich ein Datensatz in der USR41 ändert ?

gruß Tron

[Jonathan698]

Moin,

ich werde nun erst einmal ein paar SELECT Tests ohne Änderung machen, mal sehen was für Zeiten es werden (Einschränkung per DAtum Belegart, und Belegnummer > gemerkter Nummer etc.)

Vielen Dank für die vielen Tipps!
mfg
c0lt

[Jonny2227]

Hallo Tron,

nun ich habe da ein kleinen Report, mit dem ich zum einen den Trigger erstelle, aktiviere, deaktiviere, lösche oder anzeige. Bis dato hatte ich da keine Probleme mit der DB oder so - kann aber auch sein das es bis dato "Glück" war - aber eigentlich ist so ein DB Trigger ja Standard für die meisten DB's. Wir haben eine Oracle DB im einsatz und fürs anlegen schaut das bei mir so aus: (Repot Auszug)
...
DATA: str_trigger_name TYPE string VALUE 'TR1_B_IU_%TAB%',

data:str_create TYPE string VALUE 'create trigger %NAME% ' &
'before insert or update ' &
'on %TAB% for each row ' &
'begin ' &
'select to_char sysdate, ''dd.mm.yyyy'') into :new.%FIELD% from dual; ' &
'select to_char(sysdate, ''hh24:mi:ss'') into :new.%FIELD_1% from dual; ' &
'end;',

.....

case abap_true.
....
WHEN create.
PERFORM exec USING str_create.
WRITE: / 'Trigger created.'.
....
endcase.
den Tabellen Namen gebe ich dem Report im elections Bild mit und auch die Namen der beiden Felder. Ich habe z.Bsp. 2 Felder - change_date & change_time angehängt (denn ich brauchte für eine Selektion ganz genaue Daten) und dann den Trigger angelegt und aktiviert. Zusätzlich habe ich noch einen Index dann der Tabelle spendiert für einen schnelleren Zugriff auf meine beiden neuen Felder. Na und bis jetzt läuft das ganz gut so

Gruss Jens

[Lavinia3875]

Und ein DB Trigger - ist ausserhalb von SAP - eine ganz normale Möglichkeit auf DB Änderungen auf DB Ebene zu reagieren(bietet jede gute DB an). Kann mit einem SAP Programm auch recht flott erstellt werden oder aber der DB Admin macht es für dich - (das ist wohl die schnellste Variante). Und alles andere passiert dann ganz automatisch - sobald ein update auf DB Ebene erkannt wird - werden vor dem Schreiben der Daten auf die DB die 2 Felder mit befüllt - das ist alles.

Oha, sowas kenn ich noch gar nicht. Wer kann mir denn darüber mehr erzählen? Wie mach ich das rein mit ABAP-Mitteln?


Ralf

[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