テキスト (
長)
の入力 (
例) 
使用頻度の高い 2 つのテキスト ( 長) を SAP R/3 で登録し、CATS ノートブック のテキスト ( 長) の選択一覧で利用できるようにします。以下の各テキスト ( 長) の長さは 1 行です。
ｷ 出廷
ｷ 個人のタックスコンプライアンス
以下のラベルを使用して、ユーザが選択一覧でテキストを選択できるようにします。
ｷ Court app.
ｷ Personal tax compl.
以下のとおりに MYCATS02 カスタマ Exit を実装する必要があります。
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>.
* 標準テキストを入力します
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.