<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > English > ABAP Tutorial > ABAP Workbench Tools > Enhancement > Customer Exits > Customer Exits Examples > Project ZWMWS001 > Funtions Exits  > EXIT_SAPLL03T_002 > ZXLTOU02

**&---------------------------------------------------------------------*
**&  Include           ZXLTOU02                                         *
**&---------------------------------------------------------------------*
 
**jalankan user exit hanya yg dari/ke lokasi zona-bs dan
**konfirmasi yg ke dua dijalankan (pquit = 'X')
 
READ TABLE t_ltap_vb INDEX 1.
 
CHECK ( t_ltap_vb-vlpla = 'ZONA-BS' AND
       t_ltap_vb-pquit = 'X' AND
       t_ltap_vb-bestq = 'S' )
  OR ( t_ltap_vb-nlpla = 'ZONA-BS' AND
       t_ltap_vb-pquit = 'X' and
       t_ltap_vb-bestq is initial ).
check i_ltak_vb-BWLVS = '999'.
 
TABLES: zta_w_bstouu.
 
CLEAR zta_w_bstouu.
 
MOVE-CORRESPONDING i_ltak_vb TO zta_w_bstouu.
zta_w_bstouu-tocrt = 'X'.
zta_w_bstouu-uname = sy-uname.
zta_w_bstouu-udatu = sy-datum.
INSERT zta_w_bstouu FROM zta_w_bstouu.
 
IF sy-subrc = 0.
CALL FUNCTION 'BP_EVENT_RAISE'
  EXPORTING
     eventid                = 'ZTEMP_LQ02'
  EXCEPTIONS
     bad_eventid            = 1
     eventid_does_not_exist = 2
     eventid_missing        = 3
     raise_failed           = 4
    OTHERS                 = 5.
ENDIF.