您的位置:首页 > 其它

同名程序同时运行限制

2016-02-17 13:45 288 查看
REPORT z_test .

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_TEST.

MESSAGE E000(oo) WITH '已经有同名程序在运行!'.

ENDIF .

ENDLOOP.
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: