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.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/23495244/viewspace-694697/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
选择屏幕动态选择子屏幕
请登录后发表评论
登录
全部评论
