Hi,
for this issue have to go to TRANSFER_DATA_TO_SUBSCREEN event and export tcode to memory :
EXPORT if_tcode = if_tcode TO MEMORY ID 'change/display'.
and then in your screen in PBO import tcode from memory :
data if_tcode type le_shp_tcode.
module status_1001 output.
import if_tcode = if_tcode from memory id 'change/display'.
if if_tcode = 'VL33N'.
loop at screen.
screen-input = 0.
modify screen.
endloop.
else.
loop at screen.
screen-input = 1.
modify screen.
endloop.
endif.