ABAP DEMOドロップダウンボックス

結果は：

 

 

 

* ＆------------------------------------------------ --------------------- * 
* ＆レポートYCX_020 
* ＆---------------------- ----------------------------------------------- * 
* ＆
* ＆------------------------------------------------ --------------------- * 
REPORTのycx_020。
TABLES ：MCHA。

DATA：ls_id    TYPEのvrm_id、
      lt_list TYPEの vrm_valueはOCCURS  0を、
      ls_list LIKE  LINE  OF lt_list。
DATA：ps_t（10）のTYPE C。

DATAは：BEGIN  OF 、str_charg 
        MATNR LIKE mcha- MATNRを、
        WERKS LIKE mcha- WERKS、
        CHARG LIKE mcha- 、CHARG
       END  OF str_charg。
DATA：lt_charg LIKE str_charg OCCURS  0を、
      ls_charg LIKEのstr_charg。

パラメータ：p_matnr LIKE MCHA-MATNRのDEFAULT ' 000000000000000098 ' 、
           p_werks LIKE MCHA-WERKS DEFAULT' 1701 ' 。
パラメータ p_charg AS LISTBOX VISIBLE LENGTH 10 。

SELECT-OPTIONS：s_charg FOR mcha- CHARG。



AT  SELECTION-SCREENの OUTPUT 。
  ls_id = ' P_CHARG ' 。


  REFRESH lt_list。
  LOOP  AT lt_charg INTOはls_charg。
    ls_list -key = ls_charg- CHARG。
    ls_list -text = ' ライン1 ' 。
    APPENDの ls_list TO lt_list。
  ENDLOOP 。

  ls_list -key = ' 10000000001 ' 。
  ls_list -text = ' ライン1 ' 。
  APPENDの ls_list TO lt_list。
  CLEAR ：ls_list。
  ls_list -key = ' 10000000002 ' 。
  ls_list -text = ' ライン2 ' 。
  APPENDの ls_list TO lt_list。
  CLEAR ：ls_list。
  CALLの FUNCTION  ' VRM_SET_VALUES ' 
    輸出して
      ID     = ls_idの
      値 = lt_list。