<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > Indonesia > ABAP Tutorial > ABAP Workbench Tools  > Enhancement > Customer Exits > Contoh Customer Exits > Project ZSDWS001 > Funtions Exits > EXIT_SAPLV60P_012 > ZXV6PU12

*&---------------------------------------------------------------------*
*&  Include           ZXV6PU12                                         *
*&---------------------------------------------------------------------*
*C_VKDFIF STRUCTURE  VKDFIF
 
tables: kna1, vbpa.
 
LOOP AT C_VKDFIF.
select single * from vbpa where vbeln = C_VKDFIF-VBELN
                          and   parvw = 'RE'.
 
if sy-subrc = 0.
  select single * from kna1 where kunnr = vbpa-kunnr.
endif.
 
if sy-subrc = 0.
    C_VKDFIF-ZZKUNRE = vbpa-kunnr.
    C_VKDFIF-ZZNAME1 = kna1-name2.
    modify C_VKDFIF.
endif.
 
ENDLOOP.