代码5S
分类：
2020-05-20 13:19:51
原文地址：限制同名程序同时只运行一个 作者：qdbarry
REPORT z_barry_thwpinfo .
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.
FREE : wp_tabl.
CALL 'ThWpInfo'
ID 'OPCODE' FIELD opcode_wp_list
ID 'TAB' FIELD wp_tabl-*sys*
ID 'CPU' FIELD with_cpu.
LOOP AT wp_tabl.
IF wp_tabl-wp_report = 'Z_BARRY_THWPINFO' .
MESSAGE E000(oo) WITH '已经有同名程序在运行！'.
ENDIF .
ENDLOOP.
