Code: Alles auswählen.
*---Text aus SO10 lesen----------------------------------------------*
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'PAMA'
language = 'D'
name = 'ZMAIL_I2001_LFZED'
object = 'TEXT'
TABLES
lines = lt_so10_text
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
*---Platzhalter ersetzen---------------------------------------------*
LOOP AT lt_so10_text INTO DATA(ls_so10_text).
IF ls_so10_text-tdformat = '/'.
ls_text-line = '<br>' && ls_so10_text-tdline.
ELSE.
ls_text-line = ls_so10_text-tdline.
ENDIF.
REPLACE ALL OCCURRENCES OF '&P0002-VORNA&' IN ls_text-line WITH ls_mail_data-vorna.
REPLACE ALL OCCURRENCES OF '&P0002-NACHN&' IN ls_text-line WITH ls_mail_data-nachn.
REPLACE ALL OCCURRENCES OF '&P0001-PERNR&' IN ls_text-line WITH mv_pernr.
REPLACE ALL OCCURRENCES OF '&P0001-WERKS&' IN ls_text-line WITH ls_mail_data-werks.
REPLACE ALL OCCURRENCES OF '&P0001-ORGEH&' IN ls_text-line WITH ls_mail_data-orgeh.
REPLACE ALL OCCURRENCES OF '&P2001-LFZED&' IN ls_text-line WITH ls_mail_data-lfzed.
REPLACE ALL OCCURRENCES OF '&T500P-NAME1&' IN ls_text-line WITH ls_mail_data-werkstext.
REPLACE ALL OCCURRENCES OF '&PR50D-ZZ_ORGTX&' IN ls_text-line WITH ls_mail_data-orgehtext.
APPEND ls_text TO lt_text.
ENDLOOP.
Ich will ja keinem zu nahe treten, aber ein Entwickler, der sich mit DER Begründung zufrieden gibt, würde meine Reaktion nicht erleben wollenDyrdek hat geschrieben:Der Append hat einem Tag später, vielleicht durch meinen Neustart von SAP Logon o.ä. funktioniert.
Daher schließe ich das Thema mal.
Folgende Benutzer bedankten sich beim Autor ralf.wenzel für den Beitrag:
DeathAndPain