Saisie de textes descriptifs (exemple) 
Vous souhaitez créer deux textes descriptifs fréquemment utilisés dans SAP R/3 et les rendre disponibles dans une liste de sélection pour textes descriptifs dans le CATS notebook. Les textes descriptifs se composent tous d'une ligne :
· Comparution devant un tribunal (Court appearance)
· Conformité à l'impôt sur le revenu des particuliers (Personal tax compliance)
Vous souhaitez que les utilisateurs puissent sélectionner les textes dans la liste de sélection en utilisant les légendes suivantes :
· Comparution tribunal (Court app.)
· Conformité impôt sur revenu particul. (Personal tax compl.)
Vous devez implémenter l'exit client MYCATS02 comme suit :
Code source ABAP
*----------------------------------------------------------------------*
* 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.