Sometimes, some programs are needed to be prevented to run with other related programs such as local UPDATE programs without lock or ones using temporary interface tables.
So programmers need to separate those programs but HOW? Here is one solution for checking running programs each other.
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 = 'SAPMZTAD'. or wp_tabl-wp_report = 'ZMXZT52' . message e100(zi) with 'Other related programs are running now.'. endif . endloop.
This was first published in March 2001