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博客 ” ,链接:http://blog.itpub.net/23495244/viewspace-694697/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/23495244/viewspace-694697/