Ranges , Join , Split , List Box

Ranges 

****  populate range table to receive entries within a range
wa_ebeln-sign   = 'I'.   "I = include, E = exclude
wa_ebeln-option = 'BT'.  "EQ, BT, NE ....
wa_ebeln-low    = '11111111'.
wa_ebeln-high   = '99999999'.

append wa_ebeln to r_ebeln.

select ebeln ebelp statu aedat matnr menge meins netpr peinh
  from ekpo
  into table it_ekko
 where ebeln in r_ebeln.

  RANGES: r_ustyp FOR usr02-ustyp.
  LOOP AT gt_list.
    r_ustyp-option = 'EQ'.
    r_ustyp-sign   = 'I' .
    r_ustyp-low    = gt_list-key.
    APPEND r_ustyp.
  ENDLOOP.


JOIN


    select vbak~vbeln  vbak~erdat vbak~auart
           vbak~vkorg  vbak~kunnr vbak~vdatu
           vbap~posnr
           vbap~matnr  vbap~werks vbap~vstel
           vbap~kwmeng vbap~vrkme vbap~netwr
           vbap~meins  vbap~prodh vbap~abgru vbap~zzilreqdeldate
           vbap~zzreason vbap~zzreason1 vbap~zzilordqty
           vbap~zzinuom  vbap~zzlastcustqty vbap~zzlastsaveqty
           vbap~zzlastunit vbap~zzlastrdd vbap~zzilweekdat
           vbap~zzlcrdd vbap~zzlcuom vbap~pstyv
      into corresponding fields of table lt_vbeln
      from vbak as vbak inner join vbap as vbap
      on vbak~vbeln = vbap~vbeln
      where vbak~vbeln in s1_vbeln
        and vbap~pstyv ne 'TAPA'.


SPLIT

Asağıdaki kodda sunu sağlıyoruz diyelimki elimizde 

2000/2001/2002/2003/2000/2001 diye bir string olsun . 

Bunları tek tek olacak sekılde '/' 'dan bolerek gt_split tablosuna atıyoruz . 
Daha sonra burdan aynı kayıtları siliyoruz ve tekrar  birlestiriyoruz . Bu komutla elimizdeki string degiskeni belli bir ayrıracla birbirlerine baglılarsa ıstedıgımız gibi ayırmıs oluyoruz . 

  DATA:  BEGIN OF gt_split OCCURS 0,

         split(50) TYPE c,

         END OF gt_split.

*----->>> Added by SOZYURT CR9519 14.01.2013 10:57:20

      SPLIT it_mara-variants AT '/' INTO TABLE gt_split .

      SORT gt_split.

      DELETE ADJACENT DUPLICATES FROM gt_split.

      CLEAR : l_variant.

      LOOP AT gt_split.

        CONCATENATE l_variant '/' gt_split-split INTO l_variant.

      ENDLOOP.

      MOVE l_variant TO it_mara-variants.

*-----<<< Added by SOZYURT

like 9% 

LIST BOX

parameters:     p_select type char10 as listbox visible length 20
                         modif id alv default 'A'.



at selection-screen output.
perform f_fill_list.


*&---------------------------------------------------------------------*
*&      Form  f_fill_list
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form f_fill_list.
  clear: gt_list, gt_list[].
  gs_stab-key  = 'A'.
  gs_stab-text = text-015."Dialog
  append gs_stab to gt_list.
  gs_stab-key  = 'B'.
  gs_stab-text = text-016."System
  append gs_stab to gt_list.
  gs_stab-key  = 'C'.
  gs_stab-text = text-017."Com Data
  append gs_stab to gt_list.
  gs_stab-key  = 'L'.
  gs_stab-text = text-018."Ref
  append gs_stab to gt_list.
  gs_stab-key  = 'S'.
  gs_stab-text = text-019."Service
  append gs_stab to gt_list.

  call function 'VRM_SET_VALUES'
    exporting
      id     = 'P_SELECT'
      values = gt_list.

endform.                    "f_fill_list