Langtexte hinzufügen (Beispiel) 
Langtexte hinzufügen (Beispiel)
Sie wollen zwei häufig verwendete Langtexte in SAP R/3 anlegen und in CATS notebook über die Wertehilfe für Langtexte zur Verfügung stellen. Die beiden Langtexte bestehen jeweils aus einer Zeile und lauten wie folgt:
In der Wertehilfe für Langtexte sollen die Benutzer diese Texte über die folgenden Bezeichnungen auswählen können:
Implementieren Sie dazu den Customer-Exit MYCATS02 wie folgt.
ABAP-Quelltext
*----------------------------------------------------------------------*
* INCLUDE ZXMYCU02 *
*----------------------------------------------------------------------*
DATA reference_to_new_picklist TYPE REF TO data.
FIELD-SYMBOLS: <my_picklist> TYPE ANY TABLE.
DATA: my_picklist_standard_text TYPE my_picklist_standard_text,
wa_standard TYPE LINE OF my_picklist_standard_text.
CREATE DATA reference_to_new_picklist TYPE my_picklist_standard_text.
ASSIGN reference_to_new_picklist->* TO <my_picklist>.
*fill standard text
wa_standard-standard_text_id = 'Text1'.
wa_standard-counter = '000'.
wa_standard-langu = 'E'.
wa_standard-text = 'Court app.'.
APPEND wa_standard TO my_picklist_standard_text.
wa_standard-standard_text_id = 'Text1'.
wa_standard-counter = '001'.
wa_standard-langu = 'E'.
wa_standard-text = 'Court appearance'.
APPEND wa_standard TO my_picklist_standard_text.
wa_standard-standard_text_id = 'Text2'.
wa_standard-counter = '000'.
wa_standard-langu = 'E'.
wa_standard-text = 'Personal tax compl.'.
APPEND wa_standard TO my_picklist_standard_text.
wa_standard-standard_text_id = 'Text2'.
wa_standard-counter = '001'.
wa_standard-langu = 'E'.
wa_standard-text = 'Personal tax compliance'.
APPEND wa_standard TO my_picklist_standard_text.
<my_picklist> = my_picklist_standard_text.
FIELD-SYMBOLS: <field> TYPE ANY.
ASSIGN COMPONENT 1 OF STRUCTURE reference_table TO <field>.
<field> = 'Z_PICKLIST_STND_TXT'.
ASSIGN COMPONENT 2 OF STRUCTURE reference_table TO <field>.
<field> = reference_to_new_picklist.
APPEND reference_table.