lv_mod = prm_xndx MOD 2.

form f_renk_ver USING prm_xndx type int4 
                CHANGING chn_renk type ZTR_E_RENK_ALV."char4
  data: lv_mod type int4.
  CLEAR chn_renk.
  lv_mod = prm_xndx MOD 2.
  case lv_mod.
    when 1. "Tek
         chn_renk = `C400`.
    when 0. "Çift
          chn_renk = `C300`.
  ENDCASE.

ENDFORM.