Code: Alles auswählen.
DATA : zfieldname(50) TYPE c.
DATA : zzfieldname(50) TYPE c.
Code: Alles auswählen.
SELECT * FROM dd03l
WHERE tabname = 'ZVERSAND_PAKETE'
AND as4local = 'A'.
CONCATENATE '$' dd03l-fieldname INTO zfieldname.
CONCATENATE dd03l-tabname dd03l-fieldname INTO zzfieldname SEPARATED BY '-'.
ASSIGN (zzfieldname) to <zzfieldname>.
REPLACE ALL OCCURRENCES OF zfieldname IN zversand_vorlage_sms-data WITH <zzfieldname>.
ENDSELECT.
ENDFORM. "sms_text
Code: Alles auswählen.
SELECT * FROM dd03l
WHERE tabname = 'ZVERSAND_PAKETE'
AND as4local = 'A'.
CONCATENATE '$' dd03l-fieldname INTO zfieldname.
CONCATENATE dd03l-tabname dd03l-fieldname INTO zzfieldname SEPARATED BY '-'.
ASSIGN (zzfieldname) to <zzfieldname>.
IF sy-subrc EQ 0.
REPLACE ALL OCCURRENCES OF zfieldname IN zversand_vorlage_sms-data WITH <zzfieldname>.
ENDIF.
ENDSELECT.
Code: Alles auswählen.
data: ZVERSAND_PAKETE type ZVERSAND_PAKETE.
*oder
TABLES: ZVERSAND_PAKETE. "Sollte nicht mehr verwendet werden