<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > English > ABAP Tutorial > ABAP Workbench Tools > Enhancement > Customer Exits > Customer Exits Examples > 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.