カスタマ固有の選択一覧 ( 例) 

WBS 要素の列を現在の選択一覧 SAP_PICKLIST に追加します。その際、修正した選択一覧をカスタマ固有の選択一覧に変更して列を追加します。

ソーステキストでは、用語 " 選択一覧" は入力ヘルプの意味で使われています。選択一覧と入力ヘルプは同じ意味をもちます。

ABAP ソースコード

*-----------------------------------------------------------------*
*   INCLUDE ZXMYCU01                                                   *
*-----------------------------------------------------------------*
IF sap_fieldname = 'RPROJ'.

  DATA: my_wbs_picklist TYPE my_wbs_picklist,
        wa_my_wbs_picklist LIKE LINE OF my_wbs_picklist,
        sap_wbs_picklist TYPE TABLE OF cats_my_str_picklist_rproj,
        wa_sap_wbs_picklist TYPE cats_my_str_picklist_rproj.

* 標準選択一覧に対してエントリのアペンドまたは修正を行います
  sap_wbs_picklist = sap_picklist.
  wa_sap_wbs_picklist-rproj = '12345'.
  wa_sap_wbs_picklist-rproj_txt = 'Stand. txt 12345'.
  APPEND wa_sap_wbs_picklist TO sap_wbs_picklist.
  sap_picklist = sap_wbs_picklist.

* 標準選択一覧に行を追加します
  FIELD-SYMBOLS: <my_picklist> TYPE ANY TABLE.
  CREATE DATA reference_to_new_picklist TYPE my_wbs_picklist.
  ASSIGN reference_to_new_picklist->* TO <my_picklist>.

  LOOP AT sap_picklist INTO wa_sap_wbs_picklist.
    MOVE-CORRESPONDING wa_sap_wbs_picklist TO wa_my_wbs_picklist.
    CONCATENATE 'myText is much longer for wbs-element '
                wa_sap_wbs_picklist-rproj
            INTO wa_my_wbs_picklist-customer_txt
            SEPARATED BY space.
    APPEND wa_my_wbs_picklist TO my_wbs_picklist.
  ENDLOOP.

  <my_picklist> = my_wbs_picklist.

ENDIF.
*-----------------------------------------------------------------*

導入クエリ IF sap_fieldname = “RPROJ” を使用して、選択一覧を修正する項目を指定します。この方法によってのみ、選択一覧の異なる項目を個別に調整することができます。

以下の行は、カスタマ固有の選択一覧に対する参照を作成するときに使用します。

ｷ        FIELD-SYMBOLS: <my_picklist> TYPE ANY TABLE.
CREATE DATA reference_to_new_picklist TYPE my_wbs_picklist.
ASSIGN reference_to_new_picklist->* TO <my_picklist>.

ｷ        <my_picklist> = my_wbs_picklist

ここに示した <my_picklist> フィールドシンボル ( 別の名称を選択して使用することもできます) の用途は、RPROJ 項目の選択一覧の修正に限定されません。このフィールドシンボルをそのまま採用して、他の項目の選択一覧を修正することもできます。