Informação fornecida por Douglas Martins de Azevedo.
Obtenção de Informações a respeito de Programas em Execução
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.
