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.
Requires Free Membership to View
This was first published in March 2001

Join the conversationComment
Share
Comments
Results
Contribute to the conversation