AUTHORITY-CHECK OBJECT ‘ZRE400DDD’
ID ‘ZRE400DDD’ FIELD ‘ACTUAL’.
IF sysubrc <> 0.
LOOP AT SCREEN.
IF screenname ‘RB_ACT’.
screeninput ‘0’.
screenintensified ‘0’.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.