TABLES: wpinfo.

DATA: BEGIN OF COMMON PART wp.
DATA: BEGIN OF wp_tabl OCCURS 10.
INCLUDE STRUCTURE wpinfo.
DATA: END OF wp_tabl.
DATA: END OF COMMON PART wp.

DATA: opcode_wp_list(01) TYPE x VALUE 1,
with_cpu TYPE x VALUE 0.

FREE wp_tabl.

CALL 'ThWpInfo' ID 'OPCODE' FIELD opcode_wp_list
ID 'TAB' FIELD wp_tabl-*sys*
ID 'CPU' FIELD with_cpu.

*===* A tabela Interna WP_TABL contem informações sobre todos os
* programas que estão sendo executados, como: usuário, mandante, etc.


loop at wp_tabl where Wp_Report eq 'Nome do Programa'.
exit.
endloop.
if sy-subrc eq 0.
*======* Ele esta sendo executado
else.
*======* Ele nao esta sendo executado
endif.