Get Domain Values

dd07v tablosundan domain tanımlarının çekilmesi


  perform f_read_dom using `ZPP_DO001` LV_DURUM_KODU changing LV_DURUM_METNI.
  perform f_read_dom using `ZPP_DO002` LV_NEDEN_KODU changing LV_NEDEN_METNI.

data: gt_dd07v type sorted table of  dd07v with unique key domname domvalue_l ."sadece TR !


form f_get_domain_values.
  refresh gt_dd07v.
  select * into table  gt_dd07v from dd07v
          where (    domname eq `ZPP_DO001`  OR   domname eq `ZPP_DO002` )  "CZXCZXCZC
            and ddlanguage = `T`
 order by domname domvalue_l.



endform.                    "f_get_domain_values


form f_read_dom using prm_domname prm_domvall changing chn_text.
  datals_dd07v type dd07v.

  write prm_domvall to ls_dd07v-domvalue_l LEFT-JUSTIFIED.
  write prm_domname to ls_dd07v-domname .
  clear chn_text  .
  read table gt_dd07v into ls_dd07v
             with table key domname ls_dd07v-domname
                            domvalue_l ls_dd07v-domvalue_l .
  if sy-subrc eq 0.
    chn_text ls_dd07v-ddtext.
  endif.
endform.                    "f_read_dom