import export table , struc , soft repair(önceki exitten değer alma)

data:    begin of xkonp occurs 50.
           include structure konpdb.
data:    end of xkonp.
if  sy-uname eq 'SOZYURT'.
  import xkonp from memory id 'gs_xkonp'.

 export xkonp to memory id 'gs_xkonp'

**** Soft repair  ***

  field-symbols <vbak>  type vbak.
  field-symbols <vbak1> type vbak.
  assign ('(SAPMV45A)vbak')  to <vbak>.
  assign ('(SAPMV45A)*vbak') to <vbak1>.
  if <vbak>-vkorg(1) eq 'R' or <vbak>-vkorg(1) eq 'U'.
    data : lv_zterm type knvv-zterm.
    clear: lv_zterm.
    select single zterm
             from knvv
             into lv_zterm
            where kunnr eq <vbak>-kunnr
              and vkorg eq <vbak>-vkorg.
    if lv_zterm eq 'RU02' or lv_zterm eq 'UA02'.
      <vbak>-lifsk = 'ZR'.
    endif.

Debug ekranında call sekmesine (yeni debuggerda standart sekmesi) giriyoruz. Orda programın oraya gelene kadar uğradığı exitleri programları gösteriyor.
Örn.
assign ('(SAPMV45A)vbkd') to .
sapmv45a programından vbkd structure ını çagırıyoruz. Burda her türlü değişkeni bizim programda çagırabilyoruz.