Please loop the enque functuion module until the lock has been performed.
then after go with the database operation.
as below
do.
call function 'ENQUEUE_EZL00FI_EOD_STAT'
exporting
mode_zt00fi_eod_check = 'X'
mandt = sy-mandt
country = iv_countrycode
bu_posting_area = iv_bp_area
posting_date = iv_postingdate
exceptions
foreign_lock = 1
system_failure = 2
others = 3.
if sy-subrc = 0.
exit.
endif.
enddo.
*Select is there any other BPAs are there whos cashpool still pending.
*Fetch all those records, and
*
select *
from zt00fi_eod_check
into table lt_bpa_status
where country eq iv_countrycode and
bu_posting_area ne iv_bp_area and
posting_date eq iv_postingdate and
status ne '03' .
lv_sysubrc = sy-subrc.
update zt00fi_eod_check
set status = '03'
where country = iv_countrycode and
bu_posting_area = iv_bp_area and
posting_date = iv_postingdate.
commit work.
call function 'DEQUEUE_EZL00FI_EOD_STAT'
exporting
mode_zt00fi_eod_check = 'X'
mandt = sy-mandt
country = iv_countrycode
bu_posting_area = iv_bp_area
posting_date = iv_postingdate.
Bluesky
