ABAP 按条件锁定报表防止程序同一时间重复运行
Life is either a daring adventure or nothing at all.
生活要么是一场大胆的冒险，要么毫无意义。
1
问题描述
小伙伴提问
2
问题解决
解决思路
思路就是搜索引擎，直接上测试源码...
TABLES bkpf .
PARAMETERS p_bukrs TYPE bkpf \- bukrs DEFAULT '1000' .
PARAMETERS p_gjahr TYPE bkpf \- gjahr DEFAULT '2024' .
PARAMETERS p_monat TYPE bkpf \- monat DEFAULT '10' .
INITIALIZATION .
sy \- title = '按条件锁定报表 - ABAP猿' .
%_p_bukrs_%_app_% \- text = '公司代码' .
%_p_gjahr_%_app_% \- text = '会计年度' .
%_p_monat_%_app_% \- text = '会计期间' .
START-OF-SELECTION .
PERFORM check_running .
MESSAGE '报表已经在跑了，重新开个窗口运行下吧！' TYPE 'I' .
WAIT UP TO 60 SECONDS .
*------------------------------------------------------------------------------*
FORM check_running .DATA lv_relid TYPE indx \- relid VALUE 'ZR' .
DATA lv_srtfd TYPE indx \- srtfd .
DATA lv_message TYPE string .
" 拼接条件
CONCATENATE p_bukrs p_gjahr p_monat INTO lv_srtfd .
CALL FUNCTION 'ENQUEUE_ESINDX'EXPORTING
relid = lv_relid
srtfd = lv_srtfdEXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3 .
IF sy \- subrc <> 0 .CONCATENATE '用户' sy \- msgv1 '正在运行中，请稍后再试...' INTO lv_message .
MESSAGE lv_message TYPE 'S' DISPLAY LIKE 'E' .
LEAVE LIST-PROCESSING .
ENDIF .
ENDFORM .以上是今日分享，希望对你有所帮助~~~
欢迎点赞、留言、分享
原来的二维码失效了，没加的小伙伴可以加下
往期推荐
[ ABAP SE16N增强功能效果演示
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247498966&idx=1&sn=70e5c481ddf53a6dacc26e28b674f93a&chksm=cf0a2838f87da12e1a089744f4ee2945817fbfa99af6586dc4c33d9f85c58a672d1befd9167e&scene=21#wechat_redirect)
[ ABAP通过内表自动生成Fieldcat（小伙伴很懒）
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247497582&idx=1&sn=dbcac86cb671dbee5e5b8b2b58b65845&chksm=cf0a2380f87daa96db9aec2534b38fc8514e9e6febab4d451f27dab530981d2d1c894c3a2af7&scene=21#wechat_redirect)
[ ABAP面向对象-SE24类构建器设置选项作用演示
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247497480&idx=1&sn=742dd13d806665a450f958dd19c349b3&chksm=cf0a23e6f87daaf034b9bc277498d7498d12d5e9212362b4b1be50263357840fbcbe515e7b9c&scene=21#wechat_redirect)
点个 在看 你最好看
