Belajar Abap: SAP Function Module ( RFC ) for Display Data

1. Buka t-code se37, isi nama function module dengan nama Z_SEL_KABUPATEN.

2. Isi function group dan juga Short text lalu Save.

3. Pada tab Parameter name isi ZKD_KAB dan ZNM_KAB, Type dengan TYPE dan centang Optional dan juga Value lalu tekan Enter.

4. Pada Tab Export isi Parameter name dengan Return, Type dengan TYPE, Reference Type dengan BAPIRET2 dan centang Pass value lalu tekan Enter.

5. Pada Tab Tables isi Parameter name dengan RETURN_DATA, Type dengan LIKE, Reference type dengan table ZAPPMM_KABUPATEN dan centang optional lalu tekan Enter.

6. Kemudian pada Tab Source code isikan kode berikut lalu activite:

FUNCTION Z_SEL_KAB.

    *"----------------------------------------------------------------------
    *"*"Local interface:
    *"  IMPORTING
    *"     VALUE(ZKD_KAB) TYPE  ZKD_KAB OPTIONAL
    *"     VALUE(ZNM_KAB) TYPE  ZNM_KAB OPTIONAL
    *"  EXPORTING
    *"     VALUE(RETURN) TYPE  BAPIRET2
    *"  TABLES
    *"      RETURN_DATA STRUCTURE  ZAPPMM_KABUPATEN OPTIONAL
    *"----------------------------------------------------------------------

    ranges: lr_kd_kab for zappmm_kabupaten-kd_kab,
               lr_nm_kab for zappmm_kabupaten-nm_kab.

     if zkd_kab ne ''.
        clear lr_kd_kab.
        lr_kd_kab-sign = 'I'.
        lr_kd_kab-option = 'CP'.
        lr_kd_kab-low = zkd_kab.
        append lr_kd_kab.
     endif.

     if znm_kab ne ''.
        clear lr_nm_kab.
        lr_nm_kab-sign = 'I'.
        lr_nm_kab-option = 'CP'.
        lr_nm_kab-low = znm_kab.
        append lr_nm_kab.
     endif.

     select * from zappmm_kabupaten
        into corresponding fields of table return_data
        where kd_kab in lr_kd_kab and
                  nm_kab in lr_nm_kab.

      sort return_data by kd_kab.
     ENDFUNCTION.

7. Aktifkan program dengan cara tekan Ctrl+F3