ABAP-System Function Call

Posted 2020-12-20 ricoo

函数组：THFB

 

 

1.函数TH_WPINFO：当前进程处理清单，可用于判断当前程序或是函数是否重复执行。

 

 

 

 2.函数TH_LONG_USR_INFO：用户信息

 

 

 

 3.函数TH_PLUGINS_ACTIVE

 

 4.函数TH_POPUP：弹出框

 

 5.函数TH_QRFC_REQUESTS：QRFC队列

 

 6.函数TH_REQUEST_QUEUE

 

 

 

 7.函数TH_USER_INFO

 

 

FORM CHECK_RUN.DATA : TH_OPCODE(1) TYPE X,WITH_CPU TYPE X VALUE 0.CONSTANTS: OPCODE_WP_LIST LIKE TH_OPCODE VALUE 1.DATA: BEGIN OF WP_TABL OCCURS 10.INCLUDE STRUCTURE WPINFO.DATA: END OF WP_TABL.DATA:WP_TABL2 LIKE WP_TABL OCCURS 0 WITH HEADER LINE.FREE : WP_TABL.CALL ‘ThWpInfo‘ID ‘OPCODE‘ FIELD OPCODE_WP_LISTID ‘TAB‘ FIELD WP_TABL-*SYS*ID ‘CPU‘ FIELD WITH_CPU.LOOP AT WP_TABL WHERE WP_REPORT = SY-REPID.WP_TABL2-WP_REPORT = WP_TABL-WP_REPORT.APPEND WP_TABL2.ENDLOOP.IF LINES( WP_TABL2 ) = 2.MESSAGE S000(OO) WITH ‘已经有其bai他用户在运行该程序,请稍后再试！‘ DISPLAY LIKE ‘E‘.STOP.ENDIF.ENDFORM. "check_run