Code: Alles auswählen.
SELECT SINGLE * FROM reposrc
INTO ls_programm
WHERE progname = 'Z_EINTRAEGE' AND r3state = 'A'.
TRY.
EXEC SQL.
UPDATE REPOSRC
SET
udat = sy-datum
utime = sy-uzeit
WHERE progname = ls_programm-progname.
ENDEXEC.
CATCH cx_root.
ENDTRY.
Code: Alles auswählen.
EXEC SQL.
UPDATE REPOSRC
SET udat = :sy-datum
utime = :sy-uzeit
WHERE progname = :programm-progname
ENDEXEC.
Folgende Benutzer bedankten sich beim Autor Daniel für den Beitrag:
JohnLocklay
Code: Alles auswählen.
EXEC SQL.
UPDATE REPOSRC
SET udat = :sy-datum,
utime = :sy-uzeit
WHERE progname = :programm-progname
ENDEXEC.
Code: Alles auswählen.
TRY.
EXEC SQL.
UPDATE REPOSRC
SET
UDAT = :lv_datum,
UTIME = :lv_zeit
WHERE PROGNAME = :ls_programm-progname
ENDEXEC.
CATCH cx_root INTO DATA(r_error).
DATA(lv_message) = r_error->get_text( ).
WRITE lv_message.
ENDTRY.